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PARAGRAPH 

1. PURPOSE \ , # 1A 

2. PREREQUISITES 1A 

2.1 PROGRAM 

2.2 EQUIPMENT 

3. USE PROCEDURE 1A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 TERMINATION 

3.4 RESTART 

3.5 PROGRAM HALTS 

4. PRINTOUTS (NONE). 

5. COMMENTS 2 

6. APPENDIX 2 

6.1 APPENDIX A 

1816/1053 CHARACTER CODING AND TILT/ROTATE TABLES. 

6.2 APPENDIX B 

FLOW CHART, USE PROCEDURE AND PROGRAM LISTING FOR EACH PROGRAM. 

WHERE THERE ARE TWO OR MORE SCOOP LOOPS FOR THE SAME DEVICE, THE 
ADDITIONAL ONES ARE FOR DEVICES ON ANOTHER AREA CODE OR SECOND 
DEVICE. 

I •» 1 1 1,2 1053 

III 3 1054 

IV 4 1055 

V, VI 5,6 1442 PUNCH 

VII, VIII 7,8 1442 READ 

IX 9 1443 

X 10 1627 
XI, XII 11,12 1816 

XIII 13 1810A SEEK 

XIV-XVI 14-16 1810A AND B WR/RD/CMp 

XVII 17 2400 CONTROL 

XVIII, XIX 18,19 2400 INTERRUPT REAO 

XX, XXI 20,21 2400 CHAIN WRITE 

XXII, XXIII 22,23 2400 WR/RD/CMP 

XXIV, XXV 24,25 AI DPC 

XXVI, XXVII 26,27 AI DC SEQUENTIAL 

XXVIII, XXIX 28,29 AI DC RANDOM W/0 OVERLAP 

XXX, XXXI 30,31 AI COMPARATOR 

XXXII, XXXIII 32,33 AI DC RANDOM WITH OVERLAP 

XXXIV 34 DI DPC 

XXXV 35 DI DC RANDOM, SINGLE OR SEQUENTIAL 

XXXVI 36 16 BIT PULSE COUNTER 

XXXVII 37 8 BIT PULSE COUNTER 

XXXVIII 38 DAO DPC PULSE OUTPUT 

XXXIX • 39 DAO DPC 

XL, '40 DAO DC RANDOM OR SINGLE 

XL I .41 STORAGE CHECK 

XLII 42 PROCESS INTERRUPT 

XLIII 43 1810B SEEK 

XLIV 44 1800 CH-CH 

XLV 45 360 CH-CH { 15 CARDS ) 
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XLV! 


46 


SEL CHAN 




XLVII 


47 


2311 




XLVIII 


48 


2790 SCOPE LOOP 




XLIX 


49 


2790 SINGLE-STEP SCOPE LOOP * 




L-LVII 


50-57 


COMM ADAPTER ( 8 CARDS ) 


PURPOSE 









ONE CARD PROGRAMS THAT PROVIDE THE C.E. WITH THE 

ABILITY TO EXERCISE (WITH LIMITED CHECKING) ANY O.P. OR PROCESS I/O 
FEATURE. EACH CARD IS IDENTIFIED BY THE IMAGE OF A ROMAN NUMERAL 
PUNCHED IN CARD ROWS 6-9. EACH PAPER TAPE STRIP IS IDENTIFIED BY A 
LEADER JUST AHEAD OF THE PROGRAM. 



2. PREREQUISITES 



2.1 



PROGRAM 

EACH SCOPE LOOP IS PUNCHED ON AN INDIVIDUAL CARD. THE CARD IS 

PUNCHED IN 8-8 FORMAT AND IS LOADED IN THE I.P.L. MODE. FOR PAPER 

TAPE INPUT, THE TAPE IS PUNCHED IN I.P.L. FORMAT (4 BITS PER 
FRAME). 



2.2 



EQUIPMENT 

SYSTEM MUST HAVE A 1442 OR A PAPER TAPE READER. 

USE PROCEDURE 

WHERE THERE ARE TWO OR MORE SCOOP LOOPS FOR THE SAME DEVICE, THE 
ADDITIONAL ONES ARE FOR DEVICES ON ANOTHER AREA CODE OR SECOND 
DEVICE. 



3.1 



PROGRAM LOADING 

THE LOADING PROCEDURE IS SIMILAR FOR AUL SCOPE LOOPS. 

1. PREPARE THE I/O DEVICE AND MAKE 'READY'. 



2. 



LOAD THE CARD/PAPER TAPE IN I.P.L. MODE. PROGRAM WILL GO TO 
WAIT 1. (B REG = 3001). 



3.2 



3.3 



3.4 



3.5 



3. SET THE CONSOLE SWITCHES. 

4. PRESS START BUTTON. PROGRAM IS NOW RUNNING. 
PROGRAM OPERATION 

A DETAILED OPERATING PROCEDURE FOR EACH SCOPE LOOP CAN BE FOUND 
IN APPENDIX B. (SEE TABLE OF CONTENTS) 

TERMINATION 

MOST SCOPE LOOPS HAVE THE OPTION OF LOOPING OR STOPPING AT A 
WAIT AFTER ONE COMPLETE LOOP. IN ALL CASES THIS IS WAIT 2 
(B REG. = 3002). 

RESTART 

PRESS THE P.C. STOP, RESET AND START BUTTONS. TH= PROGRAM WILL GO 
TO WAIT 1 (SET THE CONSOLE SWS.). FOR RELOCATED PROGRAMS, SET THE I 
COUNTER AND PRESS START. 

PROGRAM HALTS 

MOST PROGRAMS USE WAITS. THE WAITS ARE IDENTIFIED BY REFERENCING 
THE CONTENTS OF THE B REGISTER. ALL WAITS WILL BE OF "THE FORM 
300X. FOR QUICK IDENTIFICATION, THE LOW ORDER HEX DIGIT HAS THE 
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3001 



PRESS THE START BUTTON TO 



3002 



PRESS THE START BUTTON TO 



PROGRAM. 
A DSW. 



SET THE DESIRED SWITCHES. 

CONTINUE. 

END OF ONE COMPLETE LOOP. 

CONTINUE. 
3006 AND 3007 = AN ERROR HAS BEEN DETECTED BY THE 

DSW IS IN THE A REGISTER IF THE DEVICE HAS 
3008 = AN INTERNAL ERROR HAS OCCURRED. IF THE 'CHECK STOP' 

SW. IS ON, A 'CAR CHECK' ERROR CAUSED THE WAIT. 

IN MOST CASES THE ERROR ILSW IS SENSED JUST PRIOR TO 

WAIT 8. IF SO, THE A REGISTER WILL CONTAIN THE ERROR 

BITS. IF THE ILSW IS NOT SENSED, ONE OF THE RED 

CONSOLE CHECK LIGHTS WILL BE ON. 

4. PRINTOUTS 

THERE ARE NO PRINTOUTS. 

5. COMMENTS 

IN MOST CASES A NOP MAY BE SUBSTITUTED FOR A WAIT AND THE PROGRAM WILL 
CONTINUE TO RUN FOR SCOOPING. 

6. APPENDIX 



THE 
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BO 61 B2 B3 B4 B5 B6 B7 



I 










HEXIDECIMAL 



81 
111 
21 
II 
09 
OS 
03 



FUNCTION 



•T2 



■Rl 



• R-2 



Tl 

— R2A 



CARRIER RETURN 
TABULATE 
SPACE 
BACKSPACE 
|FT TO RED 
TO BUCK 
LINE FEED 



£ 



R-5 



BO Bl B2 B3 B4 B5 



CONTROL BIT 



I l | | 

1 lo 

1 ! J 

1 10 

1 10] 

1 

I 1 

I 1 

10 

I I I I I 



LOWER CASE 



B6=0 HEXADECIMAL 



1 


1 1 


1 


1 1 1 


1 1 


1 


1 1 


1 1 


1 


1 


1 


1 1 


1 1 


t 


1 ] 





1 


1 1 


1 


1 1 1 


1 1 


1 


1 1 


1 1 


1 


1 


1 


1 1 


1 1 


I 


1 1 





1 1 1 


1 I I 
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1 1 


1 1 
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1 1 


1 1 


1 1 1 


1 


1 1 1 





1 1 


1 


1 1 





1 1 


1 1 1 



I 

1 












1 
10 





A 
B 
C 
D 
E 

F 
6 
H 

I 
J 

K 
L 
M 
N 


P 
Q 
R 
S 
X 

u 

V 

w 

X 
Y 
Z 

1 
2 
3 
4 
5 
6 

7 
8 
9 

« 
/ 



ROTATE - 



TILT 





5 


4 


3 


2 


1 





1 
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5 
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—i 
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Y 
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K 


M 





R 


J 
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3 


A 


C 


E 


c|h 


%. 


8 


D 


F 
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+ ROTATE 



3C 
18 
IC 
30 
34 

10 
Id 
24 
20 
7C 

58 
5C 
70 
74 

50 

5*. 

64 
60 
98 
SC 

BO 
B4 
90 
9k 
A4 
AO 

FC 
08 
DC 
FO 
F4 
DO 

Ok 
E4 
EO 
Ck 
CO 
BC 

84 
80 
kk 
kO 
Ok 
00 



DATE 01 JUL 66 
EC 1)15)78 

DATE 02 DEC 68 
EC 411961 
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UPPER CASE 



DATE 04 NOV 66 
EC 415233 

DATE 14 NOV 69 
EC 431319 



ROTATE 


- 










t 


" + 


ROTATE 






5 


4 


3 


2 


1 





I 


2 


3 


k 


s| 







1 


3 


5 


7 


8 





2 


k 


6 


9 


£_ 


TILT 


1 


/ 


T 


V 


X 


Y 

Q 


- 


s 


U 


w 


Z 




2 


J 


L 


N 


P 


t 


K 


M 





R 


$ 

• 
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A 


C 


E 


G 


H 


9> 


B 


D 


/ 


1 



LOWER CASE 



DATE 15 FEB 67 
EC 41 5233 B 

DATE 31 JUL 70 
EC 431326 



UPPER CASE 



B6- 



A 
B 
C 
D 
E 

F 

G 
H 
I 
J 

K 
L 
M 
N 


P 
0. 
R 
S 

T 

U 
V 

w 

X 
Y 
Z 

( 

+ 

< 



HEXADECIMAL 



3E 
IA 
IE 
32 
36 

12 

16 
26 
22 
7E 

5A 
5E 
72 
76 
52 

56 
66 
62 
9A 
9E 

B2 

B6 
92 
96 
A6 
A2 

FE 

DA 

OE " 

F2 

F6 

02 

D6 
E6 
E2 
C6 
C2 
BE 

86 
82 
46 
42 
06 
02 



DATE 15 MAY 67 
EC 411731 
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APPENDIX A 



KEY IBM CARD CODE 



M.8.4 



0.1 



(PERIOD) 



EOF 



(COMMA) 



mn 



JLLi 
12.8,3 



ER 

CHR 



°i»J 



NONE 



NONE 



ER 
FLD 



' (APO STROPHEj 



L 



NONE 



6.8 



5,8 



]L1A 



Uil& 



- (DASH) 



12,8,6 



II 



12.1 



12.2 



JU 



12.4 



12,5 



12,6 



'2,7 



12^8 



1M1 



1816 KEYBOARD CHARACTER CODING 



10 



12 



14 



t 



DATE 01 JUL 66 
EC 415178 
DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 
DATE 31 JUL 70 
EC 431326 



KEY IBM CARD CODE 



II. I 



11.2 



Jl,3 



11,4 



±Li 



11.6 



Hd. 



11.8 



'1,9 



-°J 



0,5 



SPACE 



± 



0.6 



0^ 



-M 



0.9 



BLANK 



12,8,2 



Ms 



12,8.4 



11,8.2 



'1 

, (SEMI-C0L0N">lll T 8, fe 



% 



.(underscore! 



12,8,7 



12 



11,8,7 



0,8,4 



2&1 



(COLON) 



0-8-2 



0,8,6 



0A2 



8.2 



lil 



8,4 



8J 



0,8,2 



10 



I 1 



15 



DATE 15 FEB 67 
EC 415233B 



MTE 15 MAY 67 
EC 41 1731 



DATE 02 DEC 68 
EC 411961 



PROG ID 08C8-* 
PAGE 3A 



0COOCCOCttC(J(JCC(KJt(JCCCl!(i(itC(JCCtCC(l 



o! 

o, 

1 

()' 

o 
o 
o 

c 

G 

i 

o 

-J 



3 
3 

J 

i 
) 

i 

i 
> 

) 



IBN'mAINTENANCE OIACNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS 
1053 SCOPE LOOP (1,11) 



P/N 21833JJ 
PAGE % 



c 



I PL 



) f RESTARTJ 



/OOP I 



WAIT 1 

SET 
CONSOLE 
SWITCHES 



i r /0009 



XIO 

WRITE 
CHARACTER 



' ' /OOOE 



OELAY MAY 
BE ENTERED. 
SEE SERVICE 
HINT I 




' 4TH 1053 

3RD 1053 

2ND 1053 

1ST 1053/1816 



, 12 3 1 7 

• MINI Is) 

° 7 8 

N-— -CHAR I 



*+*- 



[5 

CHAR 2 -~*3 



SEE APPENDIX A 

S - I HALT AFTER EACH OPERATION 

S - PRINT CONTINUOUSLY (LOOP) 



I. PROGRAM DESCRIPTION 

WILL PRINT TWO CHARACTERS ONE OF TWO WAYS- 

1. HALT AFTER EACH PRINT OPERATION 

2. PRINT CONTINUOUSLY 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE I PL CARO IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE 
INPUT. PLACE THE DELETE HOLE SECTION 
OF THE PAPER TAPE OVER THE READ 
STATION. 

SET "CHECK STOP" SW. ON. 

PRESS "RESET" AND "PROGRAM LOAD" 
CONSOLE BUTTONS. THE PROGRAM SHOULD 
LOAD AND STOP AT WAIT I. 

SELECT THE PRINTER IN SENSE/PROG. 
SWS. I-H. SW. | - m. 4, SW. 2 - 
PTR. 3. ETC. 

SET SENSE/PROG. SW. 7 - I TO HALT AFTER 
EACH PRINTER OPERATION. SET SW. 7 - 
TO PRINT CONTINUOUSLY. 



2. 
3. 

4. 

5. 

6. 

7. 



0-7 ANO 8-15 TO THE 
(SEE TABLES IN 



SET DATA ENTRY SWS 
CHARACTERS DESIRED 
APPENDIX A) 

PRESS "START" BUTTON. PRINTER WILL 
PRINT CHAR. 1, THEN CHAR. 2. 



3. SERVICE HINTS 
I. 



DATE 01 JUL 66 
EC 415178 
DATE 14 NOV 69 
EC 431319 



DSW 

PTR. SERV. REQ. 

4 PTR. BUSY 

5 PTR. NOTRDY. 
9 PTR. PARITY 

12 C.E. BUSY 

13 C.E. NOT RDV. 



DATE 04 NOV 66 
EC 415233 
OATE 31 JUL 70 
EC 431326 



THERE ARE TWO XR'S USED IN THE DELAY 
LOOP. DELAY 1 DECREMENTS XR-I BY I 
AND DELAY 2 DECREMENTS XR-2 BY I 
DELAY 2 CONTROLS THE NUMBER OF COMPLETE 
CYCLES THAT DELAY 1 TAKES. NORMALLY 
BOTH XR'S ARE SET FOR NO DEWY. TO 
ENTER A DELAY: 

a. ENTER /7FFF (OR ANY SMALLER 
POSITIVE NUMBER) INTO LOC. /0010 
/7FFF WILL CAUSE DELAY I TO BE 
1/6 SEC. 

b. ENTER INTO XR-2 THE NUMBER OF 
TIMES THAT XR-1 SHOULD BE LOADED 
AND LOOPED. TO LOAD XR-2. SET 
LOC. /0008 TO 62XX. (XX - NUMBER 
OF LOOPS. /Ol - /7F). 

IF THE SYSTEM HAS A 4 M S CYCLE. DELAY I 
WILL BE TWICE AS LONG. 



DATE 15 FEB 67 
EC 415233B 



OATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 
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DATE 
i EC NO. 



0000 


1000 


0001 


3001 


0002 


081F 


0003 


180A 


0004 


E821 


0005 


D01F 


0006 


E81B 


0007 


D023 


0008 


0817 


0009 


081A 


OOOA 


0820 


OOOB 


180A 


OOOC 


4804 


OOOD 


600A 


OOOE 


6200 


OOOF 00 


65 000000 


0011 


71FF 


0012 


6011 


0013 


72FF 


0014 


600F 


0015 


C813 


0016 


18C8 


0017 


D011 


0018 


0809 


0019 


1808 


001A 


4804 


001B 


3002 


00 1C 


C002 


001 D 


F009 


001 E 


DOOO 


001F 


6008 


0020 


0029 


0021 


0240 


0022 


0F01 


0023 


0760 


0024 


0029 


0025 


0000 


0026 


0900 


0027 


0001 


0028 


0000 


0029 


0000 


002A 


0000 


002 B 


0000 
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*** 1053 SCOPE LOOP *** I, II 






1. 
3 






9> 



1 <* $ 



JOKO 



PART 
PAGE 
ft • 



NO. 



2183313 
4A 



BEGIN 



ABS 
NOP 
WAIT 
XIO 

SRA 

OR 

STO 

OR 

STO 

XIO 

XIO 

XIO 

SRA 

BSC 

LDX 

LDX 

LDX 

MOX 

LDX 

MDX 

LDX 

LDO 

RTE 

STO 

XIO 

SRA 

BSC 

WAIT 

LD 

EOR 

STO 

LDX 



2 

LI 

1 



1 
/0022 

10 

/0026 

/0025 

/0022 

/002B 

/0020 

/0024 

/002B 

10 

E 

/OOOA 

/OOOO 

/OOOO 

-1 

/OOll 

-1 

/OOOF 
/0029 
8 
/0029 

/0022 

8 

E 

2 

/001F 

/0027 

/001F 

/0008 



WAIT AFTER IPL 
SENSE PROG. SWS. 

(SW. 1,2,3,4=TPWR. 



4,3,2,1 RESP.) 



* 

*** IOCC'S AND CONSTANTS *** 



OR IN /0900 OR / 7900 

STORE IOCC TO WRITE 

OR IN /0F01 OR /7F01 

STORE IOCC TO SENSE DSW 

READ DE SWS. INTO LOC. /0029 

WRITE FROM LOCATION /0029 

SENSE DSW 

PUTS NOT READY AT BIT 15. 

SKIP IF READY BIT 15=0) 

BRANCH TO LOCATION /OOOA. 

PUTS /OOOO IN X*2. 

PUTS /OOOO IN XR1. 

DECR. XR-1 BY 1. 

BRANCH TO LOC. /OOll. 

DECR. XR-2 BY 1. 

BRANCH TO LOC. /OOOF 

PUT CILOC. /0029) IN A AND Q 

ALTERNATES CHARACTERS IN A. 

STORES ALTERNATED CHARACTERS AT 

LOCATION /0029. 
SENSE S/P SWS. 

(SW. 7=0 TO TYPE CONTINUOUSLY) 

SKIP IF BIT 15=0 

THESE THREE INSTRUCTIONS CAUSE 
THE BIT 15 POSITION OF LOC. /001F 
TO ALTERNATE BETWEEN 1 ANO 0. 
BRANCH TO LOC. / 0008 OR /0009. 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
END 



/0029 
/0240 
/OF01 
/0760 
/0029 

/0900 
/0001 



IOCC TO READ THE D.E. 

SWS. INTO LOCATION /0029. 
CONSTANT (NOTE 1) 
IOCC TO SENSE THE S/P SWS. 
IOCC TO WRITE FROM 

LOCATION /0029. 
CONSTANT (NOTE 1) 
CONSTANT 



BEGIN 



THIS LOCATION I S NOT 
D.E. SWS. STORAGE (2 
THIS LOCATION IS NOT 
IOCC FOR SENSE SW IS 



USED 
CHAR) 
USED 
STORED HERE 



*** NOTE 1 *** 



*THIS LISTING IS FOR THE FIRST FOUR TYPEWRITERS ONLY. 

*FOR TYPEWRITERS 5-8, THE FOLLOWING STORAGE LOCATIONS 
*CONTAIN - 

* LOCATION CONTENTS 

* /0022 /7F01 

* /0026 /7900 
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c 



»lD C1D 



' 7oooo 



. S/P sw. 

7 



WAIT I 

SET 
CONSOLE 

SWS 



P/N 2183313 
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I. PROGRAM DESCRIPTION 

WILL READ AND COMPARE DATA ONE OF TWO WAYS: 

1. COMPARE THE DATA READ TO THE DATA ENTRY 
SWS. 

2. COMPARE THE DATA READ TO A BINARY RIPPLE 
PATTERN. (TAPE IS GENERATED WITH 1055 
SCOPE LOOP) 

2. OPERATING PROCEDURE 




DATA 



/0006 



STORE D.E. 
SWS. 0-7 
INTO "DATA" 



D.E. SW. 

B - COMPARE DATA READ 
TO D.E. SW. 0-7 

B - I READ AND COMPARE 

BINARY RIPPLE TAPE 

R - READ CONTINUOUSLY 

R - J WAIT AFTER EACH READ 



/00I6 



1. 



2. 
3. 

4. 



BUILD DATA 

WORD AND 

STORE IN 

*DATA" 



' '/0007 




/oooc 





I 

2 
3 
4 
5 
6 
7 
8 
9 

10 

II 

12 

13 



DSW 

RDR. ANY ERROR 
RDR. REft. 

PUNCH PARITY ERROR 
PUNCH RCO.. 
RDR. BUSY 
RDR. NOT ROY. 
PUNCH BUSY 
PUNCH NOT RDY. 
RDR PARITY ERROR 
RDR. STOR. PROT. 
C.E. RDR. BUSY 
C.E. RDR. NOT RDY. 

PUNCH BUSY 
C.E. PUNCH NOT RDY. 



6. 



PUCE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO READ THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE INPUT 
PLACE THE DELETE HOLE SECTION OF THE 
PAPER TAPE OVER THE READ STATION. 
SET "CHECK STOP" SWITCH ON. 

PRESS "RESET" AND 'PROGRAM LOAD" CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND STOP 

SET SENSE/PROG, SW. - TO COMPARE THE 
DATA TO DATA ENTRY SWS. 0-7. 

SET SENSE/PROG. SW. - 1 TO COMPARE THE 
DATA TO A BINARY RIPPLE PATTERN. (PATTERN 
THAT IS PUNCHED WITH 1055 SCOPE LOOP) 
PLACE THE "ONE" CHARACTER OVER THE READ 
STATION (ONLY CHANNEL 1 PUNCHED). 

SET SENSE/PROG. SW. 7 - 1 TO HALT AFTER 
EACH READ OPERATION. SET SW. 7 - TO 

READ CONTINUOUSLY. 




PAPER 
TAPE 

CHANNEL 



8 7 6 5 4 3 2 1 

Nil! Ill 

5 6 7 

f D.E. SWS. 



BUTTON. 1054 WILL 



7. PRESS CONSOLE "START" 
START READING. 

8. PROGRAM WILL STOP AT WAIT 6 IF A COMPARE 
ERROR OCCURS. wnrwt 



DATE 01 JUL66 
EC 415178 
DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 

EC 415233 
DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 4152338 



DATE 15 HAY 67 
EC 41 1731 



DATE 02 OEC 68 
EC 411961 
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*** 1054 READER SCOPE 








ABS 




0000 





3001 


BEGIN WAIT 


1 


0001 





6300 


LDX 


3 /OOOO 


0002 





0819 


XIO 


/001C 


0003 





1000 


NOP 




0004 


00 


4C280016 


BSC 


L /0016.Z+ 


0006 





0819 


XIO 


/0020 


0007 





081 A 


XIO 


/0022 


0008 





0811 


XIO 


/OOlA 


0009 





180B 


SRA 


11 


OOOA 





4804 


BSC 


E 


0008 





6008 


LOX 


/0008 


OOOC 





0817 


XIO 


/0024 


OOOD 





C818 


LDD 


/0026 


OOOE 





B018 


CMP 


/0027 


OOOF 





1000 


NOP 




0010 





3006 


WAIT 


6 


0011 





080A 


XIO 


/001c 


0012 





1808 


SRA 


8 


0013 





4804 


BSC 


E 


0014 





3002 


WAIT 


2 


0015 





6002 


LDX 


/0002 


0016 


00 


77000100 


MDX 


L3 /OlOO 


0018 





1000 


NOP 




0019 





6B0D 


STX 


3 /0027 


001A 





6007 


LDX 


/0007 


001B 





1F01 


DC 


/1F01 


001C 





0000 


DC 




001D 





0760 


DC 


/0760 


001E 





0000 


DC 




001F 





0740 


DC 


/0740 


0020 





0027 


DC 


/0027 


0021 





0240 


DC 


/0240 


0022 





0000 


DC 




0023 





1C10 


DC 


/1C10 


0024 





0026 


T>C 


/0026 


002 5 





1A00 


DC 


/1A00 


0026 





0000 


DC 




0027 





0000 


DC 





END 



BEGIN 



LOOP *** III 

WAIT AFTER IPL. . 

PUT IN XR3. 

SENSE PROG. SWS. (SW0=1 FOR BINARY) 

BRANCH TO /0016 IF SW. 0=1 

READ DATA SW'S INTO LOCATION /0027. 

CONTROL. READER START. 

SENSE AND RESET DSW. 

PUTS BUSY AT BIT 15. 

SKIP IS NOT BUSY. (BIT 15=0) 

BRANCH TO /0008. 

READ PT INTO LOCATION /0026. 

A=READER CHAR. Q=COMPARE CHAR. 

is compare Char. =reader char. 

NO 

NO. COMPARE ERROR. 

YES, SENSE PROG. SW'S. 

(SW7 = TO CONTINUE) 
PUTS SW7 AT BIT 15. 
SKIP IF BIT 15=0. 

BRANCH TO /0002. 

INCR. XR3 BY /OlOO. (NEXT DATA) 

STORE XR3 AT LOCATION /0027. 
BRANCH TO /0007 . 
SENSE AND RESET DSW. 
SENSE PROG. SW' S. 

SENSE DATA SW'S. 

READ DATA SWS INTO LOCATION /0027. 

CONTROL. READER START. 

READ PT INTO LOCATION /0026. 

READER CHARACTER, FROM PT. 

COMPARE CHARACTER, FROM DATA SW'S 
OR XR3. 



- 
- 



) 

DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31 JUL 70 


k EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 
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I. 



PROGRAM DESCRIPTION 

WILL PUNCH ONE OF TWO WAYS s 

1. RIPPLE THRU A BINARY PATTERN. 

2. PUNCH THE IMAGE OF DATA ENTRY SWS. 



2. OPERATING PROCEDURE 
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0-7. 



E. SWS. 
7 



B - 1 PUNCH A RIPPLE BINARY POSITION 

B - PUNCH FROM DATA ENTRY SWS. 0-7 

R - PUNCH CONTINUOUS 

R - I WAIT AFTER EACH OPERATION 



READ DATA/ 

ENTRY SWS 

INTO LOC> 

•DATA" 



! r /0015 



BUILD 
CHAR i- PUT 
IN LOC 
"DATA" 



/0007 



XIO 
PUNCH 
FROM LOC/ 
"DATA" 



r/000C 



DELAY MAY 

BE ENTERED 

SEE SERVICE 

HINT 1. 



~<z> 



NO 



W /00I3 



o o 




o o 

o 
o o o 



000009000 



WAIT 2 
PRESS START 
TO CONTINUE 



8 7 6 5 4 

Jjili 

I ' 2 3 4 5 6 7 



3 2 I CHANNEL 



DATA ENTRY 
SWS. 




I. 



2. 
3. 

4. 
5. 
6. 



PLACE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO BRING 
UP "READY". FOR PAPER TAPE INPUT, PUCE 
THE DELETE HOLE SECTION OF THE PAPER TAPE 
OVER THE READ STATION. 

SET *CHECK STOP" SWITCH ON. 

PRESS 'RESET" AND "PROGRAM LOAD" CONSOLE 
BUTTONS. THE PROGRAM SHOULD LOAD AND 
STOP AT WAIT I. 

SET SENSE/PROGRAM SW. - 1 TO PUNCH A 
RIPPLE BINARY PATTERN. 

SET SENSE/PROGRAM SW. - TO PUNCH THE 
IMAGE OF DATA ENTRY SWITCHES 0-7. 

SET SENSE/PROGRAM SW. 7 - 1 TO WAIT AFTER 
EACH PUNCH OPERATION OR SW. 7 -0 TO 
PUNCH CONTINUOUS. ' 



7. PRESS CONSOLE START BUTTON. 
START PUNCHING. 

3. SERVICE HINTS 



1055 WfLL 



I. 



A TIME DELAY CAN BE ENTERED BETWEEN EACH 
CHARACTER PUNCHED. IF /7FFF IS LOADED 
INTO LOCATION /OOOO, A DELAY OF 
APPROXIMATELY 1/6 SECONDS WILL OCCUR 
(2 MICRO-SECOND SYSTEM) ANY VALUE * 
BETWEEN /OOOO AND /7FFF CAN BE ENTERED 
THE GREATER THE VALUE. THE LONGER THE TIME 
DELAY. 




1 
2 
3 
4 
S 
6 
7 
8 
9 

10 

11 

12 

13 



DSW 

ROR. ANY ERROR 
RDR. REQ. 

PUNCH PARITY ERROR 
PUNCH REQ. 
RDR. BUSY 
RDR. NOT RDY. 
PUNCH BUSY 
PUNCH NOT RDY. 
RDR. PARITY ERROR 
RDR. STOR. PROT. 
C.E. RDR. BUSY 



D 
D 



C.E. 
C.E. 
CE. 



ROR. NOT RDY. 
PUNCH BUSY 
PUNCH NOT ROY. 



D 



D 



OATE 01 JUL 66 
EC 415178 
OATE 14 NOV 69 
EC ^31319 



DATE 04 NOV 66 
EC 415233 
OATE 31' JUL 70 
EC 431326 



OATE 15 FEB 6? 
EC 415233B 



DATE 15 MAY 67 
EC 41 1731 



OATE -)2 DEC 68 
EC 411961 
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*** 


1055 PUNCH SCOPE L 








ABS 






OOOO 


3001 


BEGIN WAIT 




1 


0001 


6300 




LOX 


3 


/OOOO 


0002 


0819 




XIO 




SPSW 


0003 00 


4C280015 




BSC 


t. 


INCRE,Z+ 


0005 


6300 




LOX 


3 


/OOOO 


0006 


0817 




XIO 




DESW 


0007 


0818 




XIO 




PCH 


0008 


0811 




XIO 




DSW 


0009 


1003 




SLA 




3 


OOOA 


4810 




BSC 






OOOB 


6008 




LDX 




/0008 


OOOC 00 


65000000 


* 


LDX 


LI 


/OOOO 


OOOE 


71FF 


MOX 




-1 


OOOF 


600E 




LDX 




/OOOE 


0010 


080B 




XIO 




SPSW 


0011 


1808 




SRA 




8 


0012 


4804 




BSC 




E 


0013 


3002 




WAIT 




2 


0014 


6002 




LDX 




/0002 


0015 00 


77000100 


INC RE 


MDX 


1.3 


/0100 


0017 


1000 




NOP 






0018 


6B0B 




STX 


3 


OUT 


0019 


6007 




LDX 




/0007 


001 A 


OOOO 


DSW 


DC 






001B 


1F01 




DC 




/1F01 


001 C 


OOOO 


SPSW 


DC 






001D 


0760 




DC 




/0760 


001E 


0024 


OESW 


DC 




OUT 


001F 


0240 




DC 




/0240 


0020 


0024 


PCH 


DC 




OUT 


0021 


1900 




DC 




/1900 


0022 


OOOO 




DC 






0023 


0740 




DC 






0024 


OOOO 


OUT 


DC 
END 




BEGIN 



IV 



WAIT AFTER IPL. 
PUT IN XR3. 

SENSE PROG. SWS (SW0=1 FOR BINARY) 

BRANCH IF SW. 0=1. 

PUT IN XR3. 

READ DATA Sw • S INTO LOCATION /0024. 

WRITE (PUNCH) FROM LOCATION /0024. 

SENSE DSW. 

PUTS SERVICE REO. AT BIT 0. 

SKIP IF SERVICE REQ. (BIT 0=1) 

BRANCH TO /0008 . 

PUT /OOOO IN XR1 . BEGIN DELAY. 

NORMAL DELAY IS NOTHING. 
OECR. XR1 BY 1. 
BRANCH TO /OOOE . 
SENSE PROG. SWS. 

<SW7 = TO CONTINUE). 

SKIP IF BIT 15 = 0. 

BRANCH TO /0002. 

INCR. XR3 BY /OlOO. (NEXT DATA) 

STORE XR3 AT LOCATION /0024. 
BRANCH TO /0007 . 

SENSE DSW IOCC 

SENSE PROGRAM S WS IOCC 

READ DATA SWS INTO LOCATION /0024. 

READ DATA ENTRY SWS IOCC 

WRITE (PUNCH) F*OM LOCATION /0024. 

WRITE IOCC 



STORAGE FOR PUNlH CHARACTER. 






01JUL66 
415178 



04 NOV 66 
415233 



15FEB67 
415233B 



15MAY67 
411731 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 
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•lii DATA CARD 
(WILL BE DUP'O. INTO BLANK 
CARDS IF S/P SW/O-1) 



READ 111 
DATA CD. 
INTO DATA 
TABLE 



1442 PUNCH 
I PL CARD 




|/OO0 I 



BLANK CARDS 



PROGRAM DESCRIPTION 

THIS PROGRAM WILL PUNCH INTO 

BLANK CARDS ONE OF TWO WAYS. 

1. DUPLICATE FROM THE FIRST 
DATA CARD IN THE HOPPER. 

2. PUNCH THE IMAGE OF DATA 
ENTRY SWITCHES 0-11. 



WAIT 1 
SET 

CONSOLE 
SWS. 



S/P 



L». 



li 



DATA 



P I X X X 



1 /0002 



FEED l£t 
DATA CD. 
PAST 
PUNCH STN. 



-|^ ^f- 



D-l. 
0-0 
P-l. 



D.E. 
DUPLICATE FROM I ST. DATA CARD 
PUNCH CONTENTS OF O.E. SWS. 
PUNCH INTO COL.. I ONLY. (ONLY 
USED WHEN D-0) 




DUPL. 
{SW.O-Q 



BUILD 80 
WORD DATA 
TABLE FROM 
DATA ENTRY 
SWITCHES 



i 70012 



PUT STOP 
BIT AT 
80TH WORD 
IN DATA 
TABLE 



/interna l\ 
v interrupt j 



70016 



SENSE 
INTERNAL 
INTERRUPT 
ILSW 



1 70017 



WAIT 8 

ERROR 



' /O0I3 



A REG 



INTERNAL INTR. 
ILSW 



1 i /0018 



- INVALID OP CODE 

1 - PARITY ERROR 
t - S.P.V. 

3 - CAR CHECK 



RESET 
INTERRUPT 



PUNCH 
FROH DATA 
TABLE 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70. 
EC 431326 



DATE IS FEB 67 
EC 4I5233B 



DATE 15 MAY 67 
EC 41 1731 



2. OPERATING PROCEDURE 



I. 



2. 
3. 



4. 



6. 
7. 



PLACE THE I PL CARD, A CARD TO BE DUP- 
LICATED, AND SEVERAL BLANK CARDS IN THE 
HOPPER. (SEE SECTION 7 WHEN RUNNING 
THE 2ND 1442) 
SET "CHECK STOP" SW. ON. 
PRESS "PROGRAM LOAD" CONSOLE BUTTON.. THE 
PROGRAM SHOULD LOAD AND STOP AT WAIT I. 
(WAIT NUMBER CLEARED FROM B-ftEG BY CARD 
CS CYCLES). 

TO DUPLICATE THE FIRST CARD, SET 
SENSE/PROG. SW.0-1 AND PRESS START 
BUTTON. PUNCHING WILL BEGIN. 
TO PUNCH FROM THE OATA ENTRY SWITCHES, 
SET SENSE/PROG. SW.O-0. SET THE 
PUNCH IMAGE IN DATA ENTRY SWITCHES 0-11 
AND PRESS START BUTTON. PUNCHING WILL 
BEGIN. IF D.E.SW.12-1, ONLY COL. 1 
WILL BE PUNCHED. DATA ENTRY SW CHES <£- 
MAY BE CHANGED WHILE RUNNING. 
PROGRAM WILL STOP AT WAIT 8 IF A CAR 
CHECK ERROR OCCURS, 
WHEN RUNNING THE 2ND 1442. PLACE THE 
DATA CARDS IN THE 2ND 1442 HOPPER AND 
PRESS THE START BUTTON. PUCE THE I PL 
CARD IN THE FIRST 1442 HOPPER. PRESS 
THE START BUTTON ONCE TO RUN THE CARD 
IN AND ONCE TO BRING UP READY. GO TO 
STEP 2. 



3. SERVICE HINTS 



1. 



2 

3 

4 

5 

6 

7 

12 

13 

14 

15 



THE NUMBER OF COLUMNS PUNCHED ON EACH 
CARD CAN BE CONTROLLED BY MODIFYING- 
THE INSTRUCTIONS AT /0010 AND /00I2 
TO CHANGE WHERE THE TERMINATOR IS PLACED 

DSW 

ANY ERROR 

LAST CARD 

OPERATION COMPL. 

PARITY 

STOR.PROT. ERROR 

FD. CHECK AT W». STN. 

C.E. BUSY 

C.E. NOT RDY. 

BUSY 

NOT RDY. 



-__] 



DATE 02 DEC 68 
EC 411961 
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DATE 
EC NO. 



0000 





081D 


0001 





3001 


0002 





08 IF 


0003 





0820 


0004 





4804 


0005 





6003 


0006 





0815 


0007 





6009 


0008 





0015 


0009 


00 


4C280010 


OOOB 





61B0 


oooc 





0819 


0000 





D178 


OOOE 





7101 


OOOF 





600D 


0010 





C066 


0011 





E80A 


0012 





0064 


0013 





080C 


0014 





6003 


0015 





0000 


0016 





0803 


0017 





3008 


0018 





4840 


0019 





6003 


001A 





0000 


001 B 





0300 


001C 





0008 


0010 





0760 


001E 





0028 


001F 





1600 


0020 





0028 


0021 





1500 


0022 





0000 


0023 





1402 


0024 





0000 


0025 





1701 


0026 





0000 


0027. 





0740 



*** 1442 PUNCH SCOPE 
* 

ABS 
BEGIN XIO 



DUP 



ILSW 



WAIT 

XIO 

XIO 

BSC 

LDX 

XIO 

LDX 

DC 

BSC 

LDX 
XIO 

STO 

MDX 

LDX 

LD 

OR 

STO 

XIO 

LDX 

DC 

XIO 

WAIT 

BOSC 

LDX 

DC 

DC 



SPSW DC 
DC 

READ DC 
DC 

WRITE DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
E-ND 



FEED 



DSW 
DESW 



READ 

1 

FEED 

DSW 

E 

/0003 

SPSW 

/0009 
/0015 
. DUP.Z+ 

1 -80 

DESW 

1 /0078 

1 1 

/OOOD 
/0077 

SPSW 
/0077 
WRITE 
/0003 

ILSW 
8 

/0003 

/0300 
/0008 
/0760 
/0028 
/1600 
/0028 
/1500 

/1402 

/1701 

/0740 
BEGIN 



LOOP *** V, VI 



INIT. READ INTO LOCATION /0028. 

WAIT AFTER IPL. 

INIT. READ INTO LOCATION /0028. 

SENSE DSW. NOT <K EADY IN BIT 15. 

SKIP IF READY. (BIT 15=0) 

BRANCH TO /0003. 

SENSE PROG. SW' S. { SW 0=1 

TO DUPLICATE) 
BRANCH TO /0009 . 
INTERNAL INTERRUPT VECTOR. 
BRANCH TO /0010 IF BIT 0=1. 

(DUPLICATE) 
PUT -80 IN XR1. BUILD DATA TABLE. 
SENSE DATA ENTRY SW'S. 

(SW'S THRU 11=PUNCH DATA.) 
STORE DATA SW'S. XR1 +120. 
INCR XR1 + 1 (SKIP AFTER 80 LOOPS) 
8RANCH TO /OOOD. 

LOAD LAST WORD FROM DATA TABLE. 
OR IN /0008. 12 BIT STOPS PUNCHING 
STORE LAST WORD FROM DATA TABLE. 
INIT. WRITE FROM LOCATION /0028. 
BRANCH TO /0003. REPEAT PROGRAM 
INTERNAL INTR ENTRY 
SENSE INTERNAL ERROR ILSW. 
INTERNAL ERROR. 
RESET INTERNAL INTERRUPT 

SPARE LOCATION 

SENSE ILSW IOCC 

TERMINATOR BIT 

SENSE S/P SWITCHES IOCC 

INIT. READ INTO LOCATION /0028. 

READ IOCC (NOTE 1) 

INIT. WRITE FROM LOCATION /0028. 

WRITE IOCC (NOTE 1) 

CARD FEED IOCC ( NOTE 1) 

SENSE DSW IOCC ( NOTE 1) 

SENSE DATA ENTRY SWS IOCC (NOTE 1) 



*** NOTE 1 *** 

* 

*THIS LISTING IS FOR 

*THE FOLLOWING LOCATI 

LOCATION 



* 
* 
* 



/001F 
/0021 
/0023 
/0025 



THE FIRST 1442. 
ONS CONTAIN - 

CONTENTS 

/8E00 
/8D00 
/8C02 
/8F01 



FOR THE SECOND 1442, 



01 JUL 66 
415178 



04NOV66 
415233 . 



15FEB67 
415233B 



15MAY67 
411731 



020EC68 
411961 



14N0V69 
431319 



31JUL70 
431326 
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I/O SCOPE LOOP - 1442 READ (VII, VIM) 

( ■" ) (TUP) 



_J 



1 ' /OOOO 



READ 1ST 
CARD INTO 
TABLE 1. 



'PRE-PUNCHED 
DATA CARDS 



1^2 READ 
I PL CARD 



HEb7 

Y 
/ 
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I. PROGRAM DESCRIPTION 

READS AND COMPARES PRE-PUNCHED CARDS ONE 
OF TWO WAYS: : 

1. COMPARE ALL CARDS TO THE FIRST CARD. 

2. COMPARE ALL CARDS TO THE IMAGE IN DATA 
ENTRY SWITCHES 0-11. 

2. OPERATING PROCEOURE 



S/P SWS 



1 ' /OOOI 



WAIT 1 
SET 

CONSOLE 
SWITCHES 



D.E. SWS 



C=l COMPARE ALL CARDS 
TO THE FIRST CARD 
C-0 COMPARE ALL CARDS TO 
IMAGE IN D.E. SW O-lt 




II 



15 



"* COMPARE IMAGE 



E. SWS 



'70009 



BUILD TABLE 

I OF 80 WDS 

FROM D.E. 

SWS. 



TABLE 



i ' /OOOC 



READ CARD 

INTO 

TABLE 



/0028 

/0077 
/0078 

/00C7 



DATA 



DATA 



DATA 



DATA 



TABLE 2 



COL. 1 DATA 



COL. 79 DATA 



COL. 80 DATA 



f INTERNAL "> 
\^ INTERRUPT j 


\ 


I 


WAIT 8 
ERROR 


' 


r 



I 



4. 

5. 



6. 



7. 



8. 



PLACE THE IPL CARD FOLLOWED BY THE 
CARDS TO BE READ AND COMPARED IN THE 
1442 HOPPER. (SEE SECTION 8 WHEN 
RUNNING THE SECOND 1442). 
SET "CHECK STOP" SWITCH ON. 
PRESS "PROGRAM LOAD" CONSOLE BUTTON 
PROGRAM SHOULD LOAD AND STOP AT WAIT I 
(WAIT NUMBER CLEAREO FROM B-REG BY CARD 

SET SENSE/PROG. SW. 0-1 TO COMPARE THE 

1ST CARD WITH ALL FOLLOWING CARDS 

SET SENSE/PROG. SW. 0=0 TO COMPARE THE 

r«Ii ENTRY SW,TCH « W'TH ALL FOLLOWING 
CARDS. SET DATA IMAGE IN DATA ENTRY 
SWITCHES 0-11. 
PRESS CONSOLE "START" BUTTON. PROGRAM 

■ r^.*"" A CAR0 « ""PARE THE DATA AND 
REPEAT. 

PROGRAM WILL STOP AT WAIT 6 IF COMPARE 

ERROR OCCURS. PROGRAM WILL STOP AT 

WAIT 8 IF A CAR CHECK ERROR OCCURS 

WHEN RUNNING THE 2ND 1442, PLACE THE 

DATA CARDS IN THE 2ND 1442 HOPPER AND 

PRESS THE START BUTTON. PLACE THE IPL 

^O'N THE 1ST 1442 HOPPER. PRESS THE 

START BUTTON ONCE TO RUN THE CARD IN 

AND ONCE TO BRING UP READY. GO TO STEP J 
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NOTE: 



RESET ""\ 
t START J 



THE IOCC WORDS AT /001F AND /0021 CAN 
BE CHANGED TO /I601 OR /8E0I TO TEST 
THE PACK MODE CIRCUITRY. 




"fr /0016 



WAIT 6 

ERROR 



ERROR DATA 



CARD COL. IN ERROR 



CD. DATA WD. IN ERROR (TBL. 2) 



COMPARE DATA WD. (TBL. 1) 



A REG 



XR-1 



(XR-l)+(/0027; 



i I 



(XR-l)+(/QQ77 



DSW 

2 ANY ERROR 

3 LAST CARD 

4 OP. COMPL. 

5 PARITY 

6 STOR. PROT. ERROR 

7 FD. CHECK AT RD. STN. 

12 C.E. BUSY 

13 :.E. NOT ROY. 

14 BUSY 

15 NOT RDY. 



Vl 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



"ATE 15 FEB 67 
EC 415233 B 



DATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 



PROG ID 08C8-* 
PAGE 8 



*** 1442 READ SCOPE LOOP *** 
* 

ABS 
BEGIN XIO 

WAIT 



VII t VIII 



0003 00 4C28000C 

0005 6150 

0006 081D 



0007 


6009 


0008 


001A 


0009 


0127 


OOOA 


71FF 


OOOB 


6009 


OOOC 


0813 


OOOD 


0814 


OOOE 


1000 


OOOF 


4804 


0010 


600D 


0011 


6150 


0012 00 


C5000077 


0014 


B127 


0015 


1000 


0016 


3106 


0017 


71FF 


0018 


6012 


0019 


6002 


001A 


0000 


00 IB 


3008 


001C 


0000 


001D 


0000 


001E 


0028 


001 F 


1600 


0020 


0078 


0021 


1600 


0022 


0000 


0023 


1701 


0024 


0000 


002 5 


0740 


0026 


0000 


0027 


0760 



XIO 

BSC 
LDX 
XIO 

LOX 

DC 

STO 

MDX 

LDX 

XIO 

XIO 

NOP 

BSC 

LDX 

LDX 

LD 

CMP 



001E 

1 

/0026 

L /OOOC, 
1 80 
/0024 

/0009 

/001A 

1 /0027 

1 -1 
/0009 
/0020 
/0022 

E 

/OOOD 
1 80 
LI /0077 
1 /0027 



NOP 

WAIT 6 

MDX 1 -1 



* 

* 



LDX 

LDX 

DC 

WAIT I 

DC 

DC 

IOCC'S *** 



/0012 
/0002 



DC 
DC 
DC 

DC 
DC 
DC- 
DC 
DC 
DC 
DC 
END 



/0028 
/1600 
/0078 
/1600 

/1701 

/0740 

/0760 
BEGIN 



INIT. READ INTO LOCATION /0028. 

WAIT AFTER IPL. 

SENSE PROG. SW'S. (SW0=1 

COMPARE 1 ST CARD) 
Z+ BRANCH TO /OOOC IF BIT 0=1. 
PUT 80 IN XR1. 
SENSE DATA SW S (SW'S 

0-ll=COMPARE DATA) 
BRANCH TO /0009. 
INTERNAL INTERRUPT VECTOR. 
STORE DATA SW'S IN LOC /0027+XR1 

DECR. XRl BY \. SKIP AFTER 80 LPS. 
BRANCH TO /0009. 

INIT. READ INTO LOCATION /0078. 
SENSE DSW. PUTS NOT READY AT BIT 15 

SKIP IF READY. ( BIT 15 =0) 

BRANCH TO /OOOD. 

PUT 80 IN XRl. 

LOAD DATA FROM CARD. 

IS CARD DATA=1ST CARD, OR 

DATA ENTRY SW DATA. 
NO 

NOt COMPARE ERROR. 
YES. DECR. XRl BY 1. (SKIP AFTER 80 

LOOPS) 
BRANCH TO /0012.* 
BRANCH TO /0002 . 
INTERNAL INTR ENTRY 
INTERNAL ERROR. 



INIT. READ INTO LOCATION /0028. 

(NOTE 1) 

INIT. READ INTO LOCATION /0078. 

(NOTE 1) 

SENSE DSW, AND RESET. IOCC 

(NOTE 1) 

SENSE DATA SW ' S IOCC 

SENSE PROG. SW» S. IOCC 



* 

*** NOTE 1 *** 

* 

*THIS LISTING IS FOR 

*FOR THE SECOND 1442 

^LOCATIONS CONTAIN - 

* 



* 
* 



LOCATION 

/001F 
/0021 
/0023 



THE FIRST 1442. 
» THE FOLLOWING 



CONTENTS 



/8E00 
/8E00 
/8F01 



DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


.431326 


PAGE 


8A 



bPOocO'Oooccoooco o [ c_c jll P_QJDL.^ ccccccoCoc 



") 

I 

j o 
Jo 

1° 
o! 

o 

o 

c 

o 
o 
o 

Of 

o 

i 

'.) 

I 

o 

o' 

q 
o. 

Q 

d 

3- 
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I/O SCOPE LOOP - 1443 (IX) 



r 



/ |p L "\ /^-RESEf-^ 

V y I & START J 



' r /OOOO 



WAIT I 

SET 
CONSOLE 

SWS. 



W sw 

CARRIAGE I 
CONTROL CHAR | 



S/P SWS WILL BE PUT 
IMPOSITIONS 0-7 OF 
CONTROL I0CC ADDRESS 
WORD. (TABLE I) 



DE SWS 



/OOOC 



78 is 

X[*CHAR l*{xjx|^CHAR S3 (TABLE 2) 



XIO 

CONTROL 



_ / DEFINED BYA 
\J»J±J 



P/M 2183313 
PAGE 9 

1. PROGRAM DESCRIPTION 

WILL PERFORM A CARRIAGE CONTROL OPERATION. PRINT A 
LINE OF 120 CHARACTERS (ALTERNATE CHAR. 1 J S AND 2'S) 
AND REPEAT. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 1442 HOPPER. 

PRESS THE 1442 START BUTTON ONCE TO READ THE CARD 

IN AND ONCE TO BRING UP ''READY". FOR PAPER TAPE 

INPUT. PLACE THE DELETE HOLE SECTION OF THE PAPER 

TAPE OVER THE READ STATION. 

SET "CHECK STOP" SWITCH ON. 

PRESS "PROGRAM LOAD* CONSOLE BUTTON. PROGRAM WILL 

LOAD AND STOP AT WAIT I. 

SET THE CARRIAGE CONTROL MODIFIER IN SENSE/PROGRAM 

SWITCHES 0-7. (SEE TABLE 1). 

SET DATA ENTRY SWS. 2-7-CHARACTER I, AND SWS. 

10-15-CHARACTER 2. 

PRESS CONSOLE "START" BUTTON PROGRAM WILL PERFORM 

THE CARRIAGE CONTROL OPERATION, PRINT A LINE OF 

120 CHARACTERS, AND REPEAT. 

AT WAIT R 8 CHECK ERR ° R 0CCURS « THE PWGRAM WILL STOP 



2. 
3. 

4. 

5. 

6. 



7. 



" /O0I1 



BUILD 

60 WORD 

DATA TABLE 



' /0016 



XIO 

WRITE 




TABLE 1 CARRIAGE CONTROL CHARACTERS 



IMMEDIATE SKIP TO 



BLANC 

NUMERICS 



CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 
CHANNEL 8 
CHANNEL 9 
CHANNEL 10 
CHANNEL II 
CHANNEL 12 



BIT 
1 2 3 4 5 6 7 



IMMEDIATE SPACE 



1 SPACE 

2 SPACES 

3 SPACES 



0000 0001 

00 0000 10 

000000 I I 

0000 1 00 

00001 

0CO01 10 

00 0011 1 

00 1 000 

01 001 

1 010 

001 Oil 

01 100 



SKIP AFTER PR TO 



I 00001 

001 00010 
01 00 I 1 



CHANNEL I 
CHANNEL 2 
CHANNEL 3 
CHANNEL 4 
CHANNEL 5 
CHANNEL 6 
CHANNEL 7 
CHANNEL 8 
CHANNEL 9 
CHANNEL 10 
CHANNEL II 
CHANNEL 12 



SPACE AFTER PRINT 



bTT - 

1 2 3 It 5 6 7 



00 1 I 0001 
00 11 010 



0011 

00 I I 

001 I 
001 1 
0011 



0011 
1 00 
10 1 
110 
111 



0011100 
001 1 I 00 1 

001110 10 
001 1 1 1 1 

001111 00 



1 SPACE 

2 SPACES 

3 SPACES 



BIT BIT 



2 


10 


3 


11 


4 


12 


5 
6 


13 
14 


7 


15 



t 



5 




00010001 
00010010 
01 1 1 



TABLE II ALPHABETIC CHARACTERS 



BIT BIT 

2 10 

3 11 

4 12 

5 13 

6 14 

7 15 



13,33.52.63 
CH. SETS 



/& 



39.52.63 
CH. SETS 



13 



BAR SIZE ' 

SPECIAL CHAR. 

ARE FOUND ON 52. 



.13 . 
39 39 39 



63-«- 



13 
-»*52 



8 



-*»63 



DATE 01 JUL 66 
EC 1)15176 

OATE 14 NOV 69 
EC 431319 



CHARACTER CODING 

K T flS,f*' " ™f 15 TCB & ■"? ,5 »» * MTE 02 DEC 68 
EC 415233 EC415Z33B EC 411731 . EC 411961 



PROG ID O8C8-* 
PAGE 9 



OATE 31 JUL 7» 
EC 431326 
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APPENDIX B 



i 



DATE 
EC NO. 



I i. 



0000 





3001 


0001 





081E 


0002 





1000 


0003 





48 04 


0004 





6001 


0005 





100D 


0006 





6009 


0007 





1000 


0008 





0019 


0009 





4828 


OOOA 





6001 


OOOB 





0816 


OOOC 





0811 


00 OD 





0812 


OOOE 





100D 


00 OF 





4828 


0010 





600D 


0011 





6150 


0012 





0811 


0013 





D127 


0014 





71FF 


0015 





6013 


0016 





0805 


0017 





1000 


0018 





6001 


0019 





0000 


001A 





3008 


001B 





0000 


001C 





0027 


001D 





3500 


001 E 





0000 


001F 





3400 


0020 





0000 


0021 





3701 


0022 





001 E 


0023 





0260 


0024 





0000 


0025 





0740 


0026 





0000 


0027 





00 3C 



PART NO. 2183313 
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1443 PRINTER SCOPE LOOP *** 



* 

ABS 
BEGIN WAIT 
XIO 
NOP 
BSC 
LDX 
SLA 
LDX 
NOP 
DC 
BSC 
LDX 
XIO 
XIO 
XIO 
SLA 
BSC 
LDX 

LDX 
XIO 
STO 
MDX 
LDX 
XIO 
NOP 
LDX 



IX 



1 
/0020 

E 

/0001 
13 
/0009 

/0019 

Z + 

/0001 

/0022 

/001E 

/0020 

13 

Z + 

/OOOD 

1 80 
/0024 

1 /0027 

1 -1 
/0013 
/001C 



* 



INTERNAL 



/0001 
ERROR RTN 



WAIT AFTER IPL. 

SENSE DSW PUTS NOT READY AT BIT 15. 

SKIP IF READY. (BIT 15=0) 
BRANCH TO /0001. 
PUTS CARRIAGE BUSY AT BIT 0. 
BRANCH TO /0009. 

INTERNAL INTERRUPT VECTOR. 

SKIP IF CARRIAGE NOT BUSY. (BIT 0=0 

BRANCH TO /0001. 

READ PROG. SWS INTO LOCATION /001E. 

CTRL (DEFINED BV PROG SWS 0-7). 

SENSE AND RESET DSW. 

PUTS CARRIAGE BUSY AT BIT 0. 

SKIP IF CARR NOT BUSY. (BIT 0=0) 

BRANCH TO /OOOD. 

PUT 80 IN XR1. 

SENSE DATA SWS. ( SW 0-15=CHAR) 

STORE DATA SW ' S IN /0027 + XR1. 

DECR. XR1 BY 1. SKIP AFTER 80 LPS. 

BRANCH TO /0013. 

INIT. WRITE FROM LOCATION /0027. 

BRANCH TO /0001. 



*** 



DC 

WAIT 8 

DC 

*** IOCC'S *** 

DC /0027 

DC /3500 

DC 

DC /3400 

DC 

DC /3701 

DC /001E 

DC /0260 

DC 

DC /0740 

DC 

DC /003C 

END BEGIN 



INTERNAL INTR ENTRY 
INTERNAL ERROR. 



INIT. WRITE FROM LOCATION /0027. 

CONTROL. 

SENSE DSW, AND *ESET. 

READ PROG. SWS INTO LOCATION /001E 

SENSE DATA SW'S. 

WORD COUNT=60. BEGIN DATA TABLE. 



01JUL66 


04NOV66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


9A 



o 
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o 
o 
o 
o 
o 
o; 

O' 

°. 

G 

o! 

d 

3 

o 
o 

o 
o 
o 
o 
o 
q 



o 
o 
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1 8I\ MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

I/O SCOPE LOOP - 1627 (X) 



c 



IPL 



)/ RESET \ 
V^ «■ START J 



' 7oooo 



WAIT 1 
SET 
CONSOLE 
SWITCHES 



S/P SWS C • LOOP 

7 C ■ I WAIT AFTER EACH 

OPERATION 



P/N 2183313 
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1. PROGRAM DESCRIPTION 

WILL PERFORM TWO PLOT OPERATIONS. PROGRAM 
HAS THE OPTION TO LOOP OR WAIT AFTER EACH 
OPERATION. 

2. OPERATING PROCEDURE 



I CHAR )| J CHAR 2| 1 



' r /0002 



XIO 

WRITE 

A CHAR 



' 7000E 



DELAY MAY BE 

ENTERED 
SEE SERVICE 
HINT NO. I 



1 70012 



ALTERNATE 
CHARACTERS 




c 



INTERNAL 
INTERRUPT 







1 ' /OOOA 



SENSE 
INTERNAL 
INTERRUPT 

ILSW 



WAIT 2 



I 



\ i /OOOB 



WAIT 8 
ERROR 



A REG 



INTERNAL INTR 
DSW 



- INVALID OP CODE 

1 - PARITY ERROR 

2 - S.P.V. 



I r /000c 5 - CAR CHECK 



BRANCH 
BACK TO 
PROGRAM 



PEN DOWN 
— DRUM DOWN 
DRUM UP 

CARR. RIGHT 



08 



i CAR 

J | CARR LEFT 

PEN UP 



u 

48 i 



1 50 


A 

28 


30 



10 



20 



Wf~ 



w ,, u 



12 3 4 5 6 



■CHAR 1 



3 



13 14 15 
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*** 1627 SCOPE LOOP *** 



PART NO. 2183313 
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1. 



2. 
3. 



PLACE THE SINGLE IPL CARD IN THE 1442 

HOPPER. PRESS THE 1442 START BUTTON 

ONCE TO RUN THE CARD IN AND ONCE TO 

BRING UP READY. FOR PAPER TAPE INPUT, 

PLACE THE DELETE HOLE SECTION OF THE 

PAPER TAPE OVER THE READ STATION. 

SET "CHECK STOP* SWITCH ON. 

PRESS "RESET" AND 'PROGRAM LOAD' 

CONSOLE BUTTONS. THE PROGRAH SHOULD 

LOAD AND STOP AT WAIT 1. 

SET SENSE/PROG. SW. 7-0 TO PLOT 

CONTINUOUSLY. OR SW. 7-1 TO WAIT AFTER 

EACH PLOT COMMAND. 

SET CWR. I IN DATA ENTRY SWITCHES 

0-7 AND CHAR. 2 IN 8-15. 

PRESS START BUTTON. THE PROGRAM WILL 

PLOT CHAR. I THEN CHAR. 2 AND REPEAT. 

PROGRAM WILL STOP AT WAIT 8 IF A CAR 

CHECK ERROR OCCURS. 



3- SERVICE HINTS 

1. A TIME DELAY CAN BE ENTERED BETWEEN 
EACH PLOTTER OPERATION BY ALTERING 
LOCATION /OOOF. BY CHANGING FROM 
/FFFF TO /OOOO. A 1/6 SECOND DELAY 
WILL OCCUR (2 MICRO-SECOND SYSTEM). 
AS THE VALUE IN LOCATION /OOOF IS 
INCREASED, THE TIME DELAY WILL 
DECREASE. ENTER ANY VALUE BETWEEN 
/OOOO AND /7FFF. 



DSW 





SERVICE COMPL. 


1 


PARITY CHECK 






12 


C.E. BUSY 


13 


C.E. NOT RDY. 


14 


BUSY 


15 


NOT RDY. 



DATE 01 JUL 66 
EC 415178 
OATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 

EC 415233 
DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 415233B 



OATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 



PROG ID 08C8-* 
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L 









* 


ABS 




OOOO 





3001 


BEGIN 


WAIT 


1 


0001 





081C 




XIO 


DESW 


0002 





081D 




XIO 


WRITE 


0003 





081E 




XIO 


DSW 


0004 





1000 




NOP 




0005 





4810 




BSC 


- 


0006 





6003 




LOX 


/0003 


0007 





600E 




LOX 


/OOOE 


0008 





0009 




DC 


/O009 


0009 





OOOO 




OC 




OOOA 





0811 




XIO 


ILSW 


OOOB 





3008 




WAIT 


8 


OOOC 


00 


4CC00009 




BOSC 


I /0009 


OOOE 


00 


6500FFFF 




LDX 


LI /FFFF 


0010 





7101 




MDX 


1 


0011 





6010 




LDX 


/0010 


0012 





C814 




LDD 


OUT 


0013 





18C8 




RTE 


8 


0014 





D012 




STO 




0015 





080E 




XIO 


SPSW 


0016 





1808 




SRA 


8 


0017 





4804 




BSC 


E 


0018 





3002 




WAIT 


2 


0019 





6002 




LOX • 


/0002 


001A 





OOOO 




DC 




001 B 





OOOO 




DC 










*** IOCC'S 


*** 


001C 





OOOO 


ILSW 


DC 




001D 





0300 




DC 


/0300 


001 E 





0027 


DESW 


DC 


OUT 


001F 





0240 




DC 


/0240 


0020 





0027 


WRITE 


DC 


OUT 


0021 





2900 




DC 


/2900 


0022 





OOOO 


DSW 


DC 




0023 





2F01 




DC 


/2F01 


0024 





OOOO 


SPSW 


DC 




0025 





0760 




DC 


/0760 


0026 





OOOO 




DC 




0027 





OOOO 


OUT 


DC 
END 


BEGIN 



WAIT AFTER IPL. 

READ DATA Sw'S INTO LOCATION /0027. 
WRITE CHAR. FROM LOCATION /0027. 
SENSE DSW. PUTS RESPONSE AT BIT 0. 

SKIP IF RESPONSE, (BIT 0=1) 

BRANCH TO /0003. 

BRANCH TO /OOOE. 

INTERNAL INTERRUPT VECTOR. 

INTERNAL INTR ENTRY 

SENSE ILSW. 

INTERNAL ERROR. (TO LOOP, NOP WAIT) 

BRANCH OUT VIA LOCATION /0009. 

PUTS /FFFF IN X*l. BEGIN DELAY. 

INCR. XRl BY 1. 

BRANCH TO /0010. 

PUT CILOC. /002 7) IN A AND Q. 

ALTERNATES CHARACTERS IN A. 

STORES ALTERNATED CHARS. 

AT LOCATION /0 027. 
SENSE PROG. SW'S. (SW7=0 

TO PLOT CONTINUOUSLY) 
PUTS SW7 AT BIT 15. 
SKIP IF BIT 15 = 0. 

BRANCH TO /0002. 
SPARE LOCATION 
SPARE LOCATION 



SENSE ILSW IOCC 

READ DATA SW • S INTO LOCATION /0027. 

READ DATA ENTRY SW IOCC 

WRITE CHAR. FROM LOCATION /0027. 

WRITE IOCC 

SENSE DSW IOCC 

SENSE S/P IOCC 

DATA SW STORAGE, (' CHARACTERS). 



DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC N0„ 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 
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P/N 2183313 
PAGE II 



(3D C 



RESTART 



MOVE 
PROGRAM 



) 
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*** 1816 KEYBOARD SCOPE LOOP *** 

* 



PART NO. 2183313 
PAGE 11A 




TURNS 

PROCEED 

LIGHT 

ON 



1. PROGRAM DESCRIPTION 

WILL READ ANY KEYBOARD CHARACTER AND LOAD IT 
INTO THE A REGISTER. THE PROGRAM USES 
INTERRUPTS AND WILL SERVICE ANY 1816 ASSIGNED 
TO LEVELS 0-2 3. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 1442 HOPPER. 
PRESS THE 'START' BUTTON ONCE TO RUN THE 
CARD IN AND ONCE TO BRING UP 'READY.' 

2. SET 'CHECK STOP' SWITCH ON. 

3. PRESS 'PROGRAH LOAD' CONSOLE BUTTON. 
PROGRAM WILL LOAD AND STOP AT WAIT I. 

4. THE 1816 'PROCEED* LIGHT SHOULD BE ON. 
PRESS ANY KEY ON THE KEYBOARD. THE 
PROGRAM WILL READ THE 1816, LOAD THE A 
REGISTER WITH THE CHARACTER READ, AND STOP 
AT WAIT 1. (SEE KEYBOARD CHARACTER TABLE 
IN APPENDIX A). THE ILSWWILL BE IN THE 
Q-REG AND THE DSW IN XR-I. 
REPEAT. 



3. 



5. 

SERVICE HINTS 

1. THE 'PROCEED' LIGHT MUST BE ON BEFORE A 
CHARACTER KEY WILL CAUSE AN INTERRUPT. 

2. THE 'PROCEED* LIGHT CAN BE TURNED ON BY 
PRESSING THE 'KEYBOARD REQUEST' KEY. 

3. THE 'RESET' BUTTON ON THE P.C. CONSOLE 
AND THE 'RESTORE* KEY ON THE 1816 WILL 
RESTORE ALL KEYS ON THE KEYBOARD. 



A REG 
CHAR JUST READ ) 
SEE APPENDIX A 



PRESS KEY 



/003B 



DSW 



XIO DSW 



; ' /QQ3F 

r7 



i /Q040 



BRANCH 

OUT TO 

LOC /0035 



BIT 


DESCRIPTION 





PTR. SERV. REQ. 


1 


KEYBOARD SER. REO.. 


2 


KEYBOARD REQ. 


4 


PRTR. BUSY 


5 


PRTR. NOT RDY. 


6 


KEYBOARD NOT RDY. 


7 


S.P.V. 


8 


KEYBOARD PARITY ERROR 


9 


PRTR. PARITY ERROR 


12 


C.E. PRTR. BUSY. 


13 


C.E. PRTR, (OR 




KEYBOARD) NOT RDY. 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC I»3I3I9~ 



DATE Off NOV 66 
EC 415233 

DATE 31 JUL 70 
EC *»31326 



DATE 15 FEB 67 
Ee 415233B 



DATE 15 MAY 67 
EC 411731 



DATE 12 DEC 68 
EC 41 I96I 



PROG ID 08C8-* 
PACE II 



XI, XII 











ABS 






02 80 








ORG 


40 




0028 





611F 


BEGIN 


LDX 


1 31 


NUMBER OF INST TO MOVE 


0029 





C108 


CONT 


LD 


1 8 


PICK UP INST 


002A 





D130 




STO 


1 48 


* AND MOVE 


002B 





C004 




LD 


ADRS 


GET INTR VECTOR 


002C 





D108 




STO 


1 8 


* AND SET IN PLACE 


002D 





71FF 




MDX 


1 -1 




002E 





70FA 




MDX 


CONT 




002F 





6031 




LDX 


START 




0030 





0038 


ADRS 

* 

START 


DC 


ENTRY 


INTERRUPT ADDRESS 


0031 





C010 


LD 


INST 


GET BCH INST 


0032 





DOCD 




STO 


/O 


* AND SET IN AT ZERO 


0033 





0810 




XIO 


UNMK1 


UNMASK LEVEL 1 


0034 





0811 




XIO 


UNMK2 


UNMASK LEVEL 2 


0035 





0816 


WAIT 


XIO 


CNTL 


TURN ON PROCEDE 


0036 





con 




LD 


ILSW 


GET CHAQATER CODE 


0037 





3001 




WAIT 


1 


WAIT FOR INTERRUPT 


0038 





0000 


ENTRY 


DC 


/oooo 


INTERRUPT ENTRY 


0039 





080E 




XIO 


ILSW 


SENSE ILSW 


003A 





18D0 




RTE 


16 


SAVE ILSW IN O-REG 


003B 





080E 




XIO 


DSW 


SENSE DSW 


003C 





D001 




STO 


TEMP+1 




003D 


00 


65000000 


TEMP 


LDX 


LI *-* 


XR 1 HAS DSW 


003F 





08 OE 




XIO 


READ 


READ -KEYBOARD 


0040 


00 


4C400035 




BOSC 


L WAIT 


RESET INTR AND GO TO WAIT 


0042 





7030 


INST 


MDX 


X START-1 


USED FOR RESET-START 


0044 




0000 




BSS 


E 




0044 





0000 


UNMK1 


DC 






0045 





0480 




DC 


/0480 


UNMASK IOCC 


0046 





0000 


UNMK2 


DC 






0047 





0481 




DC 


/0481 


UNMASK IOCC 


0048 





0000 


ILSW 


DC 


/OOOO 


INPUT CHARACTER 


0049 





0300 




DC 


/0300 


SENSE ILSW IOCC 


004A 





0000 


DSW 


DC 






004B 





OF 03 




DC 


/OF 03 


SENSE DSW IOCC 


004C 





0000 


CNTL 


OC 






004D 





0C02 




DC 


/0CO2 


CONTROL IOCC 


004E 





0048 


READ 


DC 


ILSW 


INPUT AREA 


004F 





0A02 


* 


DC 


/0A02 


READ KEYBOARD IOCC 


0050 





0028 


t*SD 


BEGIN 





*** NOTE 1 *** 
* 

*THIS LISTING IS FOR THE FIRST 1816. FOR 
*THE SECOND 1816t THE FOLLOWING STORAGE LOCATIONS 
*CONTAIN - 
* 
"* LOCATION CONTENTS 

* /004B /7F03 

* /0040 /7C02 

* /004F /7A02 



DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


11A 
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2310A S EEK SCOPE LO OP (XIII 



PROGRAM FOR THE 1800 SYSTEM 

) 



GjlD (Tap 



i ' /0009 



WAIT 1 SET 

CONSOLE 

SWS. 



S/P sw. 7 



AREA 
CODE 



DR. t -/20 
DR. 2 - /40 
DR. 3 -/48 



7 8 



CYL. 



15. 



..BEGINNING Ino. OF CY~ 
r CYL. * -to SEEK "** 



i r /OOOD 




(CYL. COUNT) 
D.E. SWS. 



REVERSE 
DIRECTION 
OF SEEK 



1 < /00I5 



XIO 

SEEK 



»ST SEEK - 
BEGIN. CYL. 
SW. 0-7 



ALL OTHER 
SEEKS= CYL. 
COUNT SWS. 
8-15 



'WAIT OPTION 
IN LOC/0016 . 
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I. PROGRAM DESCRIPTION 

WILL MOVE THE CARRIAGE BETWEEN ANY TWO 
CYLINDERS. THE PROGRAM WILL ACCESS TO THE 
BEGINNING CYLINDER, REVERSE DIRECTION AND 
ACCESS THE NUMBER OF CYLINDERS INDICATED IN 
THE CYLINDER COUNT. THE PROGRAM WILL LOOP. 
ALTERNATING IN THE FORWARD AND REVERSE 
DIRECTION. NO DATA WILL BE READ OR WRITTEN 
ON THE DISK. 



. OPERATING PROCEDURE 

'■ p»c! Sf ?nS LE ' PL CARD ,N THE ,W2 H0PP ». 
PRESS THE 1442 START BUTTON ONCE TO RUN THE 

CARD IN AND ONCE TO BRING UP "READY 1 . 1 FOR PAPER 

TAPE INPUT, PUCE THE "DELETE HOLE" SECTION OF 

THE PAPER TAPE OVER THE READ STATION. 

SET "CHECK STOP" SWITCH ON. 

PRESS "RESET" AND "PROGRAM LOAD" CONSOLE 

BUTTONS. THE PROGRAM WILL LOAD AND STOP AT 

WAIT I. (B REG. -/300I) 

?rj"! SENSE/PR0G - SWS. TO SELECT THE DRIVE 

• O Be RUN • 

DRIVE I - /20 

DRIVE 2-/40 

DRIVE 3-/48 

SET DATA ENTRY SWITCHES 0-7 TO SPECIFY THE 

STARTING CYLINDER NUMBER AND SWITCHES 8-15 TO 

SPECIFY THE NUMBER OF CYLINDERS TO SEEK. (SEE 

HEX TO DECIMAL CONVERSION TABLE IN THE FLOW 

CHART.) 

PRESS CONSOLE START BUTTON. THE PROGRAM WILL 
SEEK FORWARD BY THE BEGINNING CYLINDER COUNT. 
SEEK BACK BY AMOUNT OF SEEK COUNT SEEK 
FORWARD BY AMOUNT OF SEEK COUNT. SEEK BACK 
BY AMOUNT OF SEEK COUNT, ETC. 

i™ l^Wll^ ERR0R 0CCUR S. ™ E PROGRAM WILL 
STOP AT WAIT 8. 



2. 
3. 



DECIMAL TO HEX CONVERSION 
TABLE 



CYLINDER 
NUMBER 
IN DECIMAL 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 



DATA ENTRY 
SWITCH SETTING 
IN HEX 



OA 

14 

IE 

28 

32 

3C 

46 

50 

5A 

64 

6E 

78 

82 

8C 

96 

AO 

AA 

B4 

BE 

C8 



DSW 





1 

2 

3 

4 

5 

6 

7 

8 

9 

11 

12 

14-15 



ANT ERROR - 

OP. COMPL. 

DISK NOT RDY. 

DISK BUSY (R/W OR CARR.) 

CARR. HOME 

PARITY CHECK ERROR 

STOR. PROT. ERROR 

DATA ERROR 

WRITE SEL. ERROR 

DATA OVERRUN 

C.E. NOT RDY. 

C.E. BUSY 

SECTOR COUNT. 



SERVICE HINTS 

I. WHEN SCOPING THE SINGLE SHOT THAT PERMITS 
THE HEADS TO SETTLE, THE SEEK OPERATION 
SHOULD MOVE THE CARRIAGE AT LEAST FIVE 
CYLINDERS. THIS WILL INSURE THAT THE 
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I \ 



i I 



DATE 01 JUL 66 
EC 415178 



DATE 04 NOV 66 
EC 415233 



DATE 15 FEB 67 
EC 415233B 



DATE 15 MAY 67 
EC 41 1731 



DATE 02 DEC 68 
EC 411961 



OATE 14 NOV 69 
EC 4H3I9 



PROG ID 08C8-* 
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DATE 31 JUL 70 
EC 431326 



0000 





3001 


0001 





0810 


0002 





E01A 


0003 





E81A 


0004 





0020 


0005 





D021 


0006 





E81B 


0007 





6009 


0008 





001B 


0009 





D019 


OOOA 





0816 


00 OB 





1808 


OOOC 





0019 


OOOD 





0816 


OOOE 





C018 


00 OF 





F010 


0010 





0016 


0011 





0811 


0012 





1001 


0013 





4810 


0014 





6011 


0015 





0810 


0016 





1000 


0017 





0809 


0018 





EOOB 


0019 





DOOC 


001 A 





600E 


001B 





0000 


001C 





3008 


001D 





F800 


001 E 





0404 


001F 





0760 


0020 





0004 


0021 





0740 


0022 





0701 


0023 





0005 


0024 





OOFF 


0025 





0004 


0026 





0000 


0027 





0000 
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*** 1810A SEEK SCOPE LOOP *** XIII 

ABS 
BEGIN WAIT 1 

XIO /001F 



AND 

OR 

STO 

STO 

OR 

LOX 

DC 

STO 

XIO 

SRA 

STO 

XIO 

LD 

EOR 

STO 

XIO 

SLA 

BSC 

LOX 

XIO 

NOP 

XIO 

AND 
STO 
LDX 
DC 

WAIT 
* 
*** IOCC'S 

* 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
END 



/001D 
/001E 
/0025 
/0027 
/0022 
/0009 
/001B 
/0023 
/0021 

8 

/0026 

/0024 

/0027 

/0020 

/0027 

/0023 

1 

/0011 
/0026 

/0021 

/0024 
/0026 
/OOOE 

8 



/F800 
/0404 
/0760 
/0004 
/0740 
/0701 
/0005 
/OOFF 
/0004 



BEGIN 



WAIT AFTER IPL. 
SENSE PROG. SW' S. 

DRI=/20, DRW 40, 0R3=/48 
AND IN /FROO CLEAR CE SW'S TO ZERO 
OR IN /0404. BUILDS SEEK IOCC. 
STORE IOCC TO SEEK HOME. 
STORE IOCC TO SEEK. 

OR IN /0701. BUILDS SENSE DSW IOCC 
BRANCH TO /0009. 
INTERNAL INTERRUPT VECTOR. 
STORE IOCC TO SENSE OSW. 
SENSE DATA SW'S. 

SW'S TO 7 = INIT SEEK COUNT 

PUTS INITIAL SESK CT IN SEEK IOCC 

SEEK HOME. 

TOGGLE BIT 13 IN SEEK IOCC 
AT LOC. /0027, IN ORDER 
TO REVERSE DHECTION OE SEEK. 

SENSE DSW. 

PUTS OP COMPLETE AT BIT 0. 

SKIP IF OP COMPLETE. (BIT 0=1) 

BRANCH TO /0011. 

SEEK. 

SENSE DATA SW • S . 

SW'S 8 THRU 15 = SEEK COUNT. 
AND IN /OOFF. CLEARS BIT THRU 7. 
PUTS SEEK COUNT IN SEEK IOCC. 
BRANCH TO /OOOE. REPEAT SEEK LOOP. 
INTERNAL INTR ENTRY 
INTERNAL ERROR. 



CONSTANT. 

CONSTANT. 

SENSE PROG. SW« S. 

CONSTANT. 

SENSE DATA SW'S. 



SENSE DSW AND RESET. 
SEEK HOME. 

SEEK ?OUNT. 



OATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG 10 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


12A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

18I0A-B WR/RD/CMP SCOPE LOOP (XIV, XV, XVI) 



C3D GID 



/OOOO 



WAIT I SET 
CONSOLE 
SWS. ^ 



P.E. SW. 15 



«•• DATA PATTERN •• 



r /OOOA 



BUILD 
WRITE 
TABLE 



THE WORD COUNT IS NORMALLY 
/0I4I. LOC./0002 AND /00I8 
MAY BE SET TO ANY DESIRED 
WORD COUNT. 



WRITE TABLE 



\ ' /OOOD /0 °50 




w/0012 




/0191 



/0250 



WORD COUNT 



DATA 



DATA 



DATA 



DATA 



READ TABLE 



/039I 





(" RESET \ 
t START J 



WAIT 6 
ERROR 



T 



A REG. 



INCORRECT 
DATA 



XR-I POINTS TO 
THE WORD IN THE 
READ TABLE THAT 
DID NOT COMPARE 
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1* PROGRAM DESCRIPTION 

WRITES A FULL SECTOR (321 WORDS) FROM 
STORAGE LOCATIONS /0051- /0I9I ON TO SECTOR 
ZERO OF WHEREVER THE CARRIAGE IS LOCATED.. 
IT WILL THEN READ INTO STORAGE LOCATIONS 
/025I-/039I, AND COMPARE THE TWO TABLES. 



2. OPERATING PROCEDURE 

1. PUCE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY';. FOR PAPER TAPE 
INPUT, PUCE THE "DELETE HOLE" PORTION 
OF THE PAPER TAPE OVER THE READ STATION* 

2. SET "CHECK STOP" SWITCH ON. 

3. PRESS "RESET" AND "PROGRAM LOAD" ' 
CONSOLE BUTTONS. THE PROGRAM WILL 

' LOAD AND STOP AT WAIT I. 

4. SET THE DESIRED DATA PATTERN IN THE 
DATA ENTRY SWITCHES, 

* CAUTION * DO NOT USE ON CUSTOMER PACK. 
INSURE THAT THE CARRIAGE IS NOT 
LOCATED ON ONE OF THE C.E. CYLINDERS 
< 90 10 ' "°,0> 

5. PRESS THE CONSaE "START" BUTTON. THE 
PROGRAM WILL RUN IN A WRITE/READ/ 
COMPARE LOOP. IF THE PROGRAM IS 
READING AND WRITING, THE "C.S. SERV." 
CONSOLE LIGHT WILL GLOW FAINTLY. 
IF A DATA COMPARE ERROR OCCURS, THE 
PROGRAM WILL STOP AT WAIT 6. 
IF A CAR CHECK ERROR OCCURS, THE 
PROGRAM WILL STOP AT WAIT 8. 
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6. 



3. 



2. 



3. 

4. 




I 

2 

3 

if 

5 

6 

7 

8 

9 

11 

12 

14-15 



SERVICE HINTS 

1. LOCATIONS /0002 AND /0018 CONTAIN THF 
r%\lT; T ° M0D,FY THE SiU o7 

™ ™ ATA table > change thes e locations 

TO THE DESIRED NO. THEN PRESS "RESET" 
AND "START BUTTONS. 
TO CHANGE THE SECTOR NO. , ALTER THE 
"* «?« HEX DIGIT IN LOCATIONS /002S 

T °"- THE PROGRAM NORMALLY USES 
SECTOR ZERO. ENTER 1-7 TO SELECT ANY 
OTHER SECTOR. WY 

™. C0NTINU0US "*'" OPERATION, 
rT? E , THE Xl ° AT /00, 2 TO /600D (LDX) 
FOR A CONTINUOUS READ OPERATION '* 
CHANGE THE LDX AT /001? TO/601 2 (LDX) 
DSW *«•»*#• 

ANY ERROR 

OP. COMPL. 

DISK NOT RDY. 

DISK BUSY (R/W OR CARR.) 

CARR. HOME 

PARITY CHECK ERROR 

STOR. PROT. ERROR 

DATA ERROR 

WRITE SEL. ERROR 

DATA OVERRUN 

C.E. NOT RDY. 

C.E. BUSY 

SECTOR COUNT 



DATE 01 JUL 66 
EC 41 51 78 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



OATE 15 FEB 67 
EC 41S233B 



DATE 15 MAY 67 
EC 41 1731 



DATE 02 DEC 68 
FC 411961 
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' I 



I 
DATE 

i ec no. 

1 

i 



0000 3001 

0001 00 650001*1 
0003 00 6D000250 

0005 694A 

0006 0802 



*** 1810A AND B WR/RD/CMP SCOPE LOOP *** 

ABS 
BEGIN WAIT 
LDX 



XIV, XV, XVI 



0007 

0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 

00 OF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0019 
0013 
001C 
0010 

001 E 



600A 

0021 

0740 

D150 

71 FF 

6 00 A 

0816 

0814 

1001 

4810 

600E 

0813 

08 OF 

1001 

4810 

6013 
00 650001*1 
00 C5000250 
B150 
1000 
3006 
71FF 



001F 
0020 O 



0021 

0022 



6019 
6001 



0000 
3008 



STX 

STX 

XIO 

LDX 

DC 

DC 

STO 

MDX 

LDX 

XIO 

XIO 

SLA 

BSC 

LDX 

XIO 

XIO 

SLA 

BSC 

LDX 

LDX 

LD 

CMP 

NOP 

WAIT 

MDX 

LDX 
LDX 



LI /0141 
LI /0250 

1 /0050 

/0009 



/OOOA 

/0021 

/0740 

/0050 

-1 

/OOOA 

/0024 

/0023 

1 



LI 

LI 

1 



/OOOE 
/0026 
/0023 
1 

/0013 
/0141 
/O250 
/0050 

6 
-1 

/0019 
/0001 



WAIT AFTER IPL. 

PUT 321 IN XR1. THIS IS THE WD CT 

PUTS WORD COUNT IN READ TABLE 

LOC. /0250. 
PUTS WORD COUNT IN WRITE TABLE 

LOC. /0050. 
SENSE DATA SW'S. 

SW'S THRU 15 = WRITE DATA 
BRANCH TO /OOOA. 
INTERNAL INTERRUPT VECTOR. 
IOCC-SENSE DATA SW'S. 
STORE DATA SW'S IN WRITE TABLE. 
DECR. XRl (SKIP AFTER 321 LOOPS). 
BRANCH TO /OOOA. 

INIT. WRITE FROM LOCATION /0050. 
SENSE DSW. 

PUTS OP COMPLETE AT BIT 0. 
SKIP IF OP COMPLETE. (BIT 0=1) 
BRANCH TO /OOOE . 
INIT. READ INTO LOCATION /0250. 
SENSE DSW. 

PUTS OP COMPLETE AT BIT 0. 
SKIP IF OP COMPLETE. (BIT 0=1) 
BRANCH TO /0013. 

PUT 321 IN XRl. THIS IS THE WD CT. 
LOAD WORD FROM <*EAD TABLE. 
IS RDTBL WORD=WRTBL WORD. 
NO 

NOt COMPARE ERROR. 
YES. DECR. XRl BY 1. 

SKIP AFTER 321 LOOPS. 
BRANCH TO /0019. 
BRANCH TO /0001 . REPEAT PROGRAM. 



* 

* 



INTERNAL INTERRUPT ROUTINE *** 



0023 2701 

0024 0050 

0025 2500 



0026 

0027 



0250 
26 00 



DC 

WAIT 8 

* 

*** IOCC'S *** 

* 

DC /2701 

DC /0050 

DC /2500 

* 

DC /0250 

DC /2600 

END BEGIN 



INTERNAL INTR ENTRY 
INTERNAL ERROR. 



SENSE DSW AND R6SET. (NOTE 1) 
INIT. WR FROM LOC /0050. WC=321 
(WRTBL IS AT LOC /0050 - /0191) 

(NOTE 1) • 

INIT. RD FROM LOC. /0250. WC=321 
(RDTBL IS AT LO C /0250 - /0391) 

(NOTE 1) 



*** NOTE 1 *** 

* 

*THIS LISTING IS FOR DRIVE NO. 1. FOR DRIVE NO. 2 
*AND 3, THE FOLLOWING STORAGE LOCATIONS CONTAIN - 
* 

* LOCATION DRIVE 2 DRIVE 3 
* 

* /0023 /4701 /4F01 

* /0025 /4500 /4D00 

* /002 7 /4600 /4E00 



01JUL66 
415178 



04N0V66 
415233 



15FEB67 
415233B 



15MAY67 
411731 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 



PROG ID 
PAGE 
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ic B oprisjp^Ac^5 ENosT,c program for the ,8o ° sm ** 

I/O SCOPE LOOP - 2400 CONTROL (XVII) 



T - TAPE UNIT OR I 

■ BIT DENSITY FOR 7 TRACK 

00 - 800 BPI 
10 - 556 BPI 

01 - 200 BPI 

F - CONTROL FUNCTIONS 
000-REWIND s, UNLOAD 
001-WRITE TAPE MARK 
OIO-ERASE 
OII-BACKSPACE 
100-REWIND 




P/N 2I633IS 

PACE 14 

1. PROGRAM DESCRIPTION 

WILL EXECUTE ANY ONE OF THE FIVE CONTROL 
FUNCTIONS. vumnvi. 

1. REWIND AND UNLOAD 

2. WRITE TAPE MARK 
3- ERASE 

4. BACKSPACE 
5 REWIND 

2 OPERATING PROCEDURE 



;> 



Jdsw ERROR BITS I 

r ' 



A REG 



* IN DSW TABLE 
INDICATES AN 
ERROR CONDITION 



INTERNAL INTR~) 




1 
2 
3 



INVALID OP CODE 
PARITY ERROR 
S.P.V. 
CAR CHECK 




3. 

4. 

5. 



LOAD THE TAPE DRIVE AND MAKE *READY* 
PLACE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP READY! FOR PAPER TAPE INPUT 
PLACE THE DELETE HOLE SECTION OF THE 
PAPER TAPE OVER THE READ STATION. 
SET CHECK STOP' SWITCH ON. 
PRESS 'PROGRAM LOAD' CONSOLE BUTTON 
PROGRAM WILL LOAD AND STOP AT WAIT i 

?« T » S/ ?» SW - 2 T ° SELECT ™ E TAPE «H IT 
(0 OR I). SET S/P SWS. 3 AND 4 TO 
INDICATE 7 TRACK BIT DENSITY. 00=800 
BPI 10=556 BPI 01=200 BPI. SET S/P 
SWS. 5.7 TO SELECT THE CONTROL OPERATION 
OO0=REWIND AND UNLOAD. 00 1 =WR | TE TAPE 
HARK. 0I0=ERASE. OII-BACKSPACE 
100=REWIND. 
PRESS "START* CONSOLE BUTTON PROGRAM 

s/p L swSs w 0PERAT,0N DEFIMED »" 
IF AN ERROR IS DETECTED IN THE DSW 
THE PROGRAM WILL STOP AT WAIT 6 ' 
IP A CAR CHECK ERROR OCCURS, PROGRAM 
WILL STOP AT WAIT 8. ™°wmw 

SERVICE HINTS 

K A BACKSPACE AT LOAD POINT WILL GIVE A 
COMMAND REJECT. PLACE A NOP AT 
LOCATION /0015 TO LOOP. 



DSW 



8 






1 

*2 

3 

--4 

*S 

*6 

-7 

■-8 

9 

*10 

*II 

12 

13 

III 



Ui 



SPARE 

TAPE UNIT I SELECT 

COMMAND REJECT 

END OF TABLE 

CHAIN STOP - 

STO PROT. VIOLATION 

TAPE DATA ERROR 

BUS OUT/PC PARITY 

DATA OVERRUN 
OPERATION COMPLETE 

CE DIAGNOSTIC IND. 
WRONG LENGTH REC. 
AT LOAD POINT 
TAPE IND. OR MARK 
TAPE BUSY OR RWND. 
TAPE BUSY OR NOT RDY 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 0<t NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 415233B 



DATE 15 mv 67 
EC 41 173 1 



OATt 02 DEC 68 
EC 411961 
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1 




*** 


2400 CONTROLt SC 


1 






ABS 


- 


0000 


3001 


BEGIN WAIT 


1 


0001 


081D 




XIO 


SPSW-1 


| 0002 


1808 




SRA 


8 


0003 


E81C 




OR 


ILSW 


0004 


D022 




STO 


/0027 


0005 


E01C 




AND 


DSW 


0006 


E810 




OR 


REWD 


0007 


6009 




LDX 


/0009 


0008 


001A 




DC 


/001A 


0009 


D01B 




STO 


REWD+1 


000 A 


E816 




OR 


ILSW+1 


OOOB 


0017 




STO 


DSW+1 


00 OC 


0816 




XIO 


DSW 


OOOD 


4804 




BSC 


E 


OOOE 


600C 




LDX 


/OOOC 


OOOF 


1802 




SRA 


2 


0010 


4804 




BSC 


E 


0011 


6018 




LDX 


/0018 


0012 


1002 




SLA 


2 


0013 


E012 


* 


AND 


CNTL 


0014 


4820 


BSC 


Z 


0015 


3006 




WAIT 


6 


0016 


0810 




XIO 


CNTL 


0017 


6001 




LDX 


/0001 


0018 


080C 




XIO 


REWD 


0019 


600C 




LDX 


/OOOC 


001 A 


0000 




DC 




0016 


0805 




XIO 


ILSW 


001C 


3008 




WAIT 


8 


001D 00 


4CC0001A 




BOSC I 


/001A 


001 F 


0760 


SPSW 


DC 


/0760 


0020 


7400 


ILSW 


DC 


/7400 


0021 


0300 




DC 


/0300 


0022 


0020 


DSW 


DC 


/0020 


0023 


7700 




DC 


/7700 


0024 


7404 


REWD 


DC 


/7404 


002 5 


7404 




DC 


/7404 


0026 


2FB0 


CNTL 


DC 


/2FB0 


0027 


7400 




DC 


/7400 


0028 


0000 




END BEGIN 



DATE 
EC NO. 



01JUL66 
415178 



04NOV66 
415233 



15FEB67 
415233B 



15MAY6 7 
411731 



XVII 



WAIT AFTER IPL. 
SENSE PROG. SW'S. 

OR IN /7400. 

STORE IOCC TO CONTROL. 

AND IN /0020. 

OR IN /7404. 

BRANCH TO /0009. 

INTERNAL INTERRUPT VECTOR. 

STORE IOCC TO REWIND. 

OR IN /0300. 

STORE IOCC TO SENSE DSW. 

SENSE OSW. PUTS BUSY AT BIT 15. 

SKIP IF NOT BUSY. (BIT 15=0) 

BRANCH TO /OOOC . 

PUTS TAPE INDICATOR AT BIT 15. 

SKIP IF NOT TAPE IND. (BIT 15=0) 

BRANCH TO /0018. 

AND IN /2FB0. LEAVES ERROR BITS 

IN ACCUM. 
SKIP IF NO ERRCRS. (ACCUM 0) 
ERROR DURING CONTROL. 
CONTROL. 

BRANCH TO /0001 . REPEAT PROGRAM. 
REWIND. 

BRANCH TO /OOOC. 
INTERNAL ENTR ENTRY 
SENSE ILSW. 
INTERNAL ERROR. 

BRANCH OUT VIA LOCATION /001A. 
SENSE PROG. SW'S. 
CONSTANT. 

SENSE ILSW IOCC, OR CONSTANT. 
CONSTANT. BIT 10=TAPE DRIVE 1. 
SENSE DSW IOCC 
CONSTANT. 
REWIND IOCC 
DSW ERROR IMAGE. 
CONTROL IOCC 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS "'"" 

2400 INTR. READ SCOPE WOP (XVIII, XIX) 



c 



Tplto \ 
loc. /ooia J 



(reset N 
<■ START J 



WAIT I SET 
CHECK STOP 
SV. ON 



/0040 



' /004I 




j /004 b 



SET XI0 
TO 

REWIND 



XIO 

loU? P. *WND. 
WO 2 BKSPt 
\XR 4 READ 



~\ /004e 



SET XIO 
TO 

BACKSPACE 



X 



READ TABU 
LOCATION 
/0067 



\' /0050 



WAIT 2 
WAIT FOR 
INTERRUPT 



> 

-V;* 



DATE 01 JUL 66 
EC 415178 

DATE I 4 NOV 69 
EC 431319 







P/N 2183313 
PAGE IS 



'• PROGRAM DESCRIPTION 

(SEE NOTE I), REWIND WHEN END OF TAPE IS 

DETECTED, AND REPEAT. 

THIS PROGRAM OPERATES UNDER CONTROL OF 

INTERRUPTS ON ANY ASSIGNED LEVEL 0-13. 
TO OPERATE ON LEVELS 14-23. SEE SERVICE i 
HINTS. NOTE -PROGRAM MUST BE LOADEO INTO 
CORE STARTING AT LOCATION /OO'lO. 



2. OPERATING PROCEDURE 

u JSSSsilS* 01 T0 /005A * (SETS VECT0 *- 
Tu£%SF lK - /000 °- (BRANCH 

SET THE "CHECK STOP" SWITCH ON. 
PLACE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE "START" BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE INPUT. 

t»»MX 2 ELETE SKT,0N 0F THE PAPER 
TAPE OVER THE READ STATION 

5.. LOAD PROGRAM STARTING AT LOCATION /0040. 

a) SET I -COUNTER TO /0040. 

b) PRESS "PROGRAM LOAD" BUTTON ON 
CONSOLE. PROGRAM SHOULD LOAD AND 
STOP AT WAIT I. 

LOAD THE TAPE DRIVE WITH THE TAPE TO 
BE READ AND MAKE "REABY". (NORMALLY A 
TAPE GENERATED BY THE 2400 WRITE-READ- 
COMP. PROGRAM) W " 

PRESS "START" CONSOLE BUTTON. PROGRAM 
WILL START READING TAPE. "«*"*» 

IF AN UNEXPECTED INTERRUPT IS RECEIVED 
THE PROGRAM WILL STOP AT WAIT 6. 



2. 

3. 

4. 



6. 



7. 

8. 



SERVICE HINTS 

I. THIS PROGRAM SETS A WORD COUNT OF 
/OOlA CORRESPONDING TO THE RECORD 
LENGTH OF THE 2400 WRITE-READ-COMP 
SCOPE LOOP. TO CHANGE WORD COUNT ALTER 
LOCATION /0067. ' " 

11 IUL TAPE C0NTR «- WIT IS ASSIGNED TO 
AN INTERRUPT LEVEL 14 TO 23. ALTER 
LOCATION /0059 TO /0481. 
ANY RECORD THAT CANNOT BE READ WITHOUT 

» RR «;L W,LL CAUSE "NT'NUOUS BACKSPACE 
RE-READS* 

DSW 



2. 



3. 



BIT 



DESCRIPTION 



SPARE 

TAPE UNIT 1 SELECT 
COMMAND REJECT 
END OF TABLE 
CHAIN STOP 
STO.PROT. VIOLATION 
TAPE DATA ERROR 
BUS OUT/PC PARITY 
DATA OVERRUN 
OPERATION COMPLETE 
CE DIAGNOSTIC IND. 
WRONG LENGTH REC. 
AT LOAD POINT 
TAPE IND. OR MARK 
TAPE BUSY OR RWND. 
TAPE BUSY OR NOT RDY. 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15"*4b *7 
EC 415233B 



tun 15 HAY 
EC 411731 



67 



DATE 02 DEC 68 
EC 411961 
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D 
D 
D 
P 

i 
t 

P 

1 

P 
P 



D 
D 
D 

DATE 
p EC NO. 



*** 2400 INTERRUPT READ* SCOPE LOOP *** XVIII t XIX 









ABS 






0040 


3001 


BEGIN 


1 WAIT 


1 


WAIT AFTER IPL.« 


0041 


0816 




XIO 


/0058 


UNMASK. ; - ' 


0042 


0804 




XIO 


/0047 


SENSE DSW. PUTS BUSY AI'BIT 15. 


0043 


4804 




BSC 


E 


SKIP IF NOT BUSY. (BIT 15*0) 


0044 


6042 




LDX 


/0042 


BRANCH TO /0042. 


0045 


080B 




XIO 


/0051 


SENSE DSW AND RESET. 


0046 


4878 




BOSC 


+-Z 


RESET INTERRUPTS AND SKIP TO /0048 


0047 


7700 




DC 


/7700 


SENSE DSW. (NOTE 1) 


0048 


6304 




LDX 3 


4 


PUT 4 IN XR3. ( INIT. READ) 


0049 


1882 




SRT 


2 


PUTS TAPE INDICATOR AT BIT 15. 


00 4 A 


4804 




BSC 


E 


SKIP IF NOT TAPE IND. (BIT 15=0) 


004B 


6300 


* 


LDX 3 





PUT IN XR3. (REWIND) 
ALSO, SENSE I LSW IOCC* 


004C 


E005 


* 


AND 


/0052 


AND IN /OBEC. LEAVES ERROR 
BITS IN ACCUM. 


004 D 


4820 




BSC 


Z 


SKIP IF NO ERRCRS. (ACCUM. =0) 


004E 


6302 




LDX 3 


2 


PUT 2 IN XR3. (BACKSPACE) 


004F 


0B52 


* 


XIO 3 


/0052 


INIT. READ IF X* 3=4, REWIND IF=0. 
BKSP. IF=2. 


0050 


3002 




WAIT 


2 


WAIT FOR INTERRUPT. 


0051 


7701 




DC 


/7701 


SENSE DSW AND RESET. (NOTE 1) 


0052 


OB EC 




DC 


/OBEC 


REWIND. ALSO, DSW ERROR CONSTANT. 


0053 


7404 




DC 


/7404 


(NOTE 1) 


0054 


OBEO 


* 


DC 


/OBOE 


BACKSPACE. ALSO, 

DSW CORRECTION CONSTANT. 


0055 


740B 




DC 


/740B 


(NOTE 1) 


0056 


0067 




DC 


/0067 


INIT. READ INTO LOCATION /0067. 


0057 


7606 




DC 


/760b 


(NOTE 1) 


0058 


0003 




DC 


/0003 


UNMASK. 


0059 


0480 




DC 


/0480 




005A 


0000 




DC 




INTERNAL INTR ENTRY 


005B 


08EF 




XIO 


/004B 


SENSE ILSW. 


005C 


08EA 




XIO 


/0047 


SENSE DSW. 


005D 


1886 




SRT 


6 


PUTS OP COMPLETE AT BIT 15. 


005E 00 


4C 040064 


* 


BSC L 


/0064, 


E IF OP COMPLETE, BRANCH TO /0064. 
(BIT 15=1) 


0060 


1886 




SRT 


6 


PUTS END OF TABLE AT BIT 15. 


0061 00 


4C04005B 


* 


BSC L 


/005B» 


E IF END OF TABLE, BRANCH TO /005B. 
BIT 15=1 


0063 


3006 




WAIT 


6 


ERROR. (UNEXPECTED INTERRUPT) 


0064 


73FF 


* 


MDX 3 


-1 


OECR. XR3 BY 1. CHECK FOR 
LAST REWIND. 


0065 


6045 




LDX 


/0045 


NOT A REWIND, SO BRANCH TO /0Q45. 


0066 


6042 




LDX 


/0042 


IT WAS A REWIND, SO BR. TO /0042. - 






*** READ TABLE *** 




0067 


OOlA 




DC 


/OOlA 


BEGIN READ TABLE, (/0067 THRU /0081) 


0068 


0000 


* 


DC 




1ST READ WORD. 
ETC. 








END 


BEGIN 








*** NOTE 1 *** 








*THIS 


LISTING 


IS FOR 


TAPE DRIVE ZERO. FOR 






♦ TAPE 


DRIVE ONEf THE 


FOLLOWING LOCATIONS 






♦CONTAIN - 










* 


LOCATION 




CONTENTS 






* 


/Q047 




/7720 






* 


/0051 




/7721 






* 


/0053 




/7424 






* 


/0055 




/742B 






* 


/0057 




/7626 



01JUL66 
415178 



04N0V66 
415233 



15FEB67 
4152 33B 



15MAY6 7 
411731 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

I/O SCOPE LOOP - 2*100 CHAIN WRITE (XX, XXI) 



c 



IPL 



} ( RESET \ 
J y^ t START ) 



1 Voooo 



SET 

XR-I TO 

RETRY 

COUNT 



J 



/0001 



READ S/P 
SWS, CE SWS 
DATA 
ENT. SW. 



15 



r)HI ORDER 
"■WD CNT. 



LOW ORDER 
WD CNT 



3 - 

DATA ENTRY 



a 
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PROGRAM DESCRIPTION 

WILL WRITE RECORDS OF ANY DESIRED LENGTH OR 
CHAIN CONTINUOUSLY. THE DATA WRITTEN IS 
DETERMINED BY THE DATA ENTRY SWITCHES. UPON 
SENSING END OF TAPE STICKER. TAPE WILL REWIND 
AND THEN CONTINUE.DATA WILL BE WRITTEN IN 2 
BYTE MODE ON A 9 TRACK DRIVE AND IN 3 BYTE 
MODE ON A 7 TRACK DRIVE. UPON DETECTING AN 
ERROR, UP TO 15 BACKSPACE RETRIES WILL BE 
DONE. IF ERROR CANNOT BE CORRECTED, TAPE 
ADVANCES AND WRITES NEXT RECORD. 



IBM MAINTENANCE DIAGNOSTIC 
! SCOPE LOOP PROGRAMS 
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OPERATING PROCEDURE 



ncc 



A 8 0YT£5 

CC - 00- NO CHAIN 
10-CHAIN 



1. 
2. 
3. 




/001B 

"TAPr 




4. 



LOAD TAPE UNIT AND MAKE READY. 
CLEAR CORE T0>t)O2A (IF CHAINING), ' 
SET SWITCHES AS FOLLOWS: 
•. 'CHECK STOP* ON 
b. S/P SW 0.1 - 00 - NO CHAIN 
- 10 - CHAIN 
,c. S/P SWS 2 THRU 7-HIGH ORDER WORD 
COUNT (256-16383) 
CE SWS-LOW ORDER WORD COUNT (0-255) 
(NOTE - DO NOT EXCEED CORE SIZE 
MINUS /002C) 
d. DATA ENTRY SWS-ANY DESIRED DATA PATTERN 
PUCE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE START KEY ONCE TO RUN 
THE CARD IN AND ONCE TO BRING UP "READY* 
FOR PAPER TAPE INPUT. PUCE THE DELETE 
HOLE SECTION OF PAPER TAPE OVER THE * 
READ STATION. 

PRESS PROGRAM LOAD BUTTON. PROGRAM WILL 
EXECUTE. 



3. SERVICE HINTS 



/001I 



YES 



XI0-j(XR-2) 
,XR2-0-WRITE 
\XR2-4-RWND/ 

LXR2=6- 
BKSB 




I. 
2. 

3. 
4. 
5. 



SET XIO 

TO 

BACKSPACE 



DSW 



J 



/0015 




BIT 



NOTE 1 - * IN DSW TABLE INDICATES 
AN ERROR CONDITION. 




1 
*2 
3 
*4 
*S 
*6 
*7 
*B 
9 
*I0 
*ll 
12 
13 
14 
15 



DESCRIPTION 



SPARE 

TAPE UNIT I SELECT 

COMMAND REJECT 

END OF TABLE 

CHAIN STOP 

STOR. PROT. VI OUT I ON 

TAPE DATA ERROR 

BUS OUT/PC PARITY 

DATA OVERRUN 
OPERATION COMPLETE 
CE DIAGNOSTIC IND. 
WRONG LENGTH REC. 
AT LOAD POINT 
TAPE IND. OR HARK 
TAPE BUSY OR RWNO. 
TAPE BUSY OR NOT RDY. 



ENTRY SWITCH INPUT CAN BE CHANGED AT 

ANY TIME. 

TO DISPUY DSW ERROR BITS IN ACCUMUUTOR 

SET LOCATION /00I1 TO /3000. 

TO ELIMINATE BACKSPACE, SET ADDRESS /OOOf 

TO /4C00. 

TO CHANGE WRITING TO RUDING, SET 

LOCATION /0021 TO /7606. 

TO TEST FOR CRC ERROR CORRECTION ON 9 

TRACK DRIVE: 

e. WRITE SHORT RECORDS OF ALL BITS ON 
A LENGTH OF TAPE W'lTHOUT CHAINING " 
REWIND 

CHANGE PROGRAM TO RUD (SET LOCATION 
/0021 TO /7606). 
START PROGRAM IN READ MODE. 
DISABLE ONE READ TRACK AT A TIME BY 
PULLING PRE-AMP CARD IN TAPE DRIVE. 
PROPER CORRECTION IS INDICATED BY 
A SINGLE BACKSPACE ON UCH RECORD 
UCK OF CORRECTION IS INDICATED BY 
15 BACKSPACES ON EACH RECORD. 




b. 
c. 

d. 
e. 



*** 2400 CHAIN WRITE SCOPE LOOP *** XX, XXI 
* 



0000 





6110 


0001 





0817 


0002 





0028 


0003 





E01E 


0004 





D024 


0005 


00 


668 00029 


0007 





0817 


0008 





D22B 


0009 





72FF 


OOOA 





6008 


OOOB 





0817 


OOOC 





4804 


OOOD 





601A 


OOOE 





E017 



OOOF 00 4C180013 
0011 71FF 



62 06 
0A20 
72FB 
6303 
73FF 

6001 
6000 
0760 
100C 
B008 
6204 
690D 
600B 

0740 
002 B 
7504 
3FFF 
7700 
3000 
7404 
2FB0 
740B 
0000 
0000 
002A 
0000 
0000 



0012 





0013 





0014 





0015 





0016 





0017 





0018 





0019 





001 A 





001B 





001C 





001D 





OOIE 





001F 





0O2 





0021 





0022 





0023 





0024 





0025 





0026 





0027 





0028 





0029 





002A 





002B 





002 C 






ABS 




BEGIN LDX 


I 16 


XIO 


SPSW 


* 




STO 


/002B 


AND 


/0022 


STO 


/0029 


LDX 


12 /0029 


XIO 


DESW 


* 




STO 


2 /002B 


MDX 


2 -1 


* 




LDX 


/0008 


XIO 


/0023 


BSC 


E 


LDX 


/001A 


AND 


/0026 


* 




BSC 


L /0013.-+ 


MDX 


1 -1 


* 




LDX 


2 6 


XIO 


2 /0020 


MDX 


2 -5 


LDX 


3 3 


MDX 


3 -1 


* 




LDX 


/OOOl 


LDX 


/oooo 


DC 


/0760 


SLA 


12 


CMP 


/0024 


LDX 


2 4 


STX 


1 /002B 


LDX 


/OOOB 


DC 


/0740 


DC 


/002B 


DC 


/7504 


DC 


/3FFF 


DC 


/7700 


DC 


/3000 


DC 


/7404 


DC 


/2FB0 


DC 


/740B 


DC 




DC 




DC 


/002A 


DC 




DC 




END 


BEGIN 


* 




*** NOTE 1 


*** 


* 




♦THIS LISTING IS FOR TA 


*TAPE DRIVE 


ONE* THE FO 


♦LOCATIONS 


CONTAIN - 


* LOCATION 


* 




* /0021 


* /0023 


* /0025 


* /0027 



PUT 16 IN XR1. ( MAX. BACKSPACE CT» 
SENSE PROG. AND CE SW'S. 
(SC BITS + WCRO COUNT) 
STORE SC BITS + WD CT AT LOC /002B 
AND IN /3FFF. (CLEARS SC BITS) 
STORE WORD COUNT AT LOCATION /0029. 
PUT WORD COUNT IN XR2. 
SENSE DATA SW'S. 

SW'S THRU 15=WRITE DATA 
STORE DATA SW'S IN WRITE TABLE. 
DECR. XR2 BY 1. 

(SKIP WHEN TABLE=WORD COUNT) 
BRANCH TO /0008. 

SENSE DSW. PUTS BUSY AT BIT 15. 
SKIP IF NOT BUSY (BIT 15=0) 
BRANCH TO /001A. 
AND IN /2FB0. 

LEAVES ERROR BITS IN ACCUM. 
BRANCH TO /0013 IF NO ERRORS. 
DECR. XR1 BY 1. 

(SKIP IF MAX. BACKSPACE COUNT) 
PUT 6 IN XR2. SET UP BACKSPACE. 
WRITE/REWIND/BACKSPACE 
DECR. XR2 BY 5. (SKIP IF LAST BKSP) 
PUT 3 IN XR3. (I BKSP + 2 WRITES) 
DECR. XR3 BY 1. 

(SKIP AFTER 1 BKSP + 2 WRITES) 
BRANCH TO /OOOl. 

BRANCH TO /OOOO. REPEAT PROGRAM 
SENSE PROG. SW S. 
PUTS TAPE INDICATOR AT BIT 1. 
IS TAPE INDICATOR AT BIT 1. 

YES, SET UP REWIND 

AND STOP CHAINING. 

NO, BRANCH TO /OOOB. 
SENSE DATA SW'S. 
IOCC-INIT. WRITE FROM 

LOCATION /002B. (NOTE 
CONSTANT 

IOCC-SENSE DSW. (NOTE 1) 
IOCC-REWIND 
(NOTE 1) 
I0CC-6ACKSPACE. 
(NOTE 1) 

WORD COUNT + SCAN CONTROL BITS. 
BEGIN WRITE TABLE. 
WORD COUNT + SCAN CONTROL BITS. 
1ST WRITE WORD. 



1) 



CONTENTS 

/7524 
/7720 
/7424 
/742B 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

BATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 4I5233B 



DATE 15 HAY 
EC 411731 



67 cr T f,?L? EC W PR0C '° °8C8-* 
EC 111961 PAGE , 6 
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DATE 


01JUL66 


04NOV66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


| EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


16A 
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IBM MAINTENANCeD/AGNOiTlC PftOCfiAM fOR THE l800"~SYSTtn 

SCOPE LOOP PROGRAMS 

I/O SCOPE LOOP - 2W0/WR/RD/CMP (XXII. XXIII) 



dD 



(RESET N 
* START J 



' 7oooo 



WAIT I 



/0002 




/0014 



A REG 



** ERROR ** y r— -^zz , 

WAIT 6^ 1 D3W ERROR BITS J 



/0008 



INTERNAL 
ERROR 
INTERRUPT 



t /0019 

\initialue/ 

\ READ / 



1 ' /0026 



** ERROR ** 
WAIT 8 



COMPARE 
RD. TABLE 

WITH 
WR. TABLE 
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I. PROGRAM DESCRIPTION 

WRITES A 26 WORD RECORD OF WHICH THE 
FIRST 2 WORDS ARE ALTERNATE BITS AND 
THE REMAINING 2* WORDS ARE RANDOM DATA 
(THE PROGRAM ITSELF), BACKSPACES, READS 
AND COMPARES, THEN REPEATS. 

2. OPERATING PROCEDURE 

1. LOAD THE TAPE DRIVE AND MAKE *READV* 

2. PLACE THE SINGLE I PL CARD IN THE 
1442 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO RUN THE CARD IN AND 
ONCE TO BRING UP "READY? FOR PAPER 
TAPE INPUT, PLACE THE DELETE HOLE 
SECTION 6F THE PAPER TAPE OVER THE 
RCAD STATION. 

3. SET "CHECK STOP" SWITCH ON. 

4. PRESS "PROGRAM LOAD* CONSOLE BUTTON. 
PROGRAM WILL LOAD AND STOP AT WAIT 1. 

5. PRESS THE CONSOLE "START" BUTTON. 
PROGRAM WILL WRITE, BACKSPACE, READ, 
COMPARE DATA, THEN REPEAT. 

6. IF AN ERROR IS DETECTED IN THE DSW, 
PROGRAM WILL STOP AT WAIT 6. INDEX 
REGISTER 1 INDICATES THE WORD IN 
ERROR. 

7. IF A DATA COMPARE ERROR OCCURS, 
PROGRAM WILL STOP AT WAIT 7. 

8. IF A CAR CHECK OCCURS, PROGRAM WILL 
STOP AT WAIT 8. 

3. SERVICE HINTS 

1. TO PERFORM WRITE ONLY WITH ERROR 
CHECK: SET LOCATION /0015 TO /6002, 
PRESS 'RESET* BUTTON, AND PRESS 

•START* BUTTON TWICE. 

2. TO PERFORM READ ONLY WITH COMPARE 
ERROR CHECK: SET LOCATION /0024 TO 
/6019, PRESS "RESET* BUTTON, SET I 
REGISTER TO /00I9 AND PRESS 'START* 
BUTTON. 



NOTE 2 



/ RESET V 
V^ t. START J 




1 



/0021 



** ERROR ** 
WAIT 7 



ACC«W0RD READ- 
ADD/OOOA TO XRI 
VALUE TO DETERMINE 
WORD IN ERROR. 



NOTES: 
I. 



DSW 



DATE 01 JUL 66 
EC 415178 
DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 
DATE 31 JUL 70 > 
EC 431326 



DATE 15 FEB ^7 
EC 415233B 



* IN DSW TABLE INDICATES 
AN ERROR CONDITION. 

WRITE TABLE LOCATED 
AT /000A. 

READ TABLE LOCATED 
AT /O027. 

DATE 15 MAY 67 DATE 02 DEC 
EC 41 1731 EC4lf36l 



BIT 


DESCRIPTION 





SPARE 


1 


TAPE UNIT 1 SELECT 


* 2 


COMMAND REJECT 


3 


END OF TABLE 


*4 


CHAIN STOP 


* 5 


STO PROT. VIOLATION 


* 6"*** 


TAPE DATA ERROR 


* 7 


BUS OUT/PC PARITY 


* 8 


DATA OVERRUN 


9 


OPERATION COMPLETE 


*10 


CE DIAGNOSTIC IND. 


*u 


WRONG LENGTH REC. 


12 


AT LOAD POINT 


>3 


TAPE IND. OR MARK 


14 


TAPE BUSY OR RWND. 


15 


TAPE BUSY OR NOT RDY 



68 
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) 



OATE 

D EC N0 - 

! 



0000 





3001 


0001 





0807 


0002 





08 OB 


0003 





0805 


0004 





4804 


0005 





6003 


0006 





EOOB 


0007 





6013 


0008 





0025 


0009 





7700 


000 A 





001A 


OOOB 





55AA 


OOOC 





AA55 


OOOD 





740B 


OOOE 





OOOA 


00 OF 





7504 


0010 





0027 


0011 





7606 


0012 





2FB0 


0013 





4820 


0014 





3006 


0015 





08F7 


0016 





08F2 


0017 





4804 


0018 





6016 


0019 





08F6 


001 A 





08EE 


001B 





4804 


001C 





601 A 


001D 





611A 


001 E 





C127 


001F 





B10A 


0020 





1000 


0021 





3007 


0022 





71FF 


•0023 





601E 


0024 





6002 


0025 





0000 


0026 





3008 


0027 





001A 






2400 WR/RD/CMP, SCOPE LOOP *** XXII . XXIII 



WAIT 



WRITE *** 
ABS 
BEGIN XIO 
XIO 
XIO 
BSC 
LDX 
AND 
LDX 
DC 



/0009 

/OOOE 

/0009 

E 

/0003 

/0012 

/0013 

/0025 



* 



IOCCS AND CONSTANTS 

DC /7700 

DC /001A 

DC /55AA 

DC /AA55 

DC /740B 

DC /OOOA 

DC /7504 

DC /0027 

DC /7606 

DC /2FB0 









BACKSPACE 
BSC 
WAIT 
XIO 
XIO 

BSC 
LDX 



READ *** 
XIO 
XIO 
BSC 
LDX 
LDX 

LD 
CMP 
NOP 
WAIT 
MDX 1 



LDX 

LDX 

DC 

WAIT 

DC 



*** 

Z 

6 

/OOOD 

/0009 

E 

/0016 



/0010 

/0009 

E 

/001A 

+26 

/0027 

/OOOA 

7 
-1 

/001E 
/0002 

8 
/001A 



END BEGIN 
* 

*** NOTE 1 *** 
* 

*THIS LISTING IS FOR 
*TAPE DRIVE ONEt THE 
*CONTAIN - 
* 
* 
* 
* 
* 
* 



LOCATION 

/0009 
/OOOD 
/OOOF 
/0011 



01JUL66 
415178 



04N0V66 
415233 



15FEB67 
415233B 



15MAY67 
411731 



WAIT AFTER IPL. 



SENSf DSW. SELECTS TAPE DRIVE. 
INIT. WRITE FROM LOCATION /OOOA. 
SENSE DSW. PUTS BUSY AT BIT 15. 
SKIP IF NOT BUSY. (BIT 15=0) 
BRANCH TO /0003. 
AND IN /2F80. 
BRANCH TO /0013. 
INTERNAL INTERRUPT VECTOR. 

*** 

SENSE OSW. (NOTE 1) 

BEGIN WRITE TABLE 

/OOOA THRU /00 24. WC = 26. 
1ST WRITE WORD. 
2ND 

BACKSPACE. (NOTE 1) 
INIT. WRITE FROM 

LOCATION /OOOA. (NOTE 1) 
INIT. READ INTO 

LOCATION /0027. (NOTE 1) 
DSW ERROR IMAGE. 



SKIP IF NO ERRORS. (ACCUM=0) 

ERROR DURING WRI TE . 

BACKSPACE. 

SENSE DSW. PUTS BUSY AT BIT 15. 

SKIP IF NOT BUSY. (BIT 15=0) 

BRANCH TO /0016. 



INIT. READ INTO LOCATION /0027. 

SENSE DSW. PUTS BUSY AT BIT 15. 

SKIP IF NOT BUSY. (BIT 15=0) 

BRANCH TO /001A. 

PUT +26 IN XRI. 

LOAD READ WORD. 

IS READ WORD=WR ITE WORD. 

NO 

NOt COMPARE ERROR. 

YES. DECERMENT XRI BY -1. 

SKIP AFTER 26 LOOPS 
BRANCH TO /001E. 

BRANCH TO /0002 . REPEAT PROGRAM, 
INTERNAL INTR ENTRY 
INTERNAL ERROR. 
BEGIN READ TABLE. 

/0027 THRU /0042. WC = 26. 



TAPE DRIVE ZERO. FOR 
FOLLOWING LOCATIONS 

CONTENTS 

/7720 
/742B 
/7524 
/7626 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 



PROG ID 
PAGE 



08C8-* 
17A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

I/O SCOPE LOOP - A I DPC (XXIV, XXV) 



c 



I PL 



~\ ( RESET "\ 
-S V * 5TART J 



1 '/OOOO 



WAIT 1 

SET 
CONSOLE 

SWS. 



S/P SW. 7 

n 1 



D.E. SW. 



MPX ADOR 



1 '/0002 



L-0 WAIT AFTER EACH CONVERSION 
L-l LOOP 




L /001i 



WAIT 6 
ERROR 



A REG 



DSW 



yoooo 




1 



/0016 



A DELAY 

HAY BE 

ENTERED 

HERE 



/00I4 



WAIT 2 



I 



(SEE SERVICE^ 
HINT NO. 4 J 



A REG 



ADC 



Q REG 



DSW 



DSW 








END OF TABLE 




o 


I 


DPC SS CONV. COMPL. 






DPC RLY. CONV. COMPL. 




J 


3 


STORAGE PROT. VIOLATION 




o 


1* 


PARITY CONTROL ERROR 




5 


PARITY DATA ERROR 




I 


6 


ADC OVERLOAD 




o 


7 


OVERLAP CONFLICT 




8 


DATA CHANNEL, SS KPXR. 








OR AMAR BUSY 







**B^Q 


DPC RLY. MPXR. BUSY 




IS 


ANY ERROR 






DATE 01 JUL 66 DATE 04 NOV 66 


DATE 15 FEB 





EC 415178 


EC 415233 
65- DATE 31 JUL 70 


EC 415233B 


0j" 


OATE 14 NOV 


* 


EC 431319 


EC 431326 




o 




. 


- 



P/N 2 1833 13 
PAGE 18 



1. PROGRAM DESCRIPTION 

WILL ADDRESS ONE MULTIPLEXER POINT 
AND EITHER LOOP OR COME TO A WAIT. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE I.P.L. CARD IN 
THE 1442 HOPPER. PRESS THE 1442 
START BUTTON ONCE TO RUN THE CARD 
IN AND ONCE TO BRING UP 'READY'. 
FOR PAPER TAPE INPUT, PUCE THE 
DELETE HOLE SECTION OF THE PAPER 
TAPE OVER THE READ STATION. 

2. SET "CHECK" STOP SWITCH ON. 

3. PRESS "RESET* AND 'PROGRAM LOAD" 
CONSOLE BUTTONS. THE PROGRAM WILL 
LOAD AND STOP AT WAIT I . 

4. SET THE DATA ENTRY SWITCHES TO THE 
MULTIPLEXER ADDRESS DESIRED. SET 
SENSE/PROGRAM SWITCH - TO WAIT 
AFTER THE POINT HAS BEEN CONVERTED. 
SET SWITCH - I TO LOOP. (SEE 
FLOW CHART) 

5. PRESS CONSOLE "START* BUTTON. 

6. IF ANY ERROR IS DETECTED IN THE 
DSW, THE PROGRAM WILL STOP AT 
WAIT 6. 

3. SERVICE HINTS 

1 . TO PERFORM A "READ ONLY" LOOP. 

a SET LOCATION /OOOF TO /600D. 
b. SET I -REG TO /OOOO AND PRESS 
START. 

2. /7FFF (ALL ONES EXCEPT THE SIGN 
BIT) MAY BE MANUALLY ENTERED IN 
THE ADC REGISTER BY REMOVING THE 
CONNECTOR ON PIN A-A1C11 (THIS IS 
THE COMPARATOR OUTPUT), AND THEN 
CAUSING THE ADC TO TAKE A 
CONVERSION CYCLE. /7FFF SHOULD 
BE TRANSFERRED TO THE A REGISTER 
IF THE DPC READ COMMAND IS WORKING 
CORRECTLY. /7FFF IN THE ADC 
REGISTER SHOULD SET THE *ADC 
OVERLOAD" AND 'ANY ERROR" BITS IN 
THE DSW. SET LOCATION /00I9 TO 
/1000 (NOP) TO BYPASS THE ERROR 
WAIT. 

3. TO INSPECT THE DSW IMMEDIATELY 
AFTER A WRITE COMMAND, SET LOCATION 
/04 TO 3000. THE DSW WILL BE IN 
THE A-REG. BIT 8 OR 9 SHOULD BE 

ON IN THE DSW. 

4. A DELAY CAN BE ENTERED BETWEEN 
EACH CONVERSION. THIS WILL PERMIT 
THE ADC REGISTER TO BE VIEWED IN 
THE l/Q MONITOR BOX. IF /7FFF IS 
LOADED INTO LOCATION /0017 A DELAY 
OF APPROXIMATELY 1/6 SEC. WILL 
OCCUR (2 MICRO-SECOND SYSTEM). 



DATE 15 HAY 67 
EC 411731 



DATE 02 DEC 68 
EC 41 1961 
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IBM MAINTENANCE DIAGNOSTIC 
SCOPE LOOP PROGRAMS 
APPENDIX B 



PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2183313 
PAGE 18A 



0000 

0001 

0002 



0003 
0004 
0005 
0006 
0007 



0016 
0018 
0019 
001 A 
001B 
001C 
001D 
001 E 
001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 



0008 



0009 

OOOA 

OOOB 

OOOC 

00 OD 

OOOE 

OOOF 

0010 

0011 

0012 

0013 

0014 

0015 











3001 . 
08 1C 
081D 

081E 
1000 
4804 
601B 
180D 
4804 

600D 
100E 
4810 
6003 
0818 
0815 

1890 
08 OC 
4828 
6016 
C015 
3002 
6001 



0028 

0029 



*** AI DPC SCOPE LOOP *** XXIVt XXV 

ABS 
BEGIN WAIT 



XIO 
XIO 

XIO 
NOP 
BSC 
LDX 
SRA 
BSC 

LDX 

SLA 

BSC 

LDX 

XIO 

XIO 

SRT 

XIO 

BSC 

LDX 

LD 

WAIT 

LDX 



1 

DESW 
WRITE 

DSW 

E 

ERROR 
13 
E 

/OOOD 
14 

/0003 

READ 

DSW1 

16 

SPSW 

+ Z 

/0016 

/0029 

2 

BEGIN 



-***- DELAY LOOP *** 
* 



00 65000000 
71FF 

6018 

6001 

3006 

600D 

0760 

0028 

0240 

0028 

5108 

OOOO 

5700 

OOOO 

5701 

0029 

5200 



LDX 
MDX 
LDX 
LDX 
ERROR WAIT 
LDX 



SPSW 
DESW 



OOOO 
OOOO 



DC 
OC 
DC 
WRITE DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
END 



DSW 



DSW1 



READ 



LI /OOOO 
1 -1 
/0018 
/0001 
6 

/OOOD 
/0760 
/0028 
/0240 
/0028 
/5108 
/OOOO 
/5700 
/OOOO 
/5701 
/0029 
/5200 



BEGIN 



*** NOTE 1 *** 

* 

*THIS LISTING IS FOR THE 

*AI EXPANDER ATTACHMENT, 

♦LOCATIONS CONTAIN - 

* 



SET THE CONSOLE SWITCHES 

READ THE D.E. SWS INTO LOC./0028. 

ADDR. THE POINT SPECIFIED IN D.E. 

SWS. 
SENSE DSW (NO R5SET) 

SKIP IF NO ERRCR. (BIT 15=0) 
BRANCH TO ERROR WAIT. 

SKIP IF NO RELAY CONV. COMPL. 

<BIT 15=0) 
BRANCH TO LOC. /OOOO. 

SKIP IF S.S. COW. COMPL. (BIT 0=1) 
BRANCH TO LOC. / 0003. 
READ ADC READING INTO LOC. /0029. 
SENSE AND RESET DSW. 

PUT DSW IN Q REG. 

SENSE THE SENSE/PROG. SWS. 

SKIP IF S/P SW. IS OFF. 

BRANCH TO LOC. /0016. 

LOAD ADC READING INTO A REG. 

BRANCH TO LOC. /0001 



SET XR1 TO ZERO. 

DECR XRl BY 1. 

BRANCH TO LOC. /0018. 

BRANCH TO LOC. /0001 (END OF DELAY) 

ERROR WAIT 6. 

BRANCH TO /OOOD. 

IOCC TO SENSE THE S/P SWITCHES 

IOCC TO READ THE DATA ENTRY 

"SWITCHES INTO LOCATION /0028. 
IOCC TO WRITE M MPX FROM LOC/0028. 

(NOTE 1) 
IOCC TO SENSE THE DSW (NO RESET) 

(NOTE 1) 
IOCC TO SENSE AND RESET THE OSW. 

(NOTE 1) 
IOCC TO READ Thg ADC REGISTER. 

(NOTE 1) 

* 

MPX ADDR. 

STORAGE FOR ADC READING. 



FIRST AI ATTACHMENT. FOR THE 
THE FOLLOWING STORAGE 



* 


LOCATION 


CONTENT 


* 
* 
* 
* 


/0021 
/0023 
/0025 
/0027 


/8108 
/8700 
/8701 
/8200 



DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


18A 
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IBM HMNTeUAMCE DIAGNOSTIC PKO&RAi-i FOR THE 1800 SYSTEM 

SCOPE (.OOP PROGRAMS 

I/O SCOPE LOOP - Al DC SEQUENTIAL (XXVI, XXVII) 




INTERNAL 
INTERRUPT 



DSW 






END OF TABLE 


1 


DPC SS CONV. COMPL. 


2 


DPC RLY. CONV. COMPL. 


3 


STORAGE PROT. VIOLATION 


4 


PARITY CONTROL ERROR 


5 


PARITY DATA ERROR 


6 


ADC OVERLOAD 


7 


OVERLAP CONFLICT 


8 


DATA CHANNEL, SS MPXR. 




OR AMAR BUSY 


9 


DPC RLY. MPXR. BUSY 


15 


ANY ERROR 



) 



SENSE 
INTERNAL 
INTERRUPT 
ILSW 



WAIT 8 

ERROR 



DATA TABLES 



/0022 
/0023 

/0024 
/002S 

/0026 
/0027 
/0028 
/0029 



/C002 



/I3E8 



XXXX 



/0026 



WORD COUNT - 2 

SCAN CTRL-CHAIN WITH NO INTR 

CALIBRATION POINT 

ADC. READING FROM CAL. POINT 

CHAIN ADDRESS 



BRANCH 
OUT TO 
PROGRAM 



P/N 2)83311 
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1. PROGRAM DESCRIPTION 



PROVIDES THE ABILITY TO READ (IN CHAINED 
SEQUENTIAL MODE) THE CALIBRATION POINT, 
CHAIN TO A SECOND DATA TABLE AND READ A 
POINT THAT HAS BEEN SPECIFIED IN THE DATA 
ENTRY SWITCHES. FOR A DETAILED LAYOUT OF 
THE TABUS, SEE THE FLOW CHART. 

OPERATING PROCEDURE 

1. PLACE THE SINGLE I PL CARD IN THE 
M2 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO RUN THE CARD IN AND 
ONCE TO BRING UP "READY* FOR PAPER 
TAPE INPUT, PUCE THE DELETE HOLE 
SECTION OF THE PAPER TAPE OVER THE 
READ STATION. 

2. SET "CHECK STOP* SWITCH ON. 

3. PRESS "RESET* AND "PROGRAM LOAD* 
CONSOLE BUTTONS. THE PROGRAM WILL 
LOAD AND STOP AT WAIT 1 (B REG - 3001). 
SET THE DATA ENTRY SWITCHES TO THE 
MULTIPLEX ADDRESS DESIRED. 

5. PRESS CONSOLE "START* BUTTON. PROGRAM 
SHOULD READ AND CONVERT THE CALIBRATION 
POINT, THE POINT SPECIFIED IN THE DATA 
ENTRY SWITCHES, AND STOP AT WAIT 2 

(B REG - 3002). PRESS THE "START* 
BUTTON TO REPEAT. 

6. IF A CAR CHECK ERROR OCCURS, THE 
PROGRAM WILL STOP AT WAIT 8. IF 

"CHECK STOP* SW IS TURNED OFF, ALL 
INTERNAL ERRORS WILL STOP AT WAIT 8. 

7. IF "ANY ERROR* IS DETECTED IN THE DSW, 
THE PROGRAM WILL STOP jT WAIT 6. 

3. SERVICE HINTS 

1. TO LOOP THE PROGRAM, CHANGE LOCATION 
/OOOF FROM /3002 (WAIT) TO /1000 (NOP). 

2. /7FFF (ALL ONES EXCEPT THE SIGN BIT) 
MAY BE MANUALLY ENTERED IN THE ADC 
REGISTER BY REMOVING THE CONNECTOR ON 
PINA-A1CH (THIS IS THE COMPARATOR 
OUTPUT), AND THEN CAUSING THE ADC TO 
TAKE A CONVERSION CYCLE. /7FFF IN THE 
ADC REGISTER SHOULD SET THE "ADC 
OVERLOAD* AND "ANY ERROR" BITS IN THE 
DSW. TO BYPASS THE ERROR WAIT, CHANGE 
LOCATION /OOH FROM /3006 (WAIT 6) TO 
/1000 (NOP). 

3. TO INSPECT THE DSW IMMEDIATELY AFTER 

AN INITIALIZE READ COMMAND, SET LOCATION 
/00ft TO /3000. THE DSW WILL BE IN 
THE A REGISTER. BIT 8 SHOULD BE ON 
IN THE DSW. 

A REG 



INTERNAL INTR 
ILSW 



/0026 



/0002 



XXXX 



XXXX 



CAR CHECK WORD 

WORD COUNT - 2 

SCAN CTRL-NO CHAIN WITH INTR. 

ADDR. FROM D.E. SWITCHES 

ADC READING 



« INVALID OP. CODE 

1 s PARITY ERROR 

2 - S.P.V. 

3 * CAR CHECK 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 DATE 15 MAY 67 DATE 02 DEC 68 
EC 415233B EC 411731 EC 411961 
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APPENDIX B 



I 



* 



AI DC SEQUENTIAL SCOPE LOOP *** XXVI, XXVII 



0000 





3001 


0001 





0816 


0002 





0817 


0003 





0818 


0004 





1000 


0005 





4804 


0006 





6011 


0007 





6009 


0008 





0013 


0009 





4810 


OOOA 





6003 


00 OB 





1000 


OOOC 





0811 


OOOD 





1890 


OOOE 





C01A 


OOOF 





3002 


0010 





6001 


0011 





3006 


0012 





600B 



BEGIN 



ERROR 



ABS 

WAIT 

XIO 

XIO 

XIO 

NOP 

BSC 

LDX 

LDX 

DC 

BSC 

LDX 

NOP 

XIO 

SRT 

LD 

WAIT 

LDX 

WAIT 

LDX 



1 

DESW 

READ 
DSW 

E 

ERROR 
/0009 
/0013 

/0003 

DSW1 

16 

/0029 

2 

/0001 

6 

/OOOB 



SET CONSOLE SWITCHES 
READ D.E. SWS. INTO LOC/0028 
I READ SEQUENTIAL MODE 
SENSE DSW (NO RESET) 

SKIP IF NO ERROR. (BIT 15=0) 

BRANCH TO ERROR WAIT. 

BRANCH AROUND INTERNAL INTR. ADDR. 

XFER VECTOR ADD* . 

SKIP IF EOT BIT IS ON (BIT 0=1) 

BRANCH TO /0003. 

SENSE AND RESET DSW. 

PUT DSW INTO REG. 

LOAD ADC READING INTO A REG 

BRANCH TO LOC. / 0001. 

ERROR WAIT. 

BRANCH TO LOC. /OOOB. 






INTERNAL INTERRUPT ROUTINE *** 



0013 0000 

0014 080B 

0015 3008 

0016 00 4CC00013 



0018 





0028 


0019 





0240 


001 A 





0022 


001B 





5608 


001C 





0000 


00 ID 





5700 


001 E 





0000 


001F 





5701 


0020 





0000 


0021 





0300 


0022 





C002 


0023 





13E8 


0024 





0000 


0025 





0026 


0026 





0026 


0027 





0002 


0028 





0000 


0029 





0000 



DC 

XIO ILSW 

WAIT 8 
BOSC I /0013 

* 

* 

*** IOCC'S *** 

* 

DESW 



READ 
DSW 
DSW1 
ILSW 



DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 

DATA 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
END 



/0028 
/0240 
/0022 
/5608 

/5700 

/5701 

/0300 

TABLES *** 
/C002 
/13E8 



INTERNAL INTR ENTRY 
SENSE ERROR ILSW 
INTERNAL ERROR WAIT 
BRANCH OUT TO PROGRAM 



IOCC-READ THE D.E. SWS. INTO 

LOC. /0028. 
IOCC-READ. 

(NOTE 1) 
IOCC-SENSE DSW ( NO RESET) 

(NOTE 1) 
IOCC-SENSE 

(NOTE 1) 
IOCC-SENSE 
AND RESET 



AND *ESET DSW 

INTERNAL INTR. 
INTR. REQUEST. 



ILSW 



/0026 
/0026 
/0002 



BEGIN 



EN 
WD CT=2 CHAIN, NO INTR. 
CALIBRATION POINT 

ADC READING FROM CALIBRATION POINT 
CHAIN ADDRESS 
CAR CHECK WORD 

wo ct=2 no Chain with intr. 



ADDR. FROM DATA 
STORAGE FOR ADC 



ENTRY SWS. 
READING 



* 

*** NOTE 1 *** 

* 

*THIS LISTING IS FOR THE 

*AI EXPANDER ATTACHMENT, 

♦CONTAIN - 

* 

* LOCATION 



FIRST AI ATTACHMENT. 
THE FOLLOWING STORAGE 



CONTENTS 



FOR THE 
LOCATIONS 



DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG 10 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


19A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE" I8001YSTEM'" *" 

SCOPE LOOP PROGRAMS 

I/O SCOPE LOOP - AI-DC RANDOM (W/O MPXR OVERLAP) (XXVIII, XXIX) 



P/N <il83jTj 
PAGE 20 



GJ 



RESET "\ 
t START J 



1. PROGRAM DESCRIPTION 



I. 



1 70000 



D.E. SWS 




WAIT 2 
PRESS 
"START* TO 

CONTINUE 



A REG 



ADC 



0. REG 



DSW 



/OOIC 
/001D 

/OOIE 

/001F 
/0020 

/002I 
/0022 
/0023 
/0024 

/0025 
/0026 
/0027 



TABLES 
MPX ADDR (I W RITE) 

CALIBRATION POINT 
CALIBRATION POINT 

CHAIN ADDRESS 



/13E8 



/I3E8 



/OOIF 



/OOIF 



XXXX 



CAR CHECK WORD 

ADDR. FROM DATA ENTRY SWITCHES 



DATA (I RE AD) 



READS THE CALIBRATION POINT TWICE, 
CHAI NS TO A SECOND TABLE AND READS 
THE POINT SPECIFIED IN THE DATA 
ENTRY SWITCHES. DO NOT USE THIS 
PROGRAM IF THE "MULTIPLEXER 
OVERLAP" FEATURE IS INSTALLED. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE I PL CARD IN 
THE 1442 HOPPER. PRESS THE 1442 
START BUTTON ONCE TO RUN THE CARD 
IN AND ONCE TO BRING UP "READY? 
FOR PAPER TAPE INPUT, PLACE THE 
DELETE HOLE SECTION OF THE PAPER 
TAPE OVER THE READ STATION. 

2. SET, "CHECK STOP" AND 'DISABLE 
INTERRUPT" SWITCHES ON. TURNING 

"DISABLE INTERRUPT* SWITCH ON 
CAUSES ALL CAR CHECK ERRORS TO 
BE IGNORED. 

3. PRESS "RESET* AND "PROGRAM LOAD* 
CONSOLE BUTTONS. THE PROGRAM 
WILL LOAD AND STOP AT WAIT I 

(B REG • 3001). 

4. SET THE DATA ENTRY SWITCHES TO 
THE MULTIPLEX ADDRESS DESIRED. 

5. PRESS CONSOLE "START" BUTTON. 
PROGRAM WILL READ AND CONVERT 
THE CAL. POTNT TWICE, THE POINT 
SPECIFIED IN THE DATA ENTRY 
SWITCHES, AND STOP AT WAIT 2 

(B REG - 3002). THE ADC READING 
IS IN THE A REGISTER AND THE DSW 
IS IN THE 0. REGISTER. 

3. SERVICE HINTS 

!. TO PUT THE PROGRAM IN A CONTINUOUS 
LOOP, CHANGE THE WAIT (3002) AT 
/OOOE TO A NOP (1000) 

2. /7FFF (ALL ONES EXCEPT THE SIGN 
BIT) MAY BE MANUALLY ENTERED IN 
THE ADC REGISTER BY REMOVING THE 
CONNECTOR ON PIN A-AIC11 (THIS 
IS THE COMPARATOR OUTPUT), AND 
THEN CAUSING THE ADC TO TAKE A 
CONVERSION CYCLE. /7FFF IN THE 
ADC REGISTER SHOULD SET THE "ADC 
OVERLOAD" AND *ANY ERROR" BITS 
IN THE DSW. SET LOCATION /OOIO 
TO /1 000 (NOP) TO BYPASS THE 
ERROR WAIT. 

3 • TO INSPECT THE DSW IMMEDIATELY 

AFTER THE INITIALIZE WRITE COMMAND, 
SET LOCATION /0005 TO /3000. THE 
DSW WILL BE IN THE A REGISTER. BIT 
8 SHOULD BE ON IN THE DSW. 



/C002 



XXXX 



XXXX 



/0025 



/0025 



/OOOI 



XXXX 



WD.CT - 2 

SCAN CTRL-CHAIN WITH NO INTR. 

ADC READING FROM CAL. POINT 
ADC READING FROM CAL. POINT 
CHAIN ADDRESS 

CAR CHECK WORD 

WD. CT. - 1 

SCAN CTRL-NO CHAIN WITH INTR. 

ADC READING (MPX ADDR. IN LOC. /0020) 



DSW 
END OF TABLE 
DPC SS CONV. COMPL 
DPC RLY. CONV. COMPL. 
STOR. PROT. VIOL. 
WRITY CTRL. ERROR 
PARITY DATA ERROR 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS 
APPENDIX B 



6 ADC OVERLOAD 

7 OVERLAP CONFLICT 

8 DATA CH., SS MPXR. 
OR AMAR BUSY 

9 DPC RLY. MPXR. BUSY 
15 ANY ERROR 



DATE 01 JUL 66 
EC 415178 

DATE I 4 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 4152336 



DATE 15 HAY 67 
EC 41173! 



DATE 02 DEC 68 
EC 411961 



PROG ID C8tf-* 
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0000 


3001 


0001 


0814 


0002 


0815 


0003 


0816 


0004 


080D 


0005 


1000 


0006 


4804 


0007 


6010 


0008 


4810 


0009 


6004 


OOOA 


1000 


OOOB 


0808 


OOOC 


1890 


00 OD 


C019 


OOOE 


3002 


OOOF 


6001 


0010 


3006 


0011 


600A 


0012 


0000 


0013 


5700 


0014 


0000 


0015 


5701 


0016 


0020 


0017 


0240 


0018 


0021 


0019 


5628 


001A 


OOIC 


001 B 


5500 


OOIC 


13E8 


00 ID 


13E8 


OOIF 


OOIF 


OOIF 


OOIF 


0020 


0000 


0021 


C002 


0022 


0000 


0023 


0000 


0024 


0025 


0025 


0025 


0026 


0001 


0027 


0000 
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*** AI DC RANDOM SCOPE 
*** (W/O MPXR. OVERLAP 
* 

ABS 

BEGIN WAIT 1 

XIO DESW 

XIO RFAD 

XIO WRITE 

XIO DSW 

NOP 

BSC E 

LDX ERROR 

BSC — 

LDX /0004 

NOP 

XIO DSW1 

SRT 16 

LD ADC 

WAIT 2 

LDX /OOOI 

ERROR WAIT 6 

LDX /OOOA 
* 

*** IOCC'S *** 

* 

DSW OC /OOOO 

DC /5700 

DSW1 DC /OOOO 

DC /5701 

DESW DC /0020 

DC /0240 

READ DC /0021 

DC /5628 

WRITE DC /OOIC 

DC /5500 
* 

*** TABLES *** 
* 

DC /13E8 

DC /13E8 

DC /OOIF 

DC /OOIF 

DC 

DC /C002 

DC 

DC 

DC /0025 

DC /0025 

DC /OOOI 

ADC DC 

END BEGIN 

* 

*** NOTE 1 *** 

* 

*TH1S LISTING IS FOR THE 

*AI EXPANDER ATTACHMENT. 

♦CONTAIN - 

* 

LOCATION 



LOOP *** 
) *** 



XXVIII. XXIX 



/0013 
/0015 
/0019 
/001B 



SET CONSOLE SWS. 

READ D.E. SWS. INTO LOC. /0020. 

INITIALIZE READ RANDOM 

INITIALIZF WRITE 

SENSE DSW (NO RESET) 

SKIP IF NO ERROR (BIT 15=0) 
BRANCH TO ERROR WAIT 
SKIP IF EOT BIT IS ON (BIT0=1) 
BRANCH TO LOC. /0004. 

SENSE AND RESET DSW 

PUT DSW IN REG. 

PUT ADC READING IN A REG. 

BRANCH TO LOC. /OOOI 

ERROR WAIT 

BRANCH TO LOC. /OOOA 



IOCC SENSE DSW WITH NO RESET 

(NOTE 1) 
IOCC SENSE AND RESET THE DSW 

(NOTE 1) 
IOCC READ THE DATA 
ENTRY SWITCHES 
IOCC INITIALIZE READ RANDOM 

(NOTE 1) 
IOCC-INITIALIZE WRITE 

(NOTE 1) 



CALIBRATION MPX ADDR. 

CALIBRATION MPX ADDR. 

CHAIN ADDRESS 

CAR CHECK WORD 

ADDR. FROM DATA ENTRY SWITCHES 

WD.CT. = 2 CHAIN, NO INTR. 

ADC READING FROM CALIBRATION POINT 

ADC READING FROM CALIBRATION POINT 

CHAIN ADDRESS 

CAR CHECK WORD 

WD.CT. =1 NO CHAIN WITH INTR. 

ADC READING 



FIRST AI ATTACHMENT. FOR THE 
THE FOLLOWING STORAGE LOCATIONS 



CONTENTS 

/8700 
/8701 
/8628 
/85 00 



DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 



PROG ID 
PAGE 



08C8-* 
20A 



A I COMP SCOPE LOOP (XXX, XXXI) 



"Vrf " W ' 



O" 



( IPL ^ ( RES ET * *\ / INTERNAL A 
V J V START J V INTERRUPT J 



Q 

Q 

f 

Q 

6 



o 

i. 

Q 

O 
U 
O 
. 1 



' '/oooo 



WAIT 1 

SET 
CONSOLE 

SWS 



7 8 



15 



/000A 



HIGH 
LIMIT 



O.E. SWS. 



Tow I 
LIMIT J 




' ' /Q002 




/OOOB 



WAIT 8 
ERROR 
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1. PROGRAM DESCRIPTION 

READS THE CALIBRATION POINT (/13E8) AND 
PERFORMS A LIMIT CHECK. THE LIMIT WORD 
IS SPECIFIED IN THE D.E. SWITCHES. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 
1442 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO RUN THE CARD IN AND 
ONCE TO BRING UP "READY". FOR PAPER 
TAPE INPUT. PUCE THE DELETE HOLE 
SfCTION OF THE PAPER TAPE OVER THE 
RIAD STATION. 

2. StT w CHrCK STOP" SWITCH ON. 

3. PRESS "RESET' AND 'PROGRAM LOAD" 
CONSOLE BUTTONS. THE PROGRAM WILL 
LOAD AND STOP AT WAIT I (B REG - 3001). 
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i! 



I 



APPENDIX B 



*** AI COMPARATOR SCOPE LOOP *** XXX, XXXI 



0000 

0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 



3001 
081A 
081 B 
08 1C 
0816 
1807 
600E 
0301 
0009 



ABS 
BEGIN WAIT 
XIO 
XIO 
XIO 
XIO 
SRA 
LDX 
DC 
DC 



1 

/001C 

/001E 

/0020 

/001B 

7 

/OOOE 

/0301 

/0009 



SET CONSOLE SWS. 

RD DATA ENTRY SWITCHES 

INIT. READ RANDOM 

INIT. WRITE 

SENSE AND RESET DSW 

BRANCH AROUND ERROR ROUTINE 
IOCC SENSE INTERNAL ERROR ILSW. 



u 

Oj 

o 

O 1 

o 
o 

a 
d 

4 

! O'' 

id. 

o 
d 



* 



INTERNAL ERROR INTR. ROUTINE *** 



' r /000C 



BRANCH 

OUT TO 

LOC. /OOOI 



IT 




YES 



/0014 



4. 



5. 



6. 



WAIT 6 
ERROR 



A REG 
ADC READ 



HE} 



YES 



/0019 



WAIT 7 
ERROR 



A REG 



ADC READING 



/0027 
/0028 

/0024 
/0025 



TABLES 
DATA (I READ) 



/OOOI 



XXXX 



WD. CT. - I 

SCAN CTRL - NO CHAIN WITH INTR. 



ADC READING FROM CAL. POINT * 
HPX ADDR. (I WRITE) 

£ A i*« P0,MT . B 'T 1 - LIMIT WD. FOLLOWS 
BIT 2 - PERFORM COMPARASION • rwMM * 

LIMIT WORD FROM D.E. SWS. 



/73E8 



XXXX 



SET THE D.E. SWITCHES TO THE DESIRED 
LIMIT WORD. SWS. 0-7 - HIGH LIMIT. 
SWS. 8-15 - LOW LIMIT. 

PRESS CONSOLE "START* BUTTON. THE 
PROGRAM WILL READ THE CALIBRATION 
POINT AND COMPARE IT TO THE DATA 
ENTRY SWITCHES. IF AN "OUT OF LIMIT* 
CONDITION IS DETECTED THE PROGRAM 
WILL STOP AT WAIT 6 OR 7. 

IF A CAR CHECK ERROR IS DETECTED. THE 
PROGRAM WILL STOP AT WAIT 8. THE 
ERROR ILSW WILL BE IN THE A REGISTER. 



3. SERVICE HINTS 

1. TO INSPECT THE COMPARATOR DSW IN THE 
A REGISTER, ENTER A WAIT (/3000) IN 
LOC. /OOlt. 

2. IF A MULTIPLEXER ADDRESS OTHER THAN 
THE CALIBRATION POINT IS DESIRED 
INSERT THE NEW ADDRESS IN LOCATION 
/0024. ENTER BIT - 0. BITS 1 AND 

2 - I AND BITS 3-15 ■ DESIRED ADDRESS. 
IF A RELAY ADDRESS IS CHOSEN AND THE 
OVERLAP FEATURE IS INSTALLED, REMOVE 
THE SLT CARD AT A-BIL7 POSITION BEFORE 
RUNNING PROGRAM. 



COMPARATOR DSW 

HIGH OUT OF LIMITS 

1 LOW OUT OF LIMITS 

2 OVERLOAD 
-15 MPX ADDR. 



0009 0000 
OOOA O 08 FC 
OOOB 3008 
OOOC 00 4C 40001 



OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 



4804 
6004 
0811 
4810 
6015 
C014 
3006 
1001 
4810 
6001 
COOF 
3007 
6001 



DC 
XIO 
WAIT 
BOSC 

BSC 

LDX 

XIO 

BSC 

LDX 

LD 

WAIT 

SLA 

BSC 

LDX 

LD 

WAIT 

LDX 



/0007 
8 

BEGIN+1 

E 

/0004 

/0022 

/0015 
/0028 
6 

1 

/OOOI * 
/0028 
7 
/OOOI 



INTERNAL INTR ENTRY 

SENSE INTERNAL ERROR ILSW. 

INTERNAL ERROR 

RESET INTERRUPT + BRANCH 

BUSY 

BRANCH TO LOC. /0004. 

SENSE COMPARATOR DSW. 

HIGH OUT OF LIMIT 

NO 

LOAD ACC WITH ADC READING 

HIGH OUT OF LIMIT 

LOW OUT OF LIMIT 
BRANCH TO LOC. /OOOI 
LOAD ACC WITH ADC READING 
LOW OUT OF LIMIT. 
BRANCH TO LOC. /OOOI 



001B 
001C 
001D 
001 E 
001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 



5701 
0025 
0240 
0027 
5620 
0024 
5500 
0000 
5781 
73E8 
0000 
0000 
0001 



A.I. BASIC DSW 




1 
2 
3 

it 

5 



END OF TABLE 
OPC SS CONV. COMPL. 
DPC RLY. CONV. COMPL. 
STOR. PROT. VIOL. 
PARITY CTRL. ERROR 
PARITY DATA ERROR 



6 
7 
8 

9 
15 



ADC OVERLOAD 
OVERLAP CONFLICT 
DATA CH., SS MPXR. 
OR AMAR BUSY 
DPC RLY. MPXR, BUSY 
ANY ERROR 



*** IOCC'S *** 

* 

DC /5701 

DC /0025 

DC /0240 

DC /0027 

DC /5620 

DC /0024 

DC /5500 

DC 

DC /5781 

DC . /73E8 

DC 

DC 

DC /OOOI 

END BEGIN 

* 

*** NOTE 1 *** 

* 

*T»IS LISTING IS FOR THE 

*AI EXPANDER ATTACHMENT. 

*CONTAIN - 

* 
* 

* 
* 



IOCC SENSE AND RESET DSW (NOTE 1) 
IOCC READ D.E. INTO LOC. /0025 

IOCC INITIALIZE READ 

(NOTE 1) 
IOCC INITIALIZE WRITE 

(NOTE 1) 
IOCC SENSE THE COMPARATOR 

(NOTE 1) 
MPX AODR. BIT 2=LIMIT WD. FOLLOWS 
LIMIT WORD - READ FROM SWITCHES 
SPARE LOCATION 
RD TABLE 



FIRST AI ATTACHMENT. FOR THE 
THE FOLLOWING STORAGE LOCATIONS 



LOCATION 

/001B 
/001F 
/0021 
/0023 



CONTENTS 

/8 701 
/8620 
/8500 
/8781 



DATE 01 JUL 66 
EC 415178 

OATE I If NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

OATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 415233B 



DATE 15 m 67 
EC 41 1731 



DATE 02 DEC 68 
EC 4 I 1961 
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DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31 JUL 70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


21A 



uvvLLLvvL v> LLLvLLLlI>vLClLvCCCLvCCCC 



O 
O 

a 



. IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 1800 SYSTEM 
SCOPE LOOP PROGRAMS 
1/0 SCOPE LOOP-AI DC RANDOM OVERLAP (XXXII, XXXIII) 



SCAN CTRL. -NO CHAIN, INTO. 

ADC READING FROM 
CALIBRATION POINT 

ADC READING FROM THE 
SELECTED ADDRESS 

(I WRITE) 

CALIBRATION POINT 
CALIBRATION POINT 
ADDR. FROM O.E. SWS. 
CALIBRATION POINT 
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1. PROGRAM DESCRIPTION 

THIS PROGRAM SHOULD BE USED ONLY FOR 
SYSTEMS WITH "MPXR. OVERLAP" FEATURE. 
IF A SOLID STATE POINT IS SELECTED, 
PROGRAM WILL READ THE CALIBRATION 
POINT TWICE AND THE SELECTED POINT 
ONCE. 

IF A RELAY POINT IS SELECTED, PROGRAM 
WILL READ THE CALIBRATION POINT TWICE, 
INITIATE A RELAY MULTIPLEXER OPERATION, 
READ THE CALIBRATION POINT ONCE AGAIN, 
COMPLETE THE RELAY MULTIPLEXER AND 
CONVERSION OPERATIONS, THEN READ 
(DPC MODE) THE CONVERTED RELAY VALUE 
INTO LOCATION /0027. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 
!Mt2 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO RUN THE CARD IN AND 
ONCE TO BRING UP * READY! FOR PAPER 
TAPE INPUT. PLACE THE DELETE HOLE 
SECTION OF THE PAPER TAPE OVER THE 
READ STATION. 

2. SET "CHECK STOP* AND "DISABLE 
INTERRUPT* SWITCHES ON. TURNING 

*DISABLE INTERRUPT* SWITCH ON CAUSES 
ALL CAR CHECK ERRORS TO BE IGNORED. 

3. PRESS 'RESET* AND "PROGRAM LOAD" 
CONSOLE BUTTONS. THE PROGRAM WILL 
LOAD AND STOP AT WAIT I. 

4. SET THE DATA ENTRY SWITCHES TO THE 
MULTIPLEXER ADDRESS DESIRED. 

5. PRESS THE CONSOLE "START* BUTTON. 
PROGRAM WILL START READING AND 
CONVERTING THE CALIBRATION POINT 
AND THE SELECTED POINT. WHEN THE 
PROGRAM STOPS AT WAIT 2, THE ADC 
READING FOR THE SELECTED POINT 1$ 
IN THE A REG. AND THE DSW IS IN 
THE Q REG. 

3. SERVICE HINTS 



1. 



DSW 
END OF TABLE 
OPC SS CONV. COMPL. 
DPC RLY. CONV. COMPL. 
STOR. PROT. VIOL. 
PARITY CTRL. ERROR 
PARITY PATA ERROR 
ADC OVERLOAD 
OVERLAP CONFLICT 
DATA CH., SS MPXR. OR AMAR BUSY 
DPC RLY. MPXR. BUSY 
ANY ERROR 



TO PUT THE PROGRAM IN A CONTINUOUS 
LOOP. CHANGE THE WAIT (3002) AT 
LOCATION /0010 TO A NOP (1000). 
WHEN A SYSTEM HAS "MPXR. OVERLAP* - 
INSTALLED, RELAY VALUES ARE 
TRANSFERRED INTO STORAGE IN DPC MODE 
AND THE WORD COUNT IS NOT DECREMENTED. 
IN THIS PROGRAM. IF A SOLID STATE 
POINT IS SPECIFIED IN THE O.E. SWS. 
MPXR. ADDRESSES STORED IN LOC. /0020- 
/0022 WILL BE READ. IF A RELAY POINT 
IS SPECIFIED, MPXR. ADDRESSES STORED 
IN LOC. /0C20-/0023 WILL BE READ, BUT 
THE TRANSFER TO STORAGE OF THE RELAY 
VALUE WILL BE ACCOMPLISHED BY THE DPC 
READ COMMAND.. (LOC. /OOOC) 



„DAJE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 4I5233B 



DATE 15 HAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 
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APPENDIX B 



0000 





3001 


0001 





081C 


0002 





0819 


0003 





0816 


0004 





08 OF 


0005 





4804 


0006 





6012 


0007 





4810 


0008 





6004 


0009 





1009 


OOOA 





4828 


OOOB 





6004 


OOOC 





080B 


OOOD 





0808 


OOOE 





1890 


OOOF 





C017 


0010 





3002 


0011 





6001 


0012 





3006 


0013 





6000 


0014 





0000 


0015 





5700 


0016 





0000 


0017 





5701 


0018 





0027 


0019 





5200 


001 A 





0020 


001B 





55 00 


001C 





0024 


0010 





5628 


001 E 





0022 


001F 





0240 


0020 





13E8 


0021 





13E8 


0022 





0000 


0023 





13E8 


0024 





0003 


002 5 





0000 


0026 





0000 


0027 





0000 



*** AI DC RANDOM OVERLAP SCOPE LOOP *** XXXII, XXXIII 



ABS 

BEGIN WAIT 1 

XIO DESW 

XIO IREAD 

XIO WRITE 

XIO DSW 

BSC E 

LDX ERROR 

BSC 

LDX /0004 

SLA 9 

BSC + Z 
* 

LDX /0004 
XIO READ 

XIO DSW1 

SRT 16 

LD ADC 

WAIT 2 

LDX /0001 

ERROR WAIT 6 

LDX /OOOD 
* 

*** IOCC»S *** 
* 
DSW DC 

DC /5700 
0SW1 DC 

DC /5701 

READ DC /0027 

DC /5200 

WRITE DC /0020 

DC /5500 

IREAD DC /0024 

DC /5628 

DESW DC /0022 

DC /0240 
* 

*** TABLES *** 

* 

DC /13E8 

DC /13E8 

DC 

DC /13E8 

DC /0003 

DC 
DC 
ADC DC 

END BEGIN 
* 

*** NOTE 1*** 
* 

*THIS LISTING IS FOR THE 
*AI EXPANDER ATTACHMENT. 
^CONTAIN - 
* 

* LOCATION 
* 

* /0015 

* /0017 

* /0019 

* /001B 

* /001D 



SET CONSOLE SWITCHES 

READ D.E. SWS. INTO LOC. /0022. 

INITIALIZE READ RANDOM 

INITIALIZE WRITE 

SENSE DSW (NO RESET) 

SKIP IF NO ERROR (BIT 15=0) 

BRANCH TO ERROR WAIT 

SKIP IF EOT BIT IS ON. (BIT 0=1) 

BRffNCH TO LOCATION /0004. 

SKIP IF DPC BUSY BIT IS OFF. 

(BIT 0=0) 
BRANCH TO LOCATION /0004. 
READ THE ADC REGISTER INTO 

LOC. /0027. 
SENSE AND RESET THE DSW. 
PUT DSW IN REGISTER 
PUT ADC READING IN A REG. 

BRANCH TO LOCATION /0001. 

ERROR WAIT 

BRANCH TO LOC. /OOOD 



IOCC SENSE DSW WITH NO RESET 

(NOTE 1) 
IOCC SENSE AND RESET THE DSW 

(NOTE 1) 
IOCC READ THE ADC REGISTER 

(NOTE 1) 
IOCC INITIALIZE WRITE 

(NOTE 1) 
IOCC INITIALIZE READ RANDOM 

(NOTE 1) 
IOCC READ THE DATA 
ENTRY SWITCHES 



CALIBRATION MPX ADDR 

CALIBRATION MPX ADDR 

ADDR. FROM DATA ENTRY SWITCHES. 

CALIBRATION MPX ADDR 

WD. CT.=3 NO CHAIN WITH INTR. 

ADC READING FROM CALIBRATION POINT 

ADC READING FROM CALIBRATION POINT 

ADC READING 



FIRST AI ATTACHMENT. FOR THE 
THE FOLLOWING STORAGE LOCATION 



CONTENTS 

/8700 
/870i 
/8200 
/8500 
/B628 



DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


22A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS 
.0.1. DPC SCOPE LOOP (XXXIV) 



CZD 



( RESTART J 



' r /000l 



S/P sw 



WAIT I 

SET 
CONSOLE 

SWS 



]—0.l. 



"aod^I cn™ 



O.E. SW 



/40-/7F 



fi 



f /0QQ6 



L - 1 STOP AFTER EACH READING 
L«0 LOOP 



JHL 


.^LOOP?^ 


t 




\ 


NO 






' 


'/0012 






0. RE6 




WAIT 2 


1 READINGJ 
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1. PROGRAM DESCRIPTION 

WILL READ THE SELECTED 0.1. GROUP, AND DISPLAY 
RESULTS IN THE Q REGISTER. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 1H42 
HOPPER. PRESS THE IH42 START BUTTON ONCE 
TO RUN THE CARD IN AND ONCE TO BRING UP 
"READY". FOR PAPER TAPE INPUT, PUCE THE 
DELETE HOLE SECTION OF THE PAPER TAPE OVER 
THE READ STATION. 

2. SET "CHECK STOP" SWITCH ON. 

3. PRESS "RESET" AND "PROGRAM LOAD" CONSOLE 
BUTTONS. PROGRAM WILL LOAD AND STOP AT 
WAIT I. 

4. SET THE D.I. ADDRESS IN THE SENSE/PROG. 
SWITCHES (/»0 - /7F). 

5. SET DATA ENTRY SWITCH 15 - I TO STOP AFTER 
EACH READ OPERATION WITH THE READING IN THE 
0. REGISTER. SET SW. 15 - TO LOOP. 

6. PRESS CONSOLE "START" SUTTON, 

7. IF A CAR CHECK ERROR OCCURS, THE PROGRAM 
WILL STOP AT WAIT 8. 



DSW 

PARITY 

1 STOR. PROT. VIOL. 

2 0.1. SCAN COMPL. 
15 0.1. BUSY ' 



( INTERNAL ^ 
\^ INTERRUPT^ 


) 


\ 


[ /OOOJ 


\ SENSE / 

\""7 


f 

1 


i 


' /OOOI 


WAIT 8 
ERROR 




< 


/OOOC 




BRANCH 
OUT TO 
PROGRAM 





A REG 
| INTERNA^ INTR 



A REG 



P^Wh 



INJR 



- INVALID OP CODE 

1 - PARITY ERROR 

2 - S.P.V. 

3 - CAR CHECK 



DATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 4I5233B 



BATE 15 mY 67 
EC 41 1731 



DATE 02 DEC 68 
EC 411961 
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SCOPE LOOP PROGRAMS 
M APPENDIX B 



P 

t> 
P 

D 



D 
D 
D 
p 
p 



DATE 

EC NO. 



















0000 
0001 

0002 

0003 
00 04 
0005 
0006 
0007 
0008 
0009 
000 A 
OOOB 
OOOC 00 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
00 IB 
001C 
00 ID 





















001E 



1000 

3001 

0813 

1808 

E817 

D015 

0813 

600E 

0009 

0000 

08 09 

3008 

4CC00009 

COOE 

1890 

0807 

4804 

3002 

6002 

0000 

0300 

0000 

0760 

0000 

0740 

001D 

5A00 

5A00 

0000 

0000 



XIO 

SRA 

OR 

STO 

XIO 

LOX 

DC 

DC 

XIO 

WAIT 

BOSC I 

LD 

SRT 

XIO 

BSC 

WAIT 

LDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

END 



1 

/0016 

8 

/001C 

/001B 

/001A 

/OOOE 

/0009 

/0014 

8 

/0009 

/001D 

16 

/0018 

E 

2 

/0002 

/0300 

/0760 

/0740 
/001D 
/5A00 
/5A00 



BEGIN 
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*** DI - DPC SCOPE LOOP *** 
* 

ABS 

BEGIN NOP 

WAIT 



XXXIV 



WAIT AFTER IPL. 

SENSE PROG. SWS. (DI ADDRESS) 

OR IN /5A00. 

STORE IOCC TO REAO DI. 

READ DI INTO LOCATION /001D. 

BRANCH TO /OOOE. 

INTERNAL INTERRUPT VECTOR. 

INTERNAL INTR ENTRY 

SENSE ILSW. 

INTERNAL ERROR. (TO LOOP, NOP WAIT) 

BRANCH OUT VIA LOCATION /0009. 

PUTS DI READING INTO ACCUMULATOR. 

PUTS DI READING INTO Q-REGISTER. 

SENSE DATA SW'S. 

SKIP IP BIT 15=0. (LOOP) 

BRANCH TO /0002. 
SENSE ILSW. 

SENSE PROG. SW'S. 

SENSE DATA SW'S. 

READ DI INTO LOCATION /001D. 
READ IOCC . 

CONSTANT, DI AREA AND READ FCN. 
STORAGE FOR DI READING. 



01JUL66 
415178 



04N0V66 
415233 



15FEB67 
415233B 



15MAY67 
411731 



02DEC68 
411961 



14N0V69 
431319 



31JUL70 
431326 



PROG ID 
PAGE 



08C8-* 
23A 



1 i 

O 

a 

i 

Q 

} o! 
i 

o 
o 
o 

c 
c 

c - 

o 

d 

q 
q 
q 

Q 

ei 
d 

o 

o 
o 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS «»■"! 

01 0C SCOPE LOOP (XXXV) 




WAIT I 
SET DATA 

ENTRY 
SWITCHES 



' ' /000E 




MODE CONTROL 
XX-00-READ RANDOM 
-01-READ SEQUENTIAL 
-10-READ SINGLE ADRS 



SET 
ADDRESS 
IN TABLE 



BUILD 

I/O 

INSTRUCTION 



/0014 




ACC S- INDEX 
REGS SHOW 
ADR t DATA 



I 



/0021 



WAIT 6 
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Dl DC SCOPE LOOP 

I. PROGRAM DESCRIPTION 

PROGRAMS SENSES THE DATA ENTRY SWITCHES TO 
FIND THE ADDRESS AND THE MODE IN WHICH Dl 
IS TO WORK,. AFTER STORING THE ADDRESS IN 
THE TABLE, IT WILL BUILD THE I/O INSTRUCTION. 
EXECUTE AN I/O READ. THE PROGRAM WILL THEN 
CHECK TO DETERMINE IF THERE IS ANY ERRORS 
IF THERE ARE ERRORS, IT WILL LOAD THE REG 
ADDRESS IN THE ACCUMULATOR, DATA IN INDEX 
REGISTER 1, DATA OR ADDRESS IN INDEX 
. REGISTER 2 DEPENDING UPON THE MODE, AND 
DATA IN INDEX REGISTER 3 COME TO WAIT 6. 
2. OPERATING PROCEDURES 

1. PLACE SINGLE IPL CARD IN 1442 HOPPER 
PRESS THE 1442 START BUTTON ONCE TO 
READ THE CARD IN, AND ONCE TO BRING UP 
LOAD READY. FOR PAPER TAPE INPUT, PUCE 
THE DELETE HOLE SECTION OF THE PAPER 
TAPE OVER THE READ STATION. 

2. SET 'CHECK' SWITCH ON. 

3. PRESS PRESET* AND 'PROGRAM LOAD' CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND STOP 
AT WAIT I. 

SET THE DATA ENTRY SWITCHES TO FOLLOWING 
MODE OF OPERATION IN BIT SWITCHES AND 1 
AND THE ADDRESS REGISTER IN BIT SWITCHES 8 
TO 15 OF THE DATA ENTRY SWITCHES. 
PRESS START. PROGRAM WILL RUN. 
WAIT 6 WILL INDICATE A PARITY ERROR. THE 
ADDRESS OF THE REGISTER WILL BE IN THE 
ACCUMULATOR. INDEX REGISTER 1 WILL HAVE 
DATA. INDEX REGISTER 2 WILL HAVE DATA OR 
AN ADDRESS IF IN RANDOM MODE. INDEX REGISTER 1 
WILL HAVE* DATA, «bi»i«i 3 



4. 



5. 
6. 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



C> C^ C> C* C» C> v> C>C>C>C/C>C>C>C»C}Ci 
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DATE 15 FEB 67 
EC 4I5233B 



DATE 15 MAY 67 
EC 41 173 1 



DATE 02 DEC 68 
EC 4 1 1361 



OATE 14 NOV 69 
EC 431319 



*** Dl - DC SCOPE LOOP *** XXXV 









* 


ABS 








0280 






ORG 









0000 


600D 


DESW 


LDX 


BEGIN 




1 


0001 


0740 




DC 


/0740 


SENSE DATA ENTRY SWITCHES 


j 


0002 


0023 


READ 


DC 


RAREA 


READ AREA 


"* 


0003 


5E00 




DC 


/5E00 


READ I0CC 




0004 


5E00 


DSW 


DC 


/5E00 


CONSTANT 




0005 


5F01 




DC 


/5F01 


SENSE DSW IOCC 




0006 


0000 


ILSW 


DC 








0007 


0300 




DC 


/0300 


SENSE ILSW IOCC 


1 


0008 


0009 


* 


DC 


INTER 


INTERNAL INTR ADRS VECTOR 


i 


0009 


0000 


INTER 


DC 





INTERNAL INTR ENTRY 


. 1 


OOOA 


08FB 




XIO 


ILSW 


SENSE ILSW 


i 


00 OB 


3008 


WAIT8 


WAIT 


8 


ILSW IN ACC 


i 
* 


OOOC 


4878 


♦ 


BOSC 


+-Z 


SKIP AND RESET INTR 


, • 


OOOD 


3001 


BEGIN 


WAIT 


1 • 


SET DATA ENTRY SWITCHES 


• 


OOOE 


08F1 




XIO 


DESW 


SENSE DATA ENTRY SWITCHES 


' 1 


OOOF 


D014 




STO 


ADR 


SET ADR IN TABLE 




0010 


D015 


* 


STO 


ADR+2 


USED ONLY IN RANDOM MODE 


1 1 


0011 


1809 




SRA 


9 


POSITION MODE BITS 


1 ' 


0012 


E8F1 




OR 


DSW 


ADD AREA AND FUNC 


i i 


0013 


DOEF 




STO 


READ 


BUILD IOCC 


1 ' 


0014 


08ED 


3jt 


XIO 


READ 


READ DIGITAL 




0015 


08EE 


CK 


XIO 


DSW 


SENSE DSW 


1 


0016 


4804 




BSC 


E 


IS DEVICE BUSY 


j ' 


0017 


6015 




LDX 


CK 


* YES 


* 


0018 


4810 




BSC 


- 


* NOt PARITY ERRORS 


' > 


0019 


600E 




LDX 


BEGIN+1 


* NO 


001A 


C009 




LD 


ADR 


* YES, GET ADRS 




001 B 00 


65800025 




LDX 


11 ADR+1 


GET 1 ST DATA 


1 > 


001D 00 


66800026 




LDX 


12 ADR+2 


GET 2 ND DATA OR RAND ADRS 


001 F 00 


67800027 




LDX 


13 ADR+3 


GET 3 RO ADRS 




0021 


3006 


WAIT6 


WAIT 


6 


PARITY ERROR FOUND 


> 


0022 


600E 


£ 


LDX 


BEGIN+1 






0023 


0004 


RAREA 


DC 


/0004 


WORD COUNT 


> 


0024 


0000 


ADR 


DC 




ADDRESS 


0025 


0000 




DC 




DATA 




0026 


0000 




DC 




DATA OR ADR IF RAND MODE 


i 


0027 


0000 




DC 




DATA 



0028 



0000 



END 



OESW 
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DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 




h EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


24A 
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16 BIT PULSE CTR. SCOPE LOOP (XXXVI) 
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1. PROGRAM DESCRIPTION 



J 



WILL STEP THE SELECTED 16 BIT PULSE COUNTER 
2 'o - 2 TIMES ANO CHECK THAT THE COUNTER IS 



S/P SW 



■/ILL S 
AT /FFFE. 



If/0000 



1 



WAIT I 

SET 
CONSOLE 
SWITCHES 



ADDR 



D.E. SW. 



3 



i 70005 



X - LOOP 

X - I WAIT AT END OF PROGRAM 



XIO READ t 

RESET 

PULSE 

. COUNTER 



\ r/0007 



XIO TURN 

\TEST PULSE> 

LATCH 

ON 



I 



/0008 



DEWY 1 
100 USEC 
ON 2 USEC 
SYSTEM 



' r/QOOB 



110 TURN / 
iST PULSE/ 
UTCH / 

l£!7 



I 



/OOOC 



DELAY 2 
100 USEC 
ON 2 USEC 
SYSTEM 





2. OPERATING PROCEDURE 

1. PLACE THE SINGLE I PL CARD IN THE lUtl 
HOPPER. PRESS THE 1^42 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE INPUT. 
PLACE THE DELETE HOLE SECTION OF THE 
PAPER TAPE OVER THE READ STATION. 

2. SET "CHECK STOP" SWITCH ON. 

3. PRESS "RESET" AND "PROGRAM LOAD" CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND STOP 
AT WAIT I. ,(B REG - 3001). 

H. SET THE ADDRESS OF THE PULSE COUNTER 
IN SENSE/PROG. SWS. 1-7 (/7F - /l|0). 

5. SET DATA ENTRY SW. IS . TO LOOP OR » 1 
TO WAIT AT THE END OF THE PROGRAM. 

6. CONNECT THE TEST PULSE WIRES TO TERMINAL 
OF THE COUNTER BEING TESTED. (TBI 9-12, 13) 

7. PRESS CONSOLE "START" BUTTON. THE 
PROGRAM WILL STEP THE COUNTER (2'°) - 2 
TIMES. IF THE COUNTER CONTAINS /FFFE, 
IT WILL GO TO WAIT 2 OR LOOP, AS DEFINED 
BY D.E. SW. 15. IF THE COUNTER HAS AN 
INCORRECT. AMOUNT, IT WILL GO TO WAIT 6. 

8. THE RUNNING TIME ON A 2 MICRO-SEC. 
SYSTEM IS 15 SECONDS. 

3. SERVICE HINTS 

1. LOCATION /0022 CONTAINS THE NUMBER OF 
TIMES THE COUNTER WILL STEP. ANY VALUE 
MAY BE LOADED INTO THIS LOCATION. 

2. THE OUTPUT OF THE "TEST PULSE LATCH" 
COMES OUT TO TB-19 TERMINALS 12 AND 13. 



/00I8 



WAIT 6 
ERROR 



A REG. 



| C (PULSE CTR) 1 



/0018 



WAIT 2 
PRESS START 
TO 

CONTINUE 



DSW 

PARITY 

1 STOR. PROT. VIOL. 

2 D.I. SCAN. COMPL. 
15 D.I. BUSY 



DATE 111 NOV 69 
EC <»31JI9 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 

EC 431326 



DATE 15 FE* 67 
EC *15233B 



DATE 15 NAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 
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i ' 



\ I 







#** F 


ULSE ( 


:OUNTER» 16 






* 


ABS 




0000 


3001 


BEGIN WAIT 


1 


0001 


0810 




XIO 


SPSW 


0002 


1808 




SRA 


8 


0003 


E820 




OR 


DESW 


0004 


D022 


* 


STO 


READ+1 


0005 


0820 


XIO 


READ 


0006 


C01B 


# 


LD 


OFF . 


0007 


0819 




XIO 


ON 


0008 


61F0 




LDX 


1 -16 


0009 


7101 




MDX 


1 +1 


OOOA 


6009 




LDX 


/0009 


OOOB 


0817 




XIO 


OFF 


OOOC 


61F0 




LDX 


1 -16 


OOOD 


7101 




MDX 


1 +1 


OOOE 


600D 




LDX 


/OOOD 


OOOF 


1000 




NOP 




0010 


900F 




S 


ON 


0011 00 


4C180014 




BSC 


L /0014t+ 


0013 


6007 




LDX 


/0007 


0014 


0811 


* 


XIO 


READ 


0015 


C012 


LD 


/0028 


0016 


BOOB 


* 


CMP 


OFF 


0017 


1000 


NOP 




0018 


3006 




WAIT 


6 


0019 


08 OB 




XIO 


DESW 


001 A 


4804 




BSC 


E 


001 B 


3002 




WAIT 


2 


001C 


6001 




LDX 


/0001 


001D 


0000 




DC 








*** IOCC'S 


*** 


001 E 


0000 


SPSW 


DC 




001F 


0760 




DC 


/0760 


0020 


0001 


ON 


DC 


/0001 


0021 


6401 




DC 


/6401 


0022 


FFFE 


OFF 


DC 


/FFFE 


0023 


6400 




DC 


/6400 


0024 


5A00 


DESW 


DC 


/5A00 


0025 


0740 




DC 


/0740 


0026 


0028 


READ 


DC 


/0028 


0027 


5A00 




DC 


/5A00 


0028 


0000 




DC 
END 


BEGIN 



BIT SCOPE LOOP *** XXXVI 



WAIT AFTER IPL. 

SENSE PROG. SW»S. 

MODIFIER FOR READ PULSE COUNT IOCC. 

OR IN /5A00. (PC AREA AND READ 

FUNCTION) 
STORE READ PULSE COUNT IOCC AT 

LOCATION /0027. 
READ PULSE COUNT INTO LOCATION 

/0028. (RESET) 
PUT /FFFE IN ACCUM. BEGIN /FFFE 

TEST PULSES. 



TEST PULSE ON. 
PUT /FFFO IN XR1. 
INCR XRl BY 1. 
BRANCH TO /0009. 
TEST PULSE OFF. 
PUT /FFFO IN XRl. 

INCR XRl BY 1. 
BRANCH TO /OOOD. 



BEGIN DELAY 1. 



BEGIN DELAY 2. 



SUBT. 1 FROM ACCUM 
BRANCH TO /0014 IF ZERO. 
BRANCH TO /0007. 
READ PULSE COUNTER INTO 

LOCATION /0028. 
PUT PULSE COUNT READING INTO ACCUM. 
IS ACTUAL COUNT EQUAL TO 

DESIRED. COUNT. 
NO 

ERROR WAIT. 
SENSE DATA SWS. 
SKIP IF LOOPING PROGRAM. 

(DATA SW15=0) 
TEST COMPLETED OK. 
BRANCH TO /0001. REPEAT PROGRAM. 
SPARE LOC. 



SPARE LOC. 

IOCC-SENSE PROG. SW'S. 
CONSTANT 

IOCC-TEST PULSE ON. 
NO. OF COUNTS. 
IOCC-TEST PULSE OFF. 
CONSTANT 

IOCC-SENSE DATA SW'S. 
IOCC-READ PULSE COUNT INTO 
LOCATION /0028. 

PULSE COUNT READING STORAGE. 



DATE 


01JUL66 


04 NOV 66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM' 

SCOPE LOOP PROGRAMS 

8 BIT PULSE CTR. SCOPE LOOP (XXXVII) 



1 ' /OOOO 



WAIT 1 
SET 

CONSOLE 
SWS 



1 ' /OOOA 




< I /OOOB 



DELAY 1 
100 mSEC ON 
2 mSEC SYS 



' /OOOE 



XIO TURN 

(TEST PULSE. 

LATCH 

OFF 



1 ' /0008 



NO 



GE3 CUD 



S/P sw. 

7 



C|^-*DDR -»] 



[ 



15 



E 



C - 1ST COUNTER 

C - 1 2ND COUNTER 

I m LOOP 

L - 1 WAIT AT END OF PROGRAM 



f /OOHi 

To~R£adT7 

RESET / 
PULSE / 
COUNTER/ 



DELAY 2 
100 ixSEC ON 
2 MSEC SYS 




' 


' 






/001B 




V^IS^V 

< COUMT > 
N-/FE >^ 


no 


WAIT 6 
ERROR 






V STEPS? > 


< 


,YES 








' 




A R 


EG. 


JYES 




C (PULSE CTR) 
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I. PROGRAM DESCRIPTION 

WILL STEP THE SELECTED 8 BIT PULSE COUNTER 
254 TIMES AND CHECK THAT THE COUNTER IS AT 



2. OPERATING PROCEDURE 

1. PUCE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE INPUT, 
PLACE THE DELETE HOLE SECTION OF THE 
PAPER TAPE OVER THE READ STATION. 

2. SET "CHECK STOP" SWITCH ON. 

3. PRESS "RESET" AND "PROGRAM LOAD* CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND 
STOP AT WAIT 1 . (B REG - 3001) 

4. SET THE ADDRESS OF THE PULSE COUNTER 

IN SENSE/PROG. SWS. 1-7 (/7F-/40). SET 
SW. - FOR THE 1ST COUNTER AKD - 1 
FOR THE 2ND. 

5. SET DATA ENTRY SW. 15 - TO LOOP OR - 1 
TO WAIT AT THE END OF THE PROGRAM. 

6. CONNECT THE TEST PULSE WIRES TO TERMINAL 
OF THE COUNTER BEING TESTED. (TB19-12.I3) 

7. PRESS CONSOLE "START" BUTTON. THE 
PROGRAM WILL STEP THE COUNTER 254 TIMES. 
IF THE COUNTER CONTAINS /FE, IT WILL GO 
TO WAIT 2 OR LOOP, AS DEFINED BY D.E. 
SW. 15. IF THE COUNTER HAS AN INCORRECT 
AMOUNT. IT WILL GO TO WAIT 6. 

8. THE RUNNING TIME ON A 2 MICRO-SEC. SYSTEM 
IS LESS THAN 1 SECOND. 

3. SERVICE HINTS 

1. LOCATION /0009 CONTAINS THE NUMBER OF 
TIMES THAT THE COUNTER WILL STEP. ANY 
VALUE BETWEEN I AND 255 MAY BE LOADED INTO 
THIS LOCATION. 

2. THE OUTPUT OF THE 'TEST PULSE LATCH" COMES 
OUT TO TB-19 TERMINALS 12 AND 13. 



DSW 

PARITY 

1 STOR. PROT. VIOL. 

2 D.I. SCAN COHPL. 
15 D.I. BUSY 



YES 




WAIT 2 

PRESS 

START TO 

CONTINUE 
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1 ! 









*** 


PULSE ( 


:OUNTERt 










ABS 






0000 





3001 


BEGIN WAIT 




1 


0001 





081F 




XIO 




/0021 


0002 





4828 




BSC 




Z + 


0003 





2001 




LDS 







0004 





1001 




SLA 




1 


0005 





1809 




SRA 




9 


0006 





E81D 




OR 




/0024 


0007 





001F 


* 


STO 




/0027 


0008 


00 


670000FE 


LDX 


L3 


/OOFE 


OOOA 





081A 


XIO 




/0025 


OOOB 





61F0 




LOX 


1 


-16 


00 OC 





7101 




MDX 


1 


+ 1 


OOOD 





600C 




LDX 




/OOOC 


OOOE 





0810 




XIO 




/001F 


OOOF 





61F0 




LDX 


1 


-16 


0010 





7101 




MDX 


1 


+ 1 


0011 





6010 




LDX 




/0010 


0012 





73FF 


* 


MDX 


3 


-1 


0013 





600A 


LDX 




/OOOA 


0014 





0811 




XIO 




/0026 


0015 





C012 




LD 




/0028 


0016 





4801 




BSC 







0017 





1808 




SRA 




8 


0018 





E009 




AND 




/0022 


0019 





BOEF 




CMP 




/0009 


001A 





1000 




NOP 






001B 





3006 




WAIT 




6 


001C 





0806 




XIO 




/0023 


001 D 





4804 




BSC 




E 


OOIE 





3002 




WAIT 




2 


001F 


00 


64000001 


$ 


LDX 


L 


/0001 








*** 

* 


IOCC'S 


*#* 


0021 





0760 


DC 




/0760 


0022 





OOFF 




DC 




/OOFF 


0023 





0740 




DC 




/0740 


0024 





5A00 




DC 




/5A00 


0025 





6401 




DC 




/6401 


0026 





0028 




DC 




/0028 


0027 





5A00 




DC 




/5A00 


0028 





0000 




DC 
END 




BEGIN 



BITt SCOPE LOOP *** XXXVII 



WAIT AFTER IPL. 

SENSE PROG. SW'S. 

SKIP IF 1ST COUNTER. (PROG. SWO=0) 

SET OFLO. (2ND COUNTER) 

MODIFIER FOR READ PULSE COUNT IOCC. 
OR IN /5A00. (PC AREA AND 

READ FUNCTION) 
STORE READ PULSE COUNT IOCC 

AT LOCATION /0027. 
PUT /OOFE IN XR3. BEGIN 254 

TEST PULSES. 
TEST PULSE ON. 

PUT /FFFO IN XR1. BEGIN DELAY 1. 
INCR XR1 BY 1. 
BRANCH TO /OOOC. 
TEST PULSE OFF. 

PUT /FFFO IN XR1. BEGIN DELAY 2. 
INCR XR1 BY I. 
BRANCH TO /0010. 
DECR XR3 BY 1. (SKIP AFTER 

254 TIMES) 
BRANCH TO /OOOA. 
READ PULSE COUNT INTO 

LOCATION /0028. 
PUT PULSE COUNT READING INTO ACCUM. 
SKIP IF 1ST COUNTER. 

AND IN /OOFF. 

ARE THE COUNTS EQUAL. 

ERROR WAIT. 

SENSE DATA SW'S. 

SKIP IF LOOPING PROGRAM. 

(DATA SW15=0) 
TEST COMPLETED OK. 
BRANCH TO /0001. REPEAT PROGRAM. 



IOCC-SENSE PROG. SW'S. 
CONSTANT 

IOCC-SENSE DATA SW'S. 
CONSTANT 

IOCC-TEST PULSE ON. 
IOCC-READ PULSE COUNT INTO 

LOCATION /0028. 
PULSE COUNT READING STORAGE. 



o 



DATE 01 JUL 66 
EC *» 1 5 1 78 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC l<15233 

DATE 31 JUL 70 
EC 431326 



OATE tj FEB 67 
EC 415233B 



DATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 
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DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 
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415233B 


411731 


411961 


431319 


431326 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

DAO - DPC PULSE OUTPUT SCOOP LOOP (XXXVI 1 1) 



GED 



(RESET fr "\ 
START J 



70001 



WAIT I 
SET 

CONSOLE 
SWS 



S/P SW, 

7 

K'»°- adom «5™jr 

O.E. SW. 



15 



DATA 



3 
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1. PROGRAM DESCRIPTION 

WILL WRITE A PULSE OUTPUT DATA WORD, DELAY 
RESET THE PULSE OUTPUT DATA WORD, DELAY * 
AND REPEAT. 

2. OPERATING PROCEDURE 

I. PUCE THE SINGLE IPL CARD IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON 
ONCE TO RUN THE CARD IN AND ONCE TO 
BRING UP "READY". FOR PAPER TAPE 
INPUT, PLACE THE DELETE HOLE SECTION 
OF THE PAPER TAPE OVER THE READ STATION. 
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2. SET "CHECK STOP* SW. 
3. 



ON, 



DELAY I 
SEE SERVICE 
HINT NO. I 



1/6 SEC FOR 
2 11S SYS. 

1/3 SEC FOR 
* »*S SYS. 



\ '70014 
XI07 
CONTROL / 
(RESET / 



3. 



/0015 



DELAY 2 
SEE SERVICE 
HINT NO. I 



1/6 SEC FOR 

2 uSEC SYS 

1/3 SEC FOR 

4 uSEC SYS 



PRESS RESET" AND "PROGRAM LOAD" CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND STOP 
AT WAIT I. 

4. SET THE PULSE OUTPUT ADDRESS IN THE 
SENSE/PROGRAM SWITCHES. (/00-7F) 

5. SET THE DATA TO BE WRITTEN IN DATA 
ENTRY SWITCHES 0-1 5. 

6. PRESS CONSOLE "START" BUTTON. THE 
PROGRAM WILL WRITE THE P.O. DATA WORD. 
DELAY, RESET THE P.O. DATA WORD, DELAY 
AND REPEAT. ' 

7. IF A CAR CHECK ERROR OCCURS, THE PROGRAM 
WILL STOP AT WAIT 8. 

SERVICE HINTS 

1. IT IS POSSIBLE TO CHANGE THE TIME 

DELAYS. NORMALLY /7FFF IS LOADED INTO 
INDEX REGISTER NO. 1. if A SHALLER 
VALUE IS ENTERED, THE TIME DELAY WILL 
BE LESS. LOCATION /OOU CONTROLS DELAY 
1 AND LOCATION /0016 CONTROLS DELAY 2. 



(INTERNAL "> 
INTERRUPT J 



\ /OOOA 

\ SENSE / 
'ZJ 



"\ 



/OOOB 



WAIT 8 

ERROR 



A REG 



INT. INTR. 
ILSW 



/OOOC 



BRANCH OUT 

TO 

PROGRAM 



DATE 01 JUL 66 
E/C NO. 415178 

DATE 02 DEC 68 
F/C NO <•! 1961 



DATE 04 NOV 66 
E/C 415233 

DATE 14 NOV 69 
EC 431319 



BATE 15 FEB 67 
EC 415233B 

DATE 31 JUL 70 
EC 4)1326 



- INVALID OP CODE 

1 - PARITY ERROR 

2 - S.P.V. 

3 * CAR CHECK 



1 

2 

15 



DATE 15 MAY 67 
EC 411731 



DSW 
PARITY 

PULSE OUTPUT TIMER 
DAO SCAN COMPL. 
DAO BUSY 
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XXXVIII 









ABS 






0000 





1000 


BEGIN NOP 






0001 





3001 


WAIT 


1 


WAIT AFTER IPL. 


0002 





0817 


XIO 


/001A 


SENSE PROG. SW'S. (PO ADDR) 


0003 





1808 


SRA 


8 




0004 





E81F 


OR 


/0024 


OR IN /6100. 


0005 





D01B 


STO 


/0021 


STORE IOCC TO WRITE PO. 


0006 





1000 


NOP 






0007 





600E 


LDX 


/OOOE 


BRANCH TO /OOOE. 


0008 





0009 


DC 


/0009 


INTERNAL INTERRUPT VECTOR. 


0009 





0000 


DC 




INTERNAL INTR ENTRY 


OOOA 





0813 


XIO 


/001E 


SENSE ILSW. 


OOOB 





3008 


WAIT 


8 


INTERNAL ERROR. (TO LOOP, NOP WAIT) 


OOOC 


00 


4CC 00009 


BOSC 


I /0009 


BRANCH OUT VIA LOCATION /0009. 


OOOE 





0800 


XIO 


/001c 


READ DATA SW'S INTO LOC. /0025. 


OOOF 





0810 


XIO 


/0020 


WRITE PO FROM LOCATION /0025. 


0010 


00 


65007FFF 


LDX 


LI /7FFF 


PUT /7FFF IN XR1. BEGIN DELAY 1. 


0012 





71FF 


MDX 


1 -1 


DECR. XR1 BY 1. 


0013 





6012 


LDX 


/0012 


BRANCH TO /0012. 


0014 





080D 


XIO 


/0022 


CONTROL, RESET PO. 


0015 


00 


65007FFF 


LDX 


LI /7FFF 


PUT /7FFF IN XR1. BEGIN DELAY 2. 


0017 





71FF 


MDX 


1 -1 


DECR. XRl BY 1. 


0018 





6017 


LDX 


/0017 


BRANCH TO /0017. 


0019 





6002 


LDX 


/0002 


BRANCH TO /0002. 


001A 





0000 


DC 




SENSE PROG. SW'S. 


001 B 





0760 


DC 


/0760 




001C 





0025 


DC 


/0025 


READ DATA SW'S INTO LOCATION /0025. 


001D 





0240 


DC 


/0240 




00 IE 





0000 


DC 




SENSE ILSW. 


001F 





0300 


DC 


/0300 




0020 





0025 


DC 


/0025 


WRITE PO FROM LOCATION /0025. 


0021 





6100 


DC 


/6100 




0022 





0000 


DC 




CONTROL, RESET PO. 


0023 





6480 


DC 


/6480 




0024 





6100 


DC 


/6100 


CONSTANT, PO AREA AND WRITE FCN. 


0025 





0000 


DC 




STORAGE FOR PO DATA WORD. 








END 


BEGIN 


- 



DATE 


01JUL66 


04NOV66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 


27A 
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Q 

°l 
o 

o 

c 

o 
d 

a' 
o 

o 

» 

a 
d 
a 

Q 

o 

d 

q 

6 
i 



E3 



C " L ) ( /ItSt ) 



©■ 



W /0001 



WAIT I 

SET 
CONSOLE 

SWS 
S3 



S/P SW 
7 

|^-0Aa AOOR^JJ 



ENTER 
/0O-/7F 



D.E. SW. 



15 



DATA 



a 



/000F 




/0002 



SENSE S/P 
AND DATA SWS 



/001I 



DELAY I 
SEE SERVICE 
HINT NO. 1 



1/6 SEC FOR 

J 2 pS SYS. 

1/3 SEC FOR 
4 |iS SYS. 
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1. PROGRAM DESCRIPTION 

WILL LOAD AND RESET ONE DIGITAL OR ANALOG OUTPUT 
REGISTER. CAN ONLY BE USED IN O.P.C. MODE. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE I PL CARD IN THE IHH2 HOPPER. 
PRESS THE W2 START BUTTON ONCE TO RUN THE 
CARD IN AND ONCE TO BRING UP "READY". FOR 
PAPER TAPE INPUT, PLACE THE DELETE HOLE 
SECTION OF THE PAPER TAPE OVER THE READ 
STATION. 

2. SET "CHECK STOP" SW. ON. 

3. PRESS CONSOLE "RESET" AND "PROGRAM LOAD" 
BUTTONS. PROGRAM WILL LOAD AND STOP AT 
WAIT 1. 

4. SET THE DAO. ADDRESS IN THE SENSE/PROG 
SWITCHES. (/0O-/7F) SEE SERVICE HINT 2. 

5. SET THE DAO 
SWITCHES. 

6. PRESS THE CONSOLE "START" BUTTON. PROGRAM 
WILL WRITE THE DAO WORD, DELAY, RESET THE 
DAO. WORD, AND REPEAT. 

7. IF A CAR CHECK ERROR OCCURS, THE PROGRAM 
WILL STOP AT WAIT 8. 
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DATA WORD IN THE DATA ENTRY 



i' /OOJ5 



SEE 

SERVICE 
HINT 2 



' /0017 




(INTERNAL ~\ 
INTERRUPT J 



SET OUTPUT 
/0027 - 



/OOOA 



CSV 

PARITY 

1 PULSE OUTPUT TIMER 

2 DAO SCAN COMPL. 
15 DAO BUSY 




3. SERVICE HINTS 

1. IT IS POSSIBLE TO CHANGE THE TIME DELAYS. 
NORMALLY /7FFF IS LOADED INTO INDEX REGISTER 
NO. I. IF A SMALLER VALUE IS ENTERED. THE 
TIME DELAY WILL BE LESS. LOCATION /OOI2 
CONTROLS DELAY, . 

2. IF BUFFERED DAC OPERATION IS DESIRED, CHANGE 
CONTENTS OF LOCATION /0015 TO /O80E. 

**WARNING** 

THE CONTROL COMMAND CAUSES ALL AO BUFFERS TO BE 
TRANSFERRED TO THEIR CORRESPONDING AO REGISTERS. 
IF REGISTER DATA IS NOT THE SAME AS BUFFER 
DATA, THEN THE REGISTER WILL BE CHANGED TO 
REFLECT THE BUFFER DATA. OBTAIN CUSTOMER 
PERMISSION BEFORE ATTEMPT I ON BUFFER TRANSFERS, 

.. ENTER A WAIT COMMAND (/3000) AT LOCATION /0010 
IF IT IS DESIRCD TO HALT THE PROGRAM AFTER 
EACH PASS SO THAT STATIC MEASUREMENTS OF 
OUTPUT DATA CAN BE OBSERVED. 



WAIT 8 
ERROR 



I 



A REG 



INTERNAL INTR.ILSWl 



/OOOC 



BRANCH OUT 
TO MAIN 
PROGRAM 



- INVALID OP CODE 

1 - PARITY ERROR 

2 - S.P.V. 

3 - CAR CHECK 



PATE 01 JUL 66 
EC 415178 

DATE 14 NOV 69 
EC 431319 



DATE 04 NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 



EC 115233B EC 4H731 K j,,,^, 



PROG ID 08CB-* 
PACE 2ft 



','•4 «t 



0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 



1000 
3001 
0819 
1808 
E821 
D01D 
1000 
600E 
0009 



0009 0000 
OOOA 0815 
OOOB 3008 
OOOC 00 4CC00009 



OOOE 

OOOF 

0010 

0011 00 

0013 

0014 

0015 

0016 

0017 

0018 

0019 
001 A 
001B 





















08 OF 

0812 

1000 

65007FFF 

71FF 

6013 

1000 

C010 

4818 

6002 

1010 

OOOC 

600F 



001C 
0010 
001E 
001 F 
0020 
0021 
0022 
0023 
0024 
002 5 

0026 

0027 



0000 
0760 
0027 
0240 
0000 
0300 
0027 
6100 
00 1C 
6440 
6100 
0000 



BEG 



DAO - DPC SCOPE LOOP *** XXXIX 



ABS 
IN NOP 
WAIT 
XIO 
SRA 
OR 
STO 
NOP 
LDX 
DC 



* 

* 



1 

/001C 

8 

/0026 

/0023 

/OOOE 
/0009 



WAIT AFTER IPL. 

SENSE PROG. SW'S. (DAO ADDRESS) 

OR IN /6100. 

STORE IOCC TO WRITE DAO. 

BRANCH TO /OOOE. 

INTERNAL INTERRUPT VECTOR, 



* 
* 



INTERNAL ERROR INTR. RTN *** 



DC 

XIO /0020 

WAIT 8 

BOSC I /0009 



XIO 

XIO 

NOP 

LDX 

MDX 

LDX 

NOP 

LD 

BSC 

LDX 

SLA 

STO 

LTJX 



/001E 
/0022 

LI /7FFF 
1 -1 
/0013 

/0027 

+- 

/0002 

16 

/0027 

/OOOF 



IOCC'S *** 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
END 



/OOOO 
/0760 
/0027 
/0240 

/0300 
/0027 
/6100 
/001C 
/6440 
/6100 

BEGIN 



INTERNAL INTR ENTRY 

SENSE ILSW. 

INTERNAL ERROR. (TO LOOP, NOP WAIT1 

BRANCH OUT VIA LOCATION /0009. 

READ DATA SW'S INTO LOCATION /0027. 

WRITE DAO FROM LOCATION /0027. 

ENTER A HALT HERE, IF DESIRED. 

PUT /7FFF IN XR1. BEGIN DELAY 1. 

DECR. XR1 BY 1. 

BRANCH TO /0013. 

SEE SERVICE HINT 2. 

LOAD DO DATA WORD FROM /0027. 

SKIP IF NOT ZERO. 

BRANCH TO /0002. 

SHIFT LEFT TO SET A-REG TO ZERO. 

STORE /OOOO AT DO DATA WORD. /0027. 

BRANCH TO /OOOF TO WRITE ZERO. 



STORAGE FOR DAO DATA WORD 

SENSE S/P SWS IOCC 

READ DATA SW'S INTO LOCATION /0027. 

READ IOCC 

SENSE ILSW IOCC 

WRITE DAO FROM LOCATION /0027. 

WRITE IOCC 

TRANSFER BUFF TO AO REG. 

CONTROL IOCC. 

CONSTANT, DAO AREA AND WRITE FCN. 

STORAGE FOR DAO DATA WORD. 



DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


4152338 


411731 


411961 


431319 


431326 


PAGE 
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d 
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6 

o 

6 
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p 

d 
o 
o 
o 
o 
o 
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CJED 



ir /0010 



(RESET t "N 
START J 



WAIT I 
SET DATA 

ENTRY 
SWI TCHES 



S/P SWS 



DAO ADRS 



SENSE S/P 
AND SET 

ADDRESS 



I 



BUILD 

I/O 

INSTRUCTION 



SENSE DES 

AND SET 

DATA PATTERN 




DATA ENTRY SWS 
15 



DAO DC SCOPE LOOP 
). PROGRAM DESCRIPTION 

PROGRAM SENSES THE DATA ENTRY SWITCHES TO FIND 
THE DATA PATTERN TO BE USED. THE 
SENSE/PROGRAM SWITCHES INDICATE THE REGISTER. 
AFTER THE TABLE HAS BEEN LOADED, THE I/O 
INSTRUCTION IS BUILT, A WRITE COMMAND IS GIVEN. 
A WAIT 6 INDICATES A PARITY ERROR. 

2. OPERATING PROCEDURES 



DATA PATTERN 



PLACE THE SINGLE IPL CARD IN THE 1442 

HOPPER. PRESS THE 1442 START BUTTON ONCE 

TO READ THE CARD IN, AND ONCE TO BRING UP 

READY. FOR PAPER TAPE INPUT, PLACE THE 

DELETE WHOLE SECTION OF THE PAPER TAPE 

OVER THE READ STATION. 

SET 'CHECK STOP' SWITCH ON. 

PRESS 'RESET' AND 'PROGRAM LOAD' CONSOLE 

BUTTONS. PROGRAM WILL LOAD AND STOP AT 

WAIT I. SEE SERVICE HINTS I AND 2. 

SET THE DATA ENTRY SWITCHES WITH THE 

DATA PATTERN. SET THE SENSE 

PROGRAM SWITCHES WITH THE REGISTER. 

PRESS START AND PROGRAM WILL RUN. 

WAIT 6 WILL INDICATE A PARITY ERROR. 



YES 
/0023 



WAIT 6 



1. 



2. 
3. 



5. 
6. 

SERVICE HINTS 

1. TO RUN SINGLE ADDRESS MODE. SET THE CONTENTS 
OF LOCATION 0002 TO HEX 0040* 

2. IF BUFFERED OAC OPERATION IS DESIRED, CHANGE 
THE CONTENTS OF LOCATION HEX 0024 TO HEX 08E5 

**WARNING** 

THE CONTROL COMMAND CAUSES ALL AO BUFFERS TO 
BE TRANSFERRED TO THEIR CORRESPONDING AO 
REGISTERS. IF REGISTER DATA IS NOT THE SAME AS 
BUFFER DATA, THEN THE REGISTER WILL BE CHANGED TO 
REFLECT THE BUFFER DATA. OBTAIN CUSTOMER 
PERMISSION BEFORE ATTEMPTING BUFFER TRANSFERS. 






/0024 



SEE 

SERV ICE 
HINT 2 
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APPENDIX B 



I 

1 

| \ 



DATE CA NOV 66 
EC <il 5233 

DATE 14 NOV 69 
EC 431319 



DATE 15 FEB 67 
EC 4152336 

DATE 31 JUL 70 
EC 431326 



DATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 



0280 



0000 





6010 


0001 





0740 


0002 





0000 


0003 





0760 


0004 





0026 


0005 





6500 


0006 





6500 


0007 





6701 


0008 





OOOC 


0009 





0300 


OOOA 





0000 


OOOB 





6440 


OOOC 





0000 


OOOD 





08 FA 


OOOE 





3008 


00 OF 





4878 


0010 





3001 


0011 





08F0 


0012 





1808 


0013 





D013 


0014 





D014 


0015 





COEC 


0016 





E8EF 


0017 





DOED 


0018 





08E7 


0019 





DOOE 


001A 


00 


74000002 


001C 





DOOC 


001 D 





DOOC 


001 E 





08E5 


001F 





08E6 


0020 





4804 


0021 





601F 


0022 





4828 


0023 





3006 


0024 





1000 


0025 





6011 


0026 





4004 


0027 





0000 


0028 





0000 


0029 





0000 


002A 





0000 



*** D 


AO - DC 


SCOPE LOOP 


*** XL 


ABS 






* 
DESW 


ORG 







LDX 


BEGIN 






DC 


/0740 


SENSE DATA ENTRY SWS IOCC 


SPSW 


DC 





IF ZERO USE RANDOM MODE 




DC 


/0760 


SENSE S/P SWITCHES IOCC 


WRITE 


DC 


WAREA 


OUTPUT AREA 




DC 


/6500 


WRITE IOCC 


DSW 


DC 


/6500 


CONSTANT 




DC 


/6701 


SENSE DSW IOCC 


ILSW 


DC 


ERROR 


INTERNAL INTERRUPT VECTOR 




DC 


/0300 


SENSE ILSW IOCC 


CTRL 


DC 





CONTROL IOCC 


* - 
ERROR 


DC 


/6440 


BUFFER XFERS 


DC 





INTERNAL INTR ENTRY 




X10 


ILSW 


SENSE ILSW 




WAIT 


8 




jjt 


BOSC 


+-Z 


RESET ERROR AND SKIP 


BEGIN 


WAIT 


1 


SET CONSOLE SWITCHES 




XIO 


SPSW 


SENSE DAO ADDR 




SRA 


8 






STO 


ADRS 


SET DAO ADRS IN WRITE AREA 


& 


STO 


ADRS+2 


USED ONLY IN RANDOM MODE 




LD 


SPSW 


FETCH MODE 




OR 


DSW 


OR IN AREA AND FUNCTION 




STO 


WRITE+1 


BUILD WRITE IOCC 




XIO 


DESW 


SENSE DATA 




STO 


DATA 


PLACE DATA IN WRITE AREA 




MDX L 


SPSW,0 


SKIP IF RANDOM MODE 




STO 


DATA+1 




# 


STO 


DATA+2 




XIO 


WRITE 


GIVE WRITE COMMAND 


CK 


XIO 


DSW 


SENSE DSW 




BSC 


E 


IS DAO BUSY 




LDX 


CK 


* YES 




BSC 


+Z 


* NO, IS THERE AN ERROR 




WAIT 


6 


* YESt DSW IN ACC 




NOP 




SEE SERVICE HINT 2 


jfc 


LDX 


BEGIN+1 


* NO 


WAREA 


DC 


/4004 


WORD COUNT 


ADRS 


DC 




DAO ADDRESS 


DATA 


DC 




DATA 




DC 




DAO ADDRESS IF RANDOM MODE 


* 


OC 




DATA 

8B001190 



002C 



0010 



END 



BEGIN 



PROG ID 08C8-* 


f 
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1 ' DATE 


01JUL66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 




1 \ EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 


PAGE 
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c 
c 
c 

o 

! 



6 



o 



9 

O 

i 

o 



o 



© 

i 
o 



NO 



( ■"• ) C^F) 



< /0000 



WAIT I 

SET CONSOLE 

SWITCHES 

DESIRED 



fr 



BIT 15 OFF-LOOP 
0-3 OFF-AUX STG 

32K SYSTEM 
I6K 



ft 



12 3 



Ji 




Q 



DATA ENTRY SWS 



/0003 



WAIT 2 

PROGRAM 

END 



/0005 



LD AUX 

MEMORY 
CONTENT 



/0006 



SUB 1 TO 

GET LAST CORE 

LOCATION USED 

* STORE 



I 



/0008 



SUB LENGTH 

OF PRG TO 

GET NUMBER 

OF POSITIONS 

TO TEST 



LOAD IX 2 S. 3 
LOAD ACC 
WITH TEST a 
PATTERN 



I 




/0018 



LOAD INST 

6001 IN 

LAST POSITION 

USED 



STORE ( 
LOAD BACK 




EXECUTE ALL 

BSI *-) 
STORED IN 

MEMORY 



/0012 



L 



WAIT 6 



1. PROGRAM DESCRIPTION 

THE PROGRAM WILL SET THE CORE SIZE AND 
DETERMINE THE NUMBER OF CORE LOCATIONS 
TO BE TESTED. EACH WORD OF THE PROGRAM 
IS USED AS A PATTERN TO BE WRITTEN, READ • 
AND CHECKED IN THE NUMBER OF POSITION 
DETERMINED BY THE PROGRAM. THE LAST 
PATTERN USED IS /40FF WHICH IS A BSI 
*-l. WHEN THIS IS STORED THROUGHOUT 
MEMORY, THESE INSTRUCTIONS ARE EXECUTED. 
EACH LOCATION WILL HAVE THE NEXT 
HIGHER ADDRESS STORED IN IT AND THE 
PROGRAM WILL LOOP UNTIL BIT 15 IS SET 
ON. AFTER USING AUX STORAGE LOAD THE 
AUX LOADER. 

2. OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 
1W2 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO READ THE CARD IN AND 
ONCE TO BRING UP 'READY' . FOR 
PAPER TAPE INPUT. PUCE THE DELETE 
HOLE SECTION OF THE PAPER TAPE 
OVER THE READ STATION. 

2. SET 'CHECK STOP' SWITCH ON. TO LOAD 
IN AUX SET 'FORCE AUX' SWITCH ON. 

3. PRESS 'RESET' AND 'PROGRAM LOAD* 
CONSOLE BUTTONS. THE PROGRAM WILL 
LOAD AND STOP AT WAIT 1. 

4. SET CORE SIZE IN THE DATA ENTRY 
SWITCHES: 

NO BITS - 256 - USE IN AUX OR MAIN LINE 
BIT - 32K - MAIN LINE 
^ \ - 24k - MAIN LINE 

3 - 4K - MAIN LINE 

5. PRESS CONSOLE START. PROGRAM WILL 
CONTINUE TO RUN UNTIL BIT 15 IS SET 
ON. 

6. PROGRAM WILL STOP AT WAIT 6 IF A 
COMPARE ERROR OCCURS. 

3. SERVICE HINTS 

1. IF A PARITY ERROR OCCURS, SET THE 
DISPLAY ADDRESS REGISTER TO SAR TO 
DETERMINE THE FAILING ADDRESS. 

2. IF AN ADDRESS IS SELECTED THAT IS TOO 
LARGE, IT WILL CAUSE THE PROGRAM 

TO BE OVERLAID AND THE PROGRAM WILL 
STOP. 

3. THE SMALLEST ADDRESS THAT MAY BE USED 
IS /0026. 

4. IF WAIT 6 IS ENCOUNTERED, THE 
B-REGISTER WILL CONTAIN THE ERROR 
PATTERN THAT WAS READ FROM MEMORY. 
THE SAR Wl LL SHOW THE ADDRESS OF THE 
CORRECT PATTERN. DISPLAY INDEX 
REGISTER 3 AND ADD THE ADDRESS OF 
LAST WORD USED IN THE PROGRAM LISTING 
TO FIND THE FAILING ADDRESS. 



YES 



DATE 04 NOV 66 
EC 4 15233 

DATE 31 JUL 70 
EC 431326 



DATE 15 FEB 67 
EC 415233B 



■o 



DATE 15 MAY 67 
EC 411731' 



DATE 02 DEC 68 
EC 411961 



DATE 14 NOV 69 
EC 431319 



PROG ID 08C8-* 
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] 









*** STORAGE 


CHECK SCOOP 


LOOP *** XLI 










ABS 








02BC 








ORG 









0000 





3001 


START 


WAIT 




1 


SET REQUIRED SWITCHES 


0001 





081 A 


CHECK 


XIO 




DESW 


SENSE DATA ENTRY SWITCHES 


0002 





4804 




BSC 




E 


IS BIT 15 ON 


0003 





3002 




WAIT 




2 


* YESt PROG HALT 


0004 





E01C 




AND 




KFFCO 


* NO 


0005 





4818 




BSC 




+- 


IS PROG FOR AUX 


0006 





C017 




LD 




AUX 


* YES 


0007 





9018 




S 




ONE 


* NO, COMPUTE SIZE 


0008 





D016 




STO 




ADR 


LAST ADDRESS USED 


0009 





901 A 




S 




CTR 




OOOA 





D002 


# 


STO 




CNTL+1 


NUMBER OF LOCATIONS TO CK 


OOOB 





62 DB 


LDX 


2 


-K40FF 


NUMBER OF PATTERNS TO USE 


OOOC 


00 


67000000 


CNTL 


LDX 


L3 




NUMBER OF LOCATIONS TO CK 


OOOE 





C226 




LD 


2 


K40FF+1 


GET PATTERN 


OOOF 





D325 




STO 


3 


K40FF 


STORE PATTERN 


0010 





C325 




LD 


3 


K40FF 


READ PATTERN BACK 


0011 





F226 




EOR 


2 


K40FF+1 


CK AGAINST PATTERN 


0012 





4820 




BSC 




Z 


IS PATTERN CORRECT 


0013 





3006 




WAIT 




6 


* NO 


0014 





73FF 




MDX 


3 


-1 


* YES, CHANGE LOCATIONS 


0015 





600E 


* 


LDX 




CNTL+2 




0016 





7201 


MDX 


2 


1 


CHANGE PATTERN 


0017 





600C 




LDX 




CNTL 




0018 





C003 




LD 




DESW 


GET INSTRUCTION AND 


0019 


00 


D48 0001F 




STO 


I 


ADR 


* STORE IN LAST ADDRESS 


001B 





6026 




LDX 




K40FF+1 


* EXECUTE ALL 'BSI *-l« 


00 1C 





6001 


OESW 


LDX 




CHECK 




001D 





0740 




DC 




/0740 


SENSE DATA ENTRY SWITCHES 


001E 





0100 


AUX 


DC 




/100 


AUX STORAGE ADDRESS 


001 F 





0000 


ADR 


DC 




/OOOO 


LAST ADDRESS OF MEMORY 


0020 





0001 


ONE 


DC 




1 


CONSTANT 


0021 





FFCO 


KFFCO 


DC 




/FFCO 


CONSTANT 


0022 





5555 




DC 




/5555 


CONSTANT 


0023 





AAAA 




DC 




/AAAA 


CONSTANT 


0024 





0025 


CTR 


DC 




K40FF 


LAST ADDRESS OF PROGRAM 


0025 





40FF 


K40FF 


"DC 




/40FF 


CONSTANT- BSI *-l 



0026 



0000 



END 



START 



END CARD NOT USED ON IPL 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM TOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS 
P.I. SCOOP LOOP XLII 



(RESET i. -\ 
5TAlT J 




WAIT 1 
WAIT FOR 
INTERRUPT 



T 



( INTERRUPT^ 
ENTRY J 



\ x '° ILSW / r\ 

\ s friw / ^^ 



SET PI 

ADRS IN 

XRI 



MODIFY 

PI 
ADRS 




WAIT 2 
PRESS START 
TO CONTINUE 



<D 



f/H 2 183} 13 
PAGE 31 



(PROCESS INTERRUPT) 

I. PROGRAM DESCRIPTION 

THE PROGRAM WILL RELOCATE ITSELF, SET THE 
INTERRUPT VECTORS. UNMASK BOTH LEVELS, AND 
GOES TO WAIT I (B-REG-3001) . MANUALLY CAUSE 
AN INTERRUPT. THE PROGRAM WILL SEARCH PI 
ADDRESSES TO FIND SOME BIT ON. IT WILL STOP 
AT WAIT 2 (B-REG-3002). PRESS START AND THE 
PROGRAM SHOULD GO TO WAIT I. IF IT GOES TO 
WAIT 2 ANOTHER BIT WAS FOUND ON. 

2. OPERATION PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE M2 
HOPPER. PRESS THE 1V)2 START BUTTON ONCE 
TO READ THE CARD IN AND ONCE TO BRING UP 
'READY'. FOR PAPER TAPE INPUT, PLACE 
DELETE HOLES SECTION OF THE PAPER TAPE OVER 
THE READ STATION. 

2. SET "CHECK STOP' SWITCH ON. 

3. PRESS 'RESET' AND PROGRAM LOAD CONSOLE 
BUTTONS. THE PROGRAM WILL LOAD AND STOP AT 
WAIT 1. 

4. MANUALLY CAUSE PROCESS INTERRUPT. 

5. PROGRAM SHOULD STOP AT WAIT 2 WITH THE PISW 
IN THE ACCUMULATOR. THE PI ADDRESS IN XRI, 
AND THE ILSW IN THE Q-REG. 

6. AFTER CHECKING FOR CORRECT OPERATION, PRESS 
CONSOLE START. 

7. PROGRAM SHOULD GO TO WAIT 1, READY FOR ANOTHER 
PROCESS INTERRUPT. IF THE PROGRAM STOPS AT 
WAIT 2 AGAIN, TWO BITS WERE SET ON. 



DATE C» NOV 66 
EC 415233 

DATE 31 JUL 70 
EC 431326 
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DATE 15 MAY 67 
EC 41 1731 



DATE 02 DEC 68 
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DATE 14 NOV 69 
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' I 



! ) 



I » 



0280 

0028 
0029 
002 A 
002 B 
002C 
0020 
002 E 
002F 
0030 



0031 

0032 

0033 

0034 

0035 



0036 
0037 
0038 
0039 
003A 
0038 
003C 



003D 
003E 
003F 
0040 00 

0042 

0043 

0044 

0045 OQ 
0047 
0048 
0048 
0049 
004A 
00 4B 
004C 
0040 
004E 
004F 

0050 











611F 
C108 
D130 
C004 
D108 
71FF 
70FA 
6031 
0036 

C015 
DOCO 
0814 
0815 
3001 

0000 
0814 
18D0 
6102 
621A 
C010 
D012 

0810 

4820 • 

3002 

7401004F 

7101 

72FF 

70F8 

4C 400035 

7030 

0000 

0000 

0480 

0000 
0481 
5F02 
0300 
0000 
5F02 

t 
0028 



*** P 

* 



I SCOOP LOOP *** XLII 



BEGIN 
CONT 



AORS 

* 

START 



WAIT 

* 

ENTRY 



* 
BACK 



LOO? 

UNMK1 

UNMK2 

ILSW 

PISW 



ABS 
ORG 

LDX 

LO 

STO 

LO 

STO 

MDX 

MDX 

LDX 

DC 

LD 

STO 

XIO 

XID 

WAIT 

DC 

XIO 

RTE 

LOX 

LDX 

LD 

STO 

XIO 

BSC 

WAIT 

MDX 

MDX 

MDX 

MDX 

BOSC 

MDX 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

END 



40 

1 31 
1 8 
1 48 

ADRS 
1 8 
1 -1 

CONT 

START 

ENTRY 

LOOP 
/O 

UNMK1 
UNMK2 
1 

/OOOO 

ILSW 

16 
t 2 
Z 26 

ILSW 

PISW+1 

PISW 

2 

2 

PISW+1, 1 
t 1 
» -1 

BACK 

WAIT 

START-1 



/0480 

/0481 
/5F02 
/0300 

/5F02 

BEGIN 



NUMBER OF INST TO MOVE 
PICK UP INST 

* AND MOVE 

GET INTR VECTOR 

* AND SET IN PLACE 



INTERRUPT ADDRESS 

GET BCH INST 

* AND SET IN AT ZERO 
UNMASK LEVEL 1 
UNMASK LEVEL 2 

WAIT FOR INTERRUPT 

INTERRUPT ENTRY 
SENSE ILSW 
SAVE ILSW IN Q-REG 
STARTING PI ADRS 
NUMBER OF PI ADDRESSES 

SET UP IOCC 

SENSE PISW WORD 
ANY BITS ON 

* YES 

* NO, INCR PI ADRS 
UPDATE PI ADRS 



RESET INTR AND GO TO WAIT 
USED FOR RESET-START 



UNMASK IOCC 

UNMASK IOCC 
STARTING PI IOCC 
SENSE ILSW IOCC 

PISW IOCC 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

SCOPE LOOP PROGRAMS 

1810B SEEK-F.A.S. SCOPE LOOP (XLIII) 



- ( '* ) ('"start*") 



r /0000 



WAIT I 
SET AREA - SP 
TRK ADDR-DES 



SENSE/PROG SWS 
1ST DRIVE - /20 
2ND DRIVE - /40 
3RD DRIVE - /48 
DATA ENTRY SWS 
7 8 



*-1STTRK-i 



15 



-2ND TWC-* 



ADD AREA 
TO I/O 

COMMANDS 



<! /000A 



XiO DES 



PLACE DES 
0-7 IN CNTLl 
AND 8-15 IN 
CNTL 2 



DSW 

ANY ERROR 

1 OP. COMPL. 

2 DISK NOT RDY. 

3 DISK BUSY (R/W OR CARR.) 

4 CARR. HOME 

5 PARITY CHECK ERROR 

6 STOR. PROT. ERROR 

7 DATA ERROR 

8 WRITE SEL. ERROR 

9 DATA OVERRUN 
10 SEEK ERROR 

H CE. NOT ROY. 

12 C.E. BUSY 

13 FAST ACCESS 
l**-»5 SECTOR COUNT 



i r /OOIO 




DECIMAL TO HEX CONVERSION 


TABLE 


CYLINDER 


DATA ENTRY 


NUMBER 


SWITCH SETTING 


IN DECIMAL 


IN HEX 


10 


OA 


20 


14 


30 


IE 


40 


28 


50 


32 


60 


3C 


70 


46 


80 . 


50 


90 


5A 


100 


64 


110 


6E 


120 


78 


130 


82 


140 


8C 


150 


96 


160 


AO 


170 


AA 


180 


B4 


190 


BE 


200 


C8 
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1. PROGRAM DESCRIPTION 

THE HEAD WILL MOVE BETWEEN ANY TWO 
CYLINDERS SET IN THE DATA ENTRY SWITCHES 
AND WILL CONTINUE THIS UNTIL NEW TRACK 
ADDRESSES ARE SET IN EITHER tOCATION 
THROUGH 7 OR 8 THROUGH 15. NO DATA 
WILL BE READ OR WRITTEN ON THE DISK. 

2. OPERATING PROCEDURES 

1. PLACE A SINGLE IPL CARD IN THE 
1442 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO RUN THE CARD IN, AND 
ONCE TO BRING UP "READY". FOR 
PAPER TAPE INPUT, PLACE THE DELETE 
HOLES SECTION OF THE PAPER TAPE 
OVER THE READ STATION. 

2. SET CHECK STOP SWITCH ON. 

3. PRESS RESET ANO PROGRAM LOAD CONSOLE 
BUTTONS. PROGRAM WILL LOAD AND 
STOP AT WAIT I (B REGISTER/3001). 

4. SET THE SENSE PROGRAM SWITCHES TO 
DETERMINE THE DRIVE TO BE RUN. 

DRIVE 1 - /20 
DRIVE 2-/40 
DRIVE 3-/48 

5. SET THE DATA ENTRY SWITCHES 0-7 
TO SPECIFY THE STARTING CYLINDER 
NUMBER AND SWITCHES 8-15 TO SPECIFY 
THE ALTERNATE CYLINDER NUMBER. 

6. PRESS CONSOLE START BUTTON. PROGRAM 
WILL SEEK FORWARD BEGINNING CYLINDER 
AND SEEK TO THE ALTERNATE CYLINDER 
AND CONTINUE THIS UNTIL A NEW SWITCH 
SETTING HAS BEEN PLACED IN THE DATA 
ENTRY SWITCHES. 

3. SERVICE HINTS 

SETTING THE SAME ADDRESS IN BIT SWITCHES 
0-7 AND 8-15', THE HEAD SHOULD NOT MOVE*. 
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EC 411731 
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*** 1810B 


SEEK SCOPE 


LOOP *** XLIII 








ABS 






0280 




4 


ORG 







0000 


3001 


BEGIN 


WAIT 


1 


SET CONSOLE SWITCHES 


0001 


081A 




XIO 


SPSW 


SENSE S/P SWS 


0002 


E019 




AND 


SPSW 


SAVE BITS 1,2 OR 4 


0003 


D017 




STO 


AREA 




0004 


E819 




OR 


DESW 


OR IN CONTROL CONSTANT 


0005 


001 B 




STO 


CNTL1+1 


BUILD I/O 


0006 


D01C 


* 


STO 


CNTL2+1 


BUILD I/O 


0007 


C01C 


LD 


OSW 




0008 


E812 




OR 


AREA 




O009 


D01B 


£ 


STO 


DSW+1 


build sense dsw 


000 A 


0813 


HERE 


XIO 


DESW 


SENSE DATA ENTRY SWS 


OOOB 


18C8 




RTE 


8 


SAVE BITS 8-15 


00 OC 


0013 




STO 


CNTLl 


SET 1ST ADDRESS 


OOOD 


1010 




SLA 


16 


CLEAR ACC 


OOOE 


1088 




SLT 


8 


GET BITS 8-15 


OOOF 


0012 


* 


STO 


CNTL2 


SET 2ND ADDRESS 


0010 


080F 


XIO 


CNTLl 


SEEK TO 1ST ADDRESS 


0011 


0812 


CK1 


XIO 


DSW 


SENSE OSW 


0012 


1002 




SLA 


2 




0013 


4828 




BSC 


+ Z 


IS DISC READY 


0014 


6011 


* 


LOX 


CK1 


* NO 


0015 


080C 


XIO 


CNTL2 


e 

* YESt SEEK 2ND ADOR 


0016 


08 OD 


CK2 


XIO 


DSW 


SENSE DSW 


0017 


1002 




SLA 


2 




0018 


4828 




BSC 


+ Z 


IS DISC READY 


0019 


6016 




LDX 


CK2 


* NO 


001A 


600A 




LDX 


HERE 


* YES 


001B 


0000 


AREA 


DC 


*-* 


AREA STORAGE 


001C 


0000 




BSS 


E - 




001C 


6800 


SPSW 


OC 


/6800 


CONSTANT 


001 D 


0760 




DC 


/0760 


SENSE S/P SWS IOCC 


001E 


0400 


DESW 


DC 


/0400 


CONSTANT FOR CONTROL 


001 F 


0740 




DC 


/0740 


SENSE DATA ENTRY SWS IOCC 


0020 


0000 


CNTLl 


DC 


*-# 


1ST ADDRESS 


0021 


2400 




DC 


/2400 


CONTROL IOCC 


0022 


0000 


CNTL2 


DC 


*-* 


2ND ADDRESS 


0023 


2400 




"OC 


/2400 


CONTROL IOCC 


0024 


0701 


DSW 


DC 


/0701 


9 CONSTANT FOR DSW 


0025 


2701 


* 


DC 


/2701 


SENSE DSW IOCC 



0026 



0000 



END 



BEGIN 
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cp 



HOVE PROGRAH 

40 POSITIONS 

IN CORE 



SET ALL 

INTERRUPT 
LEVELS 



READ DESW 
AND STORE IN 
OUTPUT AREA 



UNMASK 

ALL 

LEVELS 




ISSUE A 
WRITE COMMAND 
TO 18007 




DATA ENTRY SWS 
15 



DATA PATTERN 



DSW 

COHmND REJECT 

1 1800 COMmNO STORED 

2 360 COHmND' STORED 

3 HALT 

*» DATA CHECK 

5 STG. PROTECT VIOLATE 

6 TRANSFER END 

7 END OF TABLE 

8-15 360 COMMAND BYTE 



1. PROGRAM DESCRIPTION 

• OPERATES SIMULTANEOUSLY WITH THE t/360 
CH-CH SCOPE LOOP. OPERATES IN 
INTERRUPT MODE. RESPONDS TO S/360 WRITE 
1«™ COMPLEMENTARY INITIALIZE READS 
ZI^'wr^S."" C0HmNK Wl ™ COMPLEMENTARY 

2. OPERATING PROCEDURE 

'* wtcKsT MTA PATTERN ,n wta mKr 

2 * d«c! ?/ NGLE IPL "^ "• THE 1442 HOPPER. 
PRESS 1442 START BUTTON TO FEED THE CARD AND 
ONCE TO BRING UP READY. 

3. SET "CHECK STOP SWITCH" TO ON. 

*" «£f.!! R0GRAM LWD ajTT0H ON '800 CONSOLE. 
PROGRAM WILL LOAD AND STOP AT WIT I. 

5. LOAD THE S/360 SIDE OF THE CHAWWFi aun «>» 

it operat.ng. the fIrst 3»mmm w™ T 

START THE 1800 PROGRAM. '"'""WIT WILL 

6. AFTER THE INITIAL INTERRUPT. THE 1800 WILL BE 
AT WAIT 2 PENDING ALL SUCCEED JUg INTERNS. 

3. SERVICE HINTS. 

». IF THE 1800 REMAINS AT WAIT I, IT FAILED TO 
TO RECEIVE THE FIRST 360 INTERRUPT. 

SmS SKVBr" m « «^S 

3. JO CAUSE THE 1800 TO TERHINATE DATA TRANSFERS 
CHANGE THE WORD COUNT AT LOCATION OoJThm * 
TO 0001 THROUGH 0004. fcuv * Tl0 " ww HEX 
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DATE 
EC NO. 



XLIV 









ABS 






02 BC 






ORG 


40 




0028 


6121 




LDX 


1 33 




0029 


C106 


MOVE 


LD 


1 6 


PICK UP PROGRAM 


002A 


D12E 




STO 


1 46 


* AND RELOCATE 


002B 


C004 




LD 


DESW 


GET INTERRUPT ADDRESS 


002C 


D107 




STO 


1 7 


* AND LOAD VECTORS 


002D 


71 FF 




MDX 


1 -1 




002 E 


70FA 




MDX 


MOVE 




002F 


603C 


BCH 


LDX 


CONT 


BCH TO RELOCATED PROGAM 


0030 


0046 


DESW 


DC 


ENTRY 


INTR ENTRY ADDRESS 


0031 


0740 




DC 


/0740 


SENSE DATA ENTRY SWS 


0032 


2002 


DSW 


DC 


/2002 


CONSTANT 


0033 


6F01 




DC 


/6F01 


SENSE DSW 


0034 


004F 


READ 


DC 


AREA 


READ AREA 


0035 


6E00 




DC 


/6E00 


READ IOCC 


0036 


004F 


WRITE 


DC 


AREA 


WRITE AREA 


0037 


6D00 




DC 


/6D00 


WRITE IOCC ' 


0038 


0003 


UNMKI 


DC 


/0003 


CONSTANT 


0039 


0480 




DC 


/0480 


UNMASK LEVEL 1 


003A 


0000 


UNMK2 


DC 


/OOOO 




003B 


0481 


* 


DC 


/0481 


UNMASK LEVEL 2 


003C 


08F3 


CONT 


XIO 


DESW 


SENSE DATA SWS 


003D 


61F1 




LDX 


1 -15 




003 E 


D15F 


GO 


STO 


1 AREA+16 


STORE DATA PATTERN 


003 F 


7101 




MDX 


1 1 




0040 


70FD 


* 


MDX 


GO 




0041 


COED 


LD 


BCH 




0042 


DOBD 




STO 





USED IN RESTART 


0043 


08F4 




XIO 


UNMKI 


UNMASK LEVEL 1 


0044 


08F5- 




XIO 


UNMK2 


UNMASK LEVEL 2 


0045 


3001 


* 


^WAIT 


1 


READY FOR INTERRUPT 


0046 


0000 


ENTRY 


DC 


*-* 


INTR ENTRY 


0047 


08 E A 




XIO 


DSW 


SENSE OSW 


0048 


F0E9 




EOR 


DSW 


CHECK INTERRUPT 


0049 


4858 




BOSC 


+- 


IS THIS COMD A READ 


004A 


08EB 




XIO 


WRITE 


YES. ISSUE A WRITE 


00 4B 


FOEC 




EOR 


UNMKI 


NO 


004C 


4858 




BOSC 


+- 


IS IT A WRITE 


0040 


08E6 




XIO 


READ 


YES. ISSUE A READ 


004E 


3002 




WAIT 


2 


WAIT FOR ANOTHER INTERRUPT 


004F 


0008 


AREA 


DC 


/0008 


WORD COUNT MAY BE CHANGED 


0050 


0000 




END 
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415233 
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415233B 
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411731 
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411961 



14N0V69 
431319 



31JUL70 
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KOpKoQmSGRAMf NOST ' C PR0GRAM FOR THE ,800 ^STO* 
340 CH-CH SCOPE LOOP (XIV) (,5 CAROS-NO t.».) 



(^ LOAD J f RESTART ) 



SET EXT. 
NEW PSW 



ENTER WAIT 
STATE 

SEE OPERAT- 
ING PROCED- 
URES 



E 



SET NEW 
I/OPSW 



I 



SET ALL 

CHANNEL 

MASK BITS-1 



HOUSE KEEP 

REGS 1 
THROUGH 3 



TEST 
CHANNEL 




SETCHANNEL 

ADDRESS 
WORD (CAW) 



\sio ISSUE / 

\ COM- / 

\MAND / 



UPDATE CAW 

TO NEXT 

COMMAND 

WORD 



csw 

32 ATTENTION 

33 STATUS MODIFIER 

34 CONTROL UNIT END 

35 BUSY 

36 CHANNEL END 

37 DEVICE END 

38 UNIT CHECK 

39 UNIT EXCEPTION 

40 PGM. CTRLD-INTERRUPT 

41 INCORRECT LENGTH 

42 PROGRAM CHECK 

43 PROTECTION CHECK 

44 CHANNEL DATA CHECK 

45 CHANNEL CONTROL CHECK 

46 INTERFACE CONTROL CHECK 

47 CHAINING CHECK 




MDINJERRUPn 
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1. PROGRAM DESCRIPTION 

OPERATES SIMULTANEOUSLY WITH THE 1800 CH-CH 
SCOPE LOOP. ACTS AS MASTER SYSTEM ISSUING 
READ BACK, WRITE, SENSE, CONTROL AND NO-OP 
COMMANDS TO THE CHANNEL ADAPTER.* 

2. OPERATING PROCEDURE 

1. LOAD THE 1800 IPL SCOPE LOOP. PROGRAM Will 
STOP AT WAIT I, 

2. READY THE S/360 READER WITH LOADER AND 360 
CH-CH SCOPE LOOP. 

3. DEPRESS THE LOAD BUTTON. PROGRAM WILL 
ENTER WAIT STATE, ADDRESS LIGHTS-FFFF. 

4. SET LOCATION 0482 TO CHANNEL ADDRESS AND 
0483 TO DEVICE ADDRESS. 

5. DEPRESS INTERRUPT KEY. 

6. PROGRAM WILL ISSUE THE I/O COMMAND SERIES 

?r,£ E . A £ BACK ' WR,TE ' SENSE ' ^NSE, CONTROL 
AND NO-OP TO THE 1800-360 CHANNEL ADAPTBL 

7. IF 360 FAILS TO INTERRUPT THE 1800. THE 1800 
WILL BE AT WAITS 1 OR 2. SEE 1800 CH-CH SCOPE 
LOOP DESCRIPTION. 

8. TO RESTART) 

PUSH SYSTEM RESET. 
PUSH START ONCE. 
SET ADDRESS SWITCHES TO /0400 
PUSH "SET IC" BUTTON. 

PUSH START. RETURN TO OP. PROCEDURE, STEP 4. 
3. SERVICE HINTS 

1. TO CHANGE PROGRAM BETWEEN MULTIPLEX CHANNEL 
OPERATION AND SELECTOR CHANNEL OPERATIONS, 
CHANGE THE WORD IN LOCATION 000482 HEX TO* 

00 FOR MULTIPLEX CHANNEL 

01 FOR SELECTOR CHANNEL 1 

02 FOR SELECTOR CHANNEL 2 

LOCATION 0483 IS THE CHANNEL ADAPTER 
ADDRESS ON THE 360 I/O CHANNEL-00 HEX 
THROUGH FF HEX 

2. TO CHANGE THE SEQUENCE IN WHICH THE I/O 
COMMANDS ARE ISSUED, REARRANGE THE CCWS 
IN LOCATIONS 000440 THROUGH 00046F 

3. TO CHANGE THE NUMBER OF I/O COMMANDS 
ISSUED IN EACH SEQUENCE, MODIFY THE CONTENTS 
OF LOCATION 00047B HEX TO THE NUMBER OF 
COMMANDS - 01 THROUGH 06. 

4 ' 12 fS?rj^? COMMANDS, MODIFY THE CONTENTS 
OF LOCATIONS 00047E AND 00047F TO THE 
ADDRESS OF THE FIRST CCW - 000¥»0 TO 000468. 

* PROGRAM TIMING CONSIDERATIONS PROHIBIT THE USE 
OF THIS SCOPE LOOP ON MOO 65 AND UP. INDIVIDUAL 
COMMANOS, READ OR WRITE, OPERATE PROPERLY 
HOWEVER WHEN THE PROGRAM IS MODIFIED PER 
SERVICE HINTS NUMBER 3 ABOVE, 
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► 



LOAD OLD 
l/OPSW 



DATE 15 MAY 67 
EC 411731 



DATE 02 DEC 68 
EC 411961 



DATE 14 NOV 69 
EC 431319 



DATE 31 JUL 70 
EC 431326 
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1 

e 
P 

P 

P 
► 



*** CHAN ADAPTER SCOPE LOOP *** 



ICTL 25.79 

START 
360 CHANNEL ADAPTER FOR 1800 SYSTEM 
REG1 C(1)=NUMBER OF CCW 

REG2 C(2)=L0CATI0N OF FIRST CCW 

REG3 C(3)=DEVICE ADDRESS 



OPERATOR MAY CHANGE LOCATIONS MARKED 



** 



000000 
000068 
000068 
00006C 
000400 
000400 
000406 
00040A 
000410 
000414 
000418 
00041C 
000420 
00042 4 
000428 
00 042 C 
000430 
000434 
000438 
000440 
000448 
000450 
000458 
000460 
000468 
000470 
000475 
000478 
00047C 
000480 



00470 MASTER 



LOOP 



00 
00000400 

D207 0058 0490 00058 00490 BEGIN 

8200 0488 00488 

D207 0078 0470 00078 

8000 0438 00438 

9813 0478 00478 

9D00 3000 00000 

4770 0418 00418 

5020 0048 00048 

9C00 3000 00000 

4122 0008 00008 

4610 0418 00418 

47F0 040A 0040A 

8200 0038 00038 

FE 

0200049820000008 

0100049820000008 

0400049820000001 

0400049820000002 

0700049820000001 

0300049820000001 

0000000000 

000434 

00000006 

00000440 

00000000 



10 1 NT 

SVSMSK 

FIRST 



NIOPSW 



NUM 



USING 

ORG 

DC 

DC 

ORG 

MVC 

LPSW 

MVC 

SSM 

LM 

TIO 

BC 

ST 

SIO 

LA 

BCT 

BC 

LPSW 

DC 

CCW 

CCW 

CCW 

CCW 

CCW 

CCW 

DC 

DC 

DC 

DC 

DC 



000488 

000488 010200000000FFFF 

000490 0000000000 

000495 00040A 

000498 

000400 



* 
* 

WAIT 
I0NEW 

TABLE1 



*,0 

* + 104 

4X , 00' 

A(BEGIN) 

*+1024-112 

88(8)»I0NEW 

WAIT 



SET EXT PSW 
WAIT-UNIT ADRS 



120(8), NIOPSW SET NEW I0PSW 



SYSMSK 

1,3. NUM 

0(3) 

7, LOOP 

2,72 

0(3) 

2.8, (2) 

l.LOOP 

15, MASTER 

56 

X'FE' 



SET SYSTEM MASK 



TEST I/O CHAN ADAPT 
LOOP IF NONZERO STAT 
STORE CHAN ADD WORD 
START I/O CHAN ADAPT 
ADD 8 TO REG2 
BRANCH AND COUNT 
BRANCH TO MASTER 

LOAD OLD IOPS 
SYSTEM MASK 
X'02',TABLE1,X«20',8 READ ** 

X'Ol'.TABLEl.X^O'.S WRITE ** 

X , 04',TABLE1,X«20 , ,1 SNS 1 BYTE** 
X , 04'.TABLE1,X'20',2 SNS 2 BYTE** 
X'OT'.TABLEl.X^O',! CONTROL ** 
X'OS'.TABLEl.X^O',! NO-OP ** 



XL5«00' 

AL3( IOINT) 

A(6) 

A(FIRST) 

X' 00000000' 



FIRST PART OF PSW 
SECOND PART OF PSW 
NUMBER OF CCW ** 

ADDRESS OF FIRST ** 
DEVICE ADDRESS ** 



000000XX 
000001XX 
000002XX 



IS ADDRESS OF 
IS ADDRESS OF 
IS ADDRESS OF 



MPX CHANNEL 
SEL CHANNEL 
SEL CHANNEL 



DS • OD 

DC X'Ol0200000000FFFF« WAIT PSW 

DC XL5'00« EXT I/O PSW 

DC AL3 (MASTER) 

DS 8C LENGTH MAY EXTEND TO END 

END BEGIN 



DATE 


01 JUL 66 


04N0V66 


15FEB67 


15MAY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


4152 33 


415233B 


411731 


411961 


431319 


431326 


PAGE 


34A 



jO 





o 


o 





° 


p. 


d 


b 








o 


o 


c 


o 





o 



Q 
o 

o 

o 



o 
o 
o 

o 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR 
THE 1800 SYSTEM SCOPE LOOP PROGRAMS. 

SELECTOR CHANNEL SCOPE LOOP (XLVI) 



C ipl ) ( restart ) 



WAIT I SET 

CONSOLE 
SWITCHES 



X10 
(SIO) 



NO y DELAY 
TIMEOUT 




YES 



WAIT 2 



XIO 
(H10) 



(INTERNAL "\ 
INTERRUPT J 



YES 




WAIT 8 



S/P SWITCHES 
7 



DEVICE 
ADDRESS 



D/E SWITCHES 



13 \k 15 



DEUY AFTER SIO 



1 1 



LOOP HALT I/O- 
BYPASS HALT I/O- 



u 



DATE 1 lfN0V69 
EC NO. ^3 1319 



DATE 31 JUL 7» 
EC 431326 
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1. PROGRAM DESCRIPTION 

A. WILL EXECUTE A START I/O A HALT I/O 
AND HALT (3002). 

B. WILL LOOP ON START I/O WITH OR WITHOUT 
A HALT I/O IN THE SEQUENCE. 

2. OPERATING PROCEDURE 

A. CLEAR CORE TO ALL ZEROS. 

B. PLACE THE CARD IN THE 1M»2 HOPPER. 
BRING UP READY. 

C. SET "CHECK STOP" SW. ON. 

0. PRESS "RESET" AND "PROGRAM LOAD" BUTTONS. 
THE PROGRAM SHOULD LOAD AND STOP AT WAIT I. 

E. SET DATA ENTRY SWITCHES 0-13 FOR DELAY 
AFTER START I/O. (0000-FFFC). 

F. SET DATA ENTRY SWITCH l«l ON TO LOOP HALT I/O. 
RESTART TO EXIT LOOP. 

G. SET DATA ENTRY SWITCH 15 ON TO BYPASS HALT 
I/O. 

H. SET SENSE/PROG SWITCHES 0-7 TO DEVICE ADDRESS. 
(OO-FF). 

1. PRESS "START" 

3. SERVICE HINTS 

A. THE TEST I/O CAN BE ALTERED TO A NO-OP OR 
SENSE I/O BY MODIFYING LOCATION 0025. 

A SENSE I/O WILL LEAVE THE SENSE BYTES IN 
LOCATIONS 0029 AND 002A 

LOCATION 0025 - 2000-TEST I/O 
2003-N0-0P 
2004-SENSE I/O 

B. THE PROGRAM CAN BE MADE TO LOOP, FOR SCOPING. 
BY SETTING LOCATION 0019 - 1000 
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*** 2311 SCOPE LOOP *** 


XLVI 


0000 





3001 


WAIT 


1 


WAIT ONE 


0001 





0818 


XIO 


/001A 


SENSE S/P SWS 


0002 





1808 


SRA 


8 


POSITION UNIT ADDRS 


0003 





D016 


STO 


/001A 


SAVE 


0004 





C018 


LD 


/001D 


GET SIO IOCC 


0005 





1808 


SRA 


8 




0006 





1008 


SLA . 


8 




0007 





6009 


LDX 


/0009 


SKIP TO LOC 0009 


0008 





0027 


DC 


/0027 


INTERNAL INT VECTOR 


0009 





E810 


OR 


/001A 


BUILD SIO IOCC 


OOOA 





D012 


STO 
* 

XIO 


/001D 


* 


OOOB 





08 OC 


/0018 


SENSE D/E SWS 


00 OC 





18C8 


RTE 


8 


SAVE C-YLINDER 1 


OOOD 





D01C 


STO 


/002A 


PUT IN SEEK ARGUMENT 


OOOE 





1010 


SLA 


16 


CLEAR A 


OOOF 





1088 


SLT 


8 


GET CYLINDER 2 


0010 





D01C 


STO 


/0020 


PUT IN SEEK ARGUMENT 


0011 





080A 


XIO 
XIO 


/001C 


START I/O 


0012 





0807 


/001A 


SENSE S/P SWS 


0013 





1000 


NOP 






0014 





D005 


STO 


/001A 


SAVE 


0015 





74FF 001 A 


MDX L 


/001A,-1 


DECREMENT COUNT 


0017 





6015 


LDX 
* 

LDX 

* 

DC 


/0015 


LOOP TIMEOUT 


0018 





600B 


/OOOB 


LOOP 


0019 





0740 


/0740 


SENSE D/E SWS 


001A 





0000 


DC 


*-* 


SAVE S/P SWS AREA 


001B 





0760 


DC 


/0760 


SAVE S/P SWS 


001C 





001E 


DC 


/001E 


CCW ADDRS 


001D 





9500 


DC 


/9500 


START I/O IOCC 


001E 





0001 


DC 


/0001 


NOP BYTE COUNT 


001 F 





6003 


DC 


/6003 


CMND CODE 


0020 





0000 


DC 


*-* 


ADDRS 


0021 





0006 


DC 


/0006 


SEEK BYTE COUNT 


0022 





400B 


DC 


/400B 


CMND CODE 


0023 





0029 


DC 


/0029 


CCW ADDRS 


0024 





0006 


DC 


/0006 


SEEK BYTE COUNT 


0025 





OOOB 


DC 


/OOOB 


CMND CODE 


0026 





002C 


DC 


/002C 


CCW ADDRS 



PROG 10 08C8-* 
PAGE 35 



1 



WAIT 



WAIT 8 (INTERNAL INTERRUPT ) 



DATE 


01JUL66 


04N0V66 


15FEB67 


15«AY67 


02DEC68 


14N0V69 


31JUL70 


PROG ID 


08C8-* 


EC NO. 


415178 


415233 


415233B 


411731 


411961 


431319 


431326 
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2311 SEEKS (XLVII) 



c 



IPL 



} 



C RESTART J 



WAIT 1 SET 
CONSOLE 
SWITCHES 



BUILD 
SEEK 

ARGUMENT 



XIO 
(CHAINED 
SEEKS) 
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1. PROGRAM DESCRIPTION 

WILL EXECUTE CONTINUOUS SEEKS BETWEEN TWO 
SELECTED CYLINDERS 

2. OPERATING PROCEDURE 

A. CLEAR CORE TO ALL ZEROES (LOCATIONS 
0029 - 002E MUST - 0000). 

B. PLACE THE SINGLE CARD IN THE IW»2 
HOPPER AND BRING UP READY. 

C. SET "CHECK STOP" SW ON. 

D. PRESS "RESET" AND "PROG LOAD" CONSOLE 
BUTTONS. THE PROGRAM SHOULD LOAD AND 
STOP AT WAIT I. 

E. SELECT THE DEVICE ADDRESS IN SENSE/ 
PROG SWITCHES 0-7. (OO-FF). 

F. SELECT THE SEEK CYLINDERS IN DATA 
ENTRY SWITCHES 0-7 AND 8-15. (OO-CA) 

G. PRESS "START" BUTTON. 

H. DELAY BETWEEN SEEKS IS VARIABLE AND IS 
SET UP IN SNS/PROG SWS 0-7 (OO-FF) WHILE 
PROGRAM IS RUNNING. 



3. 




S/P SWITCHES 



DEVICE 
ADDRESS 



D/E SWITCHES 
7 


8 




15 


«■ SEEK 




SEEK 
CYLINDER 2 




CYLINDER 1 " *" 





DATE I4N0V69 
EC NO. 431319 



DATE 31 JUL 70 
EC 431326 



SERVICE HINTS 

A 



SEEK 1 (D/E SWS 0-7) IS PRECEDED BY A 
NO-OP FOR SYNCHING. 

SEEK 2 MAY BE CHANGED TO A RECALIBRATE 
BY CHANGING LOC 0025 FROM OOOB TO 0013. 
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D 



PPENDIX B 






000 





3001 


0001 





081 E 


0002 





1808 


0003 





D017 


0004 





C018 


0005 





1808 


0006 





1008 


0007 





E813 


0008 





0014 


0009 





8012 


OOOA 





D018 


OOOB 





0812 


OOOC 





6580 001B 


OOOE 





0813 


000. 





71 FF 


0010 





600F 


0011 


C009 


0012 





4C04 0019 


0014 





0807 


0015 





C005 


0016 





1801 


0017 





4C04 0014 


0019 





3002 


001 A 





600B 


001B 





0000 


00 1C 





0100 


001D 





9400 


001E 





001 B 


001 F 





0240 


0020 





0000 


0021 





0760 


0022 





0024 


0023 





9500 


0024 





0004 


0025 





2000 — 


0026 





0029 



*** SELECTOR 
* 

WAIT 
* 

XIO 

SRA 

STO 

LD 

SRA 

SLA 

OR 

STO 

A 

STO 



v/AC 

\J r-> v- * 
w v 
U c 



XIO . 

LDX 
XIO 
MOX 
LDX 

LD 
BOD 

XIO 
LD 
SRA 
BOD 

WAIT 
LDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
-DC 
!DC 
>DC 

DC 
tOC 

WAIT 



CHANNEL SCOPE LOOP *** XLVII 
1 WAIT ONE 

READ S/P SWS 



II 



/0020 

8 

/001B 

/001D 

8 

8 

/001B 

/001D 

/001C 

/0023 

/001E 

/001B 
/0022 
-1 
/OOOF 

/001B 
/0019 

/001C 
/001B 
1 
/0014 

2 

/OOOB 

*-* 

/0100 

/9400 

/001B 

/0240 

*-* 

/0760 

/0024 

/9500 

/0004 

/2000 

/0029 

/3008 



GET HALT I/O IOCC 
BUMP OUT DEVICE ADDRS 

* 

OR IN DVC ADDRS 
BUILD HIO IOCC 
MAKE FUNCTION = 5 (SIO) 
BUILO SIO IOCC 

READ D/E SWS 

SET UP COUNT 

DO START I/O 

DECREMENT COUNT 

LOOP (WAIT FOR TIMEOUT) 

GET D/E SWS 

GO TO WAIT IF BIT 15 SET 

ELSE DO HALT I/O 

GET D/E SWS 

TEST BIT 14 

LOOP HIO IF BIT 14 SET 

END (NO/OP FOR SCOPE LOOP) 
GO TO SIO (LOOP) 

SAVE SWS 

CONSTANT 

HIO IOCC 

SAVE AREA ADDRS 

READ D/E SWS 

SENSE S/P SWS 
CCW ADDRS 
SIO IOCC 
CCW-BYTE COUNT 

-SLI BIT AND TIO CC 

-ADDRS 

INTERNAL INTERRUPT WAIT 



p 

D 










• 










DATE 
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2790 SCOPE LOOP (XLVIII) 



o 










C «• 3 ( "I5S,' } 


o 










o 

\o 
o 
o 

c 

o 

c 
o 
o 



o 
o 

1 

j ° 

1 o 

° 
o 

o 

o 


\ 




1 1 /0000 


- 


XIO STOP tOOP 
\ (SEGMENT 
\ STATUS PER 
\ LOC / 
\ /OOIB) / 


/ . 




/OOOI 




SET-UP TABLES 

WITH DATA IN 

LOC /0020- 

/0027 


9 






. /000 


F 


\xiO START } 
\ LOOP / 


r 


' 


/0010 






OEUY 

1 






' 


/oon 






LOAD CSW FOR 
CHAN ! AND 
SHIFT INTO 
Q-REG 




\ 


' 


/00I7 




UUO SENSE / 
\ DSWI / 


A-REG 1 S 






/O018 


DSWI 


^X*^ Q-REG 15 




WAIT " 
(LOOK AT 
RESULTS) * 


X^ ^ CHAN 1 CSW 




o 




1 




. 
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1, PROGRAM DESCRIPTION 

THIS PROGRAM STOPS AND START THE LOOP WITH PRESET DATA 
IN THE LCCB TABLES. 

2, OPERATING PROCEDURE 

1. PLACE THE SINGLE IPL CARD IN THE 1442 HOPPER. PRESS 
THE 1442 START BUTTON ONCE TO RUN THE CARD IN AND ONCE 
TO BRING UP READY. FOR PAPER TAPE INPUT, PLACE THE 
DELETE HOLE SECTION OF THE PAPER TAPE OVER THE READ 
STATION. 

2. SET CHECK STOP SWITCH ON. 

3. PRESS RESET AND PROGRAM LOAD CONSOLE BUTTONS. THE 
PROGRAM WILL LOAD, CYCLE THROUGH THE PROGRAM ONCE AND 
STOP AT WAIT 0. DSWI WILL BE DISPLAYED IN THE A-REG 
AND THE CSW FOR CHANNEL I WILL BE DISPLAYED IN THE Q-REG 
OTHER LCIB AND LCCB INFORMATION CAN BE OBSERVED FROM THE* 
TABLE STARTING AT LOCATION /0900. 

4. TABLE DATA AND SIMULATED A,S. RESPONSES ARE CUSTOMIZED 
BY MODIFICATIONS TO THE PROGRAM CORE LOCATIONS AS FOLLOWS? 

A. SEGMENT CONFIGURATION (LOC /OOIB) 

/3C0F — ALL BYPASSED 

/3C00 « ALL ACTIVE 

/3C07 — SEG I ONLY ACTIVE, ETC 

B. SIMULATED A.S. RESPONSES (ALL SEG MUST BE BYPASSED). 

(LOC /OOID) • ' 

/3C8X — X EQUALS A.S. RESPONSE FIELD. 



D 



C. LCCB TABLE DATA 

A.S. AND DEVICE ADDR 
CONTROL WORD 

BYTE CNT 

DATA BUFFER ADDRESS - 
CHANNEL SENSE WORD ~ 
ADDR ERROR FRAME 



CONTROL ERROR FRAME 

CHANNEL TIMER COUNT WORD 



LOC /0020 
/0021 
/0022 
/0023 
/0024 
/0025 
/0026 
/0027 



5. CHANGE THE WAIT INSTRUCTION AT LOC /001A TO A NOP 
(/1000)T0 LOOP PROGRAM FOR SCOPING. 



N0TE: 2£. T ? E SEC0ND ADA PTER, THE FOLLOWING IOCC WORDS MUST BE 
MODIFIED TO REFLECT THE NEW AREA CODE: 

LOC /OOIB -- /9C0X (SEG CONF — SEE k.A) 

/OOID — /9C8X (A.S RESPONSE - - SEE k.B) 
/001F -- /9F01 



CAUTION- 



THE LOOP ADAPTER WILL AUTOMATICALLY UPDATE COMMANDS IF 
THE PROPER RESPONSE WAS PLACED AT LOCATION /OOID (WITHOUT 
THE U.I. BIT SET IN THE CONTROL WORD OF IN THE LCCB'SV 
THIS CAN CAUSE PSEUDO LOOP ERRORS SINCE THE SIMULATED A S 
RESPONSE SHOWN IN LOCATION /OOID WILL NOT BE UPDATED FOR 



D 
P 

E> 
f> 
D 

D 
P 

P 



DATE 

FCC NO. 



r 



*** 2790 SCOPE LOOP *** 



0000 0819 

0001 10A0 

0002 00 DC000900 



0004 00 

0006 

0007 

0008 00 
000 A 
00 OB 
OOOC 
00 00 
OOOE 










6500FF30 

63F8 

CB28 

DD0009E0 

7102 

7302 

70FA 

7108 

70F7 



OOOF 080C 

0010 7101 

0011 6010 

0012 1000 

0013 1000 

0014 00 C4000914 

0016 1800 

0017 0806 

0018 3000 

0019 6000 



001 A 
OOIB 

001C 
OOID 

001E 
001F 



0000 
3C0F 

0900 
3C80 

0000 
3F01 



BEGIN XIO 

* 

SLT 
STO 

* 

LOX 

Al LDX 
A2 LDD 
STD 
MDX 
MDX 
MDX 
MDX 
MDX 

XIO 

A3 MDX 
LDX 
NOP 

NOP 

* 

LD 
RTE 
XIO 
WAIT 
LDX 
* 

*** IOCC«S 
STOP DC 



LI 
3 
3 

LI 
1 



0020 





1100 


0021 





0200 


0022 





0003 


0023 





0040 


0024 





0000 


0025 





0000 


0026 





0000 


0027 





0000 


0900 






0026 




0000 



* 
START 

* 
DSW 

* 
* 

* 
ADDR 

BYTE 

CSW 



DC 

DC 
DC 

DC 
DC 



STOP 

32 

TABLE 

-/DO 

-8 

ADDR+8 

TABLE+/E0 

2 

2 

A2 

8 

Ai 

START 

1 
A3 



TABLE+/14 

16 

DSW 

BEGIN 





/3C0F 

TABLE 
/3C80 


/3F01 



XLVIII 

* STOP LOOP 

* 
* 
* 
* 

* SET-UP TABLES 

* 
* 

* 

* 

* START THE LOOP 

* DELAY 



* AT WAlTt 

* DSWI 

* CHAN 



IN A-REG. 

1 CSW IN Q-REG. 



STOP LOOT 9 IOCC 



START LOOP IOCC 



SENSE LOOP DSW IOCC 



DATA FOR TABLE SET-UP 



TIME 

* 
* 
TABLE 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



EOU 
END 



/1100 
/0200 
/0003 
/0040 
/OOOO 
/OOOO 
/OOOO 
/OOOO 



/0900 

BEGIN 



************************** 

* AS — DEVICE ADDR 

* CONTROL — DATA WORD 

* SPARE — BYTE COUNT 

* DATA BUFFER ADDRESS 

* CHANNEL SENSE WORO 

* ADDRESS ERROR FRAME 

* CONTROL ERROR FRAME 

* CHANNEL TIMER COUNT WORD 
********** **************** 

* ADDRESS OF TABLES 



01JUL66 
415178 



04NOV66 
415233 



15FEB67 
415233B 



15MAY67 
411731 



020EC68 
411961 



14N0V69 
431319 



31JUL70 
431326 
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MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 
1600 SYSTEM SCOPE LOOP PROGRAMS. 

2790 SINGLE-STEP SCOPE LOOP (XLIX) 



(NEXT 
CHAN) 



( »» ) C§D 



/00O0 



\X10 STOP LOOP/ 
\ (BYPASS 
\ ALL SEG- 
\ MENTS 



3 



/OOOi 



WAIT I 

SET CONSOLE 
SWITCHES 



/0002 



SET-UP CHAN 
1-7 FROM LOC 
/28-/2F * 
SWITCHES 




/00I2 



DELAY 



u /O0tJ« 



aEAR 
A * 0. REGS 
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1. PROGRAM DESCRIPTION 

SINGLE STEPS THROUGH LOOP ADAPTER CYCLE STEAL SEQUENCES 
SET-UP BY C.E. IN LOC /0028 THRU /002F ANO S/P AND DE 
SWITCH SETTINGS. 

2. OPERATING PROCEDURE 

1. PUCE THE SINGLE IPL CARD IN THE l«*2 HOPPER. PRESS 
THE IW*2 START BUTTON ONCE TO RUN THE CARD IN AND ONCE 

TO BRING UP READY. FOR PAPER TAPE INPUT, PLACE THE OELETE 
HOLE SECTION OF THE PAPER TAPE OVER THE READ STATION. 

2. SET CHECK STOP SWITCH ON. 

3. PRESS RESET AND PROGRAM LDAO CONSOLE BUTTONS. THE 
PROGRAM WILL LOAD AND STOP AT WAIT 1. 

<t. LOAO l-REG TO /0028 AND LOAD VIA THE D.E. SWITCHES, THE 
CHANNEL INFORMATION IN LOCATIONS /0028 THRU /002F. (THIS 
INFORMATION ONLY NEEDS TO BE ENTERED ONCE UNLESS DIFFERENT 
DATA IS DESIRED). NOTE — THE INFORMATION STORES IN LOC 
/0029 (CONTROL WORD) WILL BE DYNAMICALLY CHANGED WITH THE 
D.E. SWITCH DATA AND THE A S. RESPONSE WILL BE DYNAMICALLY 
CHANGED WITH THE DATA IN THE S/P SWITCHES PRIOR TO EACH 
CHANNEL SET-UP. 

5. PLACE MODE SWITCH BACK IN RUN MODE AND PRESS RESET AND START. 
AT WAIT 1, PLACE A S. RESPONSE IN S/P SWITCHES AND THE CONTROL 
WORD IND E. SWITCHES AS SHOWN IN PROGRAM FLOWCHART. PRESS START. 

6. PROGRAM WILL START LOOP ADAPTER (S INGLE CHANNEL MODE) AND 
TAKE FIRST CYCLE STEAL CYCLE. DDSW2 AND DDSW3 WILL BE 
DISPLAYED IN A AND 0. REG RESPECTIVELY. 

7. EACH TIME THE START BUTTON IS PRESSED, ANOTHER CYCLE 
STEAL CYCLE WILL BE TAKEN. WHEN ALL CYCLE STEALS FOR THE 
CHANNEL TIME ARE TAKEN, THE PROGRAM WILL RETURN TO WAIT I. 

8. WHEN THE START BUTTON IS PRESSED, THE DATA FROM THE 
CONSOLE SWITCHES AND LOCATIONS /0028 THRU /002F ARE LOADED 
IN CHANNEL 1-7 AND THE NEXT SEQUENTIAL CHANNEL IS SENT AND 

ANALYZED. 



9. TO AGAIN START AT CHANNEL 1, 
PROCEED AS IN STEP 5 ABOVE. 

3. HELPFUL HINTS 



PRESS RESET AND START AND 



1. AT ANY POINT IN THE SEQUENCE, THE DATA IN THE LCIB AND 
LCCB TABLES CAN BE OBSERVED BY LOADING THE l-REG TO THE 
TABLE AREA STARTING AT LOC /O900. IF THE RESET OR IMMEDIATE 
STOP BUTTON HAS NOT BEEN PRESSED, IT IS POSSIBLE TO AGAIN 
CONTINUE WITH THE PROGRAM BY LOADING THE l-REG TO THE NEXT 
INSTRUCTION TO BE EXECUTED. 

2. THE C.E. INDICATOR CARDS CAN BE USED IN CONJUNCTION WITH 
THIS PROGRAM TO GATHER MORE INFORMATION ABOUT THE FAILURE. 

3. REFER TO F.E. MANUALS FOR VALID COMMANDS AND RESPONSES. 
(FEMDM'S CONTAIN CYCLE STEAL SEQUENCE CHARTS). 

<t. ONLY THE FIRST 7 CHANNELS ARE SET-UP. WHEH CHANNEL 8 IS 
REACHED, PRESS RESET ANO START BUTTONS TO BEGIN AGAIN AT 
CHANNEL ONE. 



NOTE: 



FOP. THE SECOND ADAPTER, THE FOLLOWING MODIFICATIONS 
BE MADE TO THE I0CC WORDS TO RERECT NEW AREA COOEs 
LOC /001D — /9F02 

/OOIE — /9CC0 

/001F — /9FO"l 

/0021 — /9C0F 



• Q 1BM MAINTB * ANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SCOPE LOOP PROGRAMS 



MUST 





A-REG 


IS 




DDSW2 


^yr 


Q-REG 


15 


y> 


DDSW3 
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*** 2790 SINGLE-STEP SCOPE LOOP *** 
* SWITCH SETTINGS 



XLIX 









* 




*************** 











* 


S/P * 


RESP * 


* 










* 




*********************#*#***** 










* 





• E. * 


CONTROL WORD * 











* 




***************************** 




0000 


081F 


BEGIK 


XIO 


STOP 


* 


STOP LOOP 






0001 


3001 


Al 


WAIT 


1 


* 


SET-UP SWITCHES 











* 












0002 


0821 




XIO 


SNS 


* 








0003 


180C 




SRA 


12 


* 


SET-UP RESPONSES £ 







0004 


E819 




OR 


DSW3 


* 


CONTROL WORD 




0005 


0010 




STO 


START+1 * 








0006 


081F 




XIO 


DESW 


* 






3 






* 












0007 


6190 




LDX 


1 -/70 


* 








0008 


63F8 


A2 


LDX 


3 -8 


• 


SET-UP CHANNELS 1-7 




1 


0009 


CB30 


A3 


LDO 


3 AS+8 


* 






OOOA 00 


D000C980 




STO 


LI TABLE+/80 * 








00 OC 


7102 




MDX 


1 2 


* 






1 


OOOD 


7302 




MDX 


3 2 


* 






OOOE 


70FA 




MDX 


A3 


* 








OOOF 


7108 




MOX 


1 8 


* 









0010 


70F7 


£ 


MDX 


A2 


• 








0011 


0810 




XIO 


START 


* 


START LOOP 




O 






* 












0012 


7101 


A4 


MDX 


1 1 


* 


DELAY 






0013 


70FE 




MOX 


A4 


* 






O 






* 












0014 


10A0 


A5 


SLT 


32 


* 








0015 


0806 




XIO 


DSW2 


* 


DSW SENSES 




O 


0016 


4808 




BSC 


+ 


* 






0017 


70E9 




MDX 


Al 


V 








0018 


1890 




SRT 


16 


* 






O 


0019 


0804 




XIO 


0SW3 


* 






001 A 


18D0 




RTE 


16 


» 








001B 


3002 




WAIT 


2 


* 






O 






*** IOCC'S 


*** 








001C 


70F7 


DSW2 


MDX 


A5 


* 


SENSE DSW2 IOCC 






001 D 


3F02 




DC 


/3F02 


* 









OOIE 


3CC0 


0SW3 


DC 


/3CC0 


* 


SENSE DSW3 IOCC 




001 F 


3F04 




DC 


/3F04 


* 








0020 


0000 


STOP 


DC 





* 


STOP LOOP IOCC 







0021 


3C0F 




DC 


/3C0F 


* 






0022 


0900 


START 


DC 


TABLE 


* 


START LOOP IOCC 






0023 


0000 




DC 


*— * 


* 









0024 


0000 


SNS 


DC 





* 


SENSE S/P SWS IOCC 




0025 


0760 




DC 


/0760 


* 








0026 


0029 


DESW 


DC 


CNTRL 


* 


READ DE SWS IOCC 







0027 


0240 




DC 


/0240 


* 










************************************** «****»»sss S »e 










* MANUALLY SET UP 


FOLLOWING DATA EXCEPT CNTRL WD. 











* 






*************************** 




0028 


0000 


AS 


DC 


/**** 


* 


AS ADDR * DEV ADDR • 






0029 


0000 


CNTRL 


DC 


*-* 


* 


CNTRL * DATA * 







002A 


0000 




OC 


/**** 


* 


* BYTE COUNT * 




002B 


0000 




DC 


/**** 


* 


data buffer address * 






002C 


0000 




DC 


/**** 


* 


CHANNEL SENSE WORD * 







0020 


0000 




DC 


/**** 


* 


ADDRESS error frame * 




002E 


0000 




DC 


/**** 


* 


CONTROL ERROR FRAME * 







002F 


0000 




DC 


/*»** 


» CHANNEL TIMER COUNT WORD* 








* 






*************************** 




0900 




TABLE 


EOU 


/0900 


# 


ADDRESS OF TABLES 






0030 


0000 




END 


BEGIN 














































DATE 


01JUL66 04N0V66 


15FEB67 
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ID 08C8-* 
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I/O SCOPE LOOP - CA (L-LVII) 



(|PL ) f RESET AND ^\ 

V ^ START y 



BEGIN f /0000 



WAIT 1 SET 

DATA ENTRY 

SWITCHES 



c 



INTERNAL 
INTERRUPT 



) 



1. PROGRAM DESCRIPTION 

INITIALIZES THE CA TO A 3 BYTE TRANSMIT TABLE (XMITS AN EBCDIC 
ENOJ WHICH IS CHAINED TO A 10 BYTE RECEIVE TAB'.F THE CA IS 
CLEARED E ITHER AT THE END OF AN OPERATOR SPECIFIED TIME DELAY 
OR WHEN AN OPERATOR SELECTED DSW BIT COMES ON. 

2. OPERATING PROCEDURE 



' /1001 



OPTIONALWAIT 

MAY BE 

ENTERED. SEE 

SERVICE, HINT 

NO A 




I. 
2. 



3. 



4. 



5. 



SELECT THE SINGLE IPL CARD OR THE PAPER TAPE FOR THE CA 

LINE TO BE EXERCISED (SEE TABLE I ). 

PLACE THE CARD IN THE 1M»2 HOPPER. PRESS THE 1W.2 START 

BUTTON ONCE TO RUN THE CARD IN AND ONCE TO BRING UP READY 

FOR PAPER TAPE IPL PLACE THE DELETE HOLE SECTION OF THE * 

PAPER TAPE IN THE READ STATION. 

SET 'CHECK STOP' SWITCH ON AND PRESS 'RESET' AND "PROGRAM 

LOAD' ON THE 1800 CONSOLE. THE PROGRAM SHOULD LOAD AND 

STOP AT WAIT 1 (B REG -/300I). 

SET CONTROL OPTIONS IN DE SWS AS FOLLOWS... 

SW15 ON - TIME DEWY CONTROL. THE CA IS CLEARED AFTER 
SPECIFIED TIME DELAY. ENTER A DELAY COUNT IN DE SWS 
THE COUNT MUST BE POSITIVE (SW OFF) AND ODD (SW 15"oN\ 
THE TOTAL DELAY WILL BE APPROXIMATELY .5 MSEC PER COUNT 
ON A 2 M SEC SYSTEM. TABLE 2 LISTS SOME SAMPLE DELAYS FOR 
A 2 mSEC SYSTEM. 

SW 15 OFF - DSW CONTROL. THE CA IS CLEARED WHEN ANY ONE 
OF THE DSW BITS SPECIFIED IN THE DE SWS COMES ON (SEE 
TABLE 3). FOR EXAMPLE, IF DE SWS 2 AND l» ARE ON THE CA IS 
CLEARED WHEN EITHER DSW BIT 2 OR k COMES ON. 

PRESS CONSOLE 'START' BUTTON. THE CA WILL BE INITIALIZED 
UNTIL THE TIME DELAY ENDS OR UNTIL A SPECIFIEO DSW BIT 
COMES ON. ; ' 

THE CA WILL THEN BE CLEARED AND THE PROGRAM WILL HALT AT 
WAIT 2. PRESS 'START' TO REPEAT OPERATION. 



3. SERVICE HINTS 



TEST 



/0016 



OPTIONAL TESTS 

MAY BE 
ENTERED. SEE 
SERVICE HINT 
NO. 2 



IPL 


MsPftftT^ 


LINE 


CARS 


EODE 


0/1 


L 


2* 





Lt 


23 


1 


Lit 


22 





LIU 


22 


1 


LIV 


J 2i 





LV 


23 


] 


LVI 


2® 





LVII 


2© 


1 



2. 



3. 



4. 



THE CA XMIT/RCV TABLES (ADDR /0022) MAY BE MODIFIED TO 

PROVIDE ANY DESIRED XMIT AND/OR RECEIVE OPERATION 

THE THREE INSTRUCTIONS LOCATED AT 'TEST' (ADDR/Ooi6) MAV 

BE MODIFIED TO BYPASS WAIT 2 FOR SCOPING OR TO PROVIDE A 

CONDITIONAL HALT AT WAIT 2. 

THE EBCDIC ENO. CONTAINED IN THE XMIT TABLE IS PUNCHED IN 

CARD COLUMN 72 ROWS 12-5. IF DESIRED, A NEW CARD MAY BE 

PUNCHED USING SOME OTHER CHARACTER (SEE TBL «*) 

THE NOP AT ADDR /0008 SERVES AS THE BRANCH ADDRESS FOR AN 

INTERNAL INTERRUPT. IF DESIRED, A WAIT MAY BE ENTERED AT 

ADDR /1001 TO HALT ON AN ERROR INTERRUPT. 



TABLE b 
LIRE CONTROL CHARACTERS 



DE SWS - SW 15 ON 



1 



WAIT "/0019 



WAIT 2 

END OF 
PROGRAM 



6ate 

EC NO. 



01JUN66 
M5178 



OUNOV66 
415233 



FUNCTIONAL MNEMONIC 
EBtOiC CODE IN HEX 

USASCII CODE IN HEX 
NAME OF CHAR 



OLE 
SOH 
STX 
ETB 
ETX 
EOT 
ENO.' 
NAK 
ITR 
SYNi 



I5FEB6? 
MS233B 



;bf 



TO 
33] 
02] 



DATA LINK ESCAPE 
START OF HEADING 
START OF TEXT 
END OF BLOCK 
E«D OF TEXT 
END OF XMISSION 
ENQUIRY 
NEGATIVE ACK 
END INTER. BLOCK 
SYNCHRONOUS IDLE 



[0 j ODD TIME DELAY 
TABLE 2 



DE SWS - SW 15 OFF 

__ _ ^ 10 15 

COUNT IfEND DSW BIT (S)| To! 



IS 



DE 
SWS 

75C6T 

/OOOF 
/0065 
/00C9 
/03E9 
/07D3 
/0FA5 

/1777 
/7531 
/7FFF 



APPROX TIME DELAY 
2 uSEC SYSTEM 



.5 MSEC 


7.5 MSEC 


50.5 MSEC 


100.5 


MSEC 


500.5 MSEC 


1.0 


SEC 


2.0 


SEC 


3.0 


SEC 


15.0 


SEC 


16.<* 


SEC 



TABLE 3 



" sws /OPERATING; p'jjtf 



G$Mft¥<£7 



02DEC68 
MI961 



I4NOV69 
••31319 



3UUL70 
431326 



CHANNEL STOP 

STG PROTECT VIOLATE 

TIMED OUT 

END CHAR DECODE/RING 

TABLE COMPLETE 

DATA PARITY CHECK 

DATA BCC CHECK 

DATA OVERRUN . 

DATA SET READY ** 

COMMAND REJECT 

EASIER PN 
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000 





3001 


BEGIN 


WAIT 


1 


WAIT AFTER IPL OR RESTART 


0001 





081 A 


LOOP 


XIO 


/001C 


INITIALIZE CA 


0002 
0003 
0004 







081D 
D01C 
4C04 OOOD 




XIO 
STO 
BSC 


/0020 
/0020 
L /OOODtE 


SENSE DATA ENTRY SWITCHES 
SAVE DATA ENTRY SWITCHES 
BRANCH IF DE SW 15 ON. 


0006 
0007 






0817 
D016 




XIO 
STO 


/001E 
/001E 


SENSE AND 
SAVE CA DSW 


0008 





1000 


* 


NOP 





INTERNAL INTRRUPT VECTOR 


0009 
OOOA 







E016 
4C20 0015 




AND 
BSC 


/0020 
L /0015»Z 


CHK DSW BIT(S) PER DE SWS 
BR IF ANY SPECIFIED BIT ON 


00 OC 





6002 


* 

DELAY 


LDX 


/0002 


BR TO CHK SWS £ DSW AGAIN 


OOOD 
OOOE 
OOOF 
0010 
0012 









6148 
71FF 
600E 

74FF 0020 
600D 


LDX 

MDX 
LDX 
MOX 
LDX 


1 /00A8 
1 -1 

/OOOE 
L /0020.-1 

/OOOD 


DELAY 
500 
USEC 
DECREMENT DELAY COUNT BY 1 
BR IF NOT YET END OF DELAY 


0013 
0014 






080A 
D009 




XIO 
STO 


/001E 
/001E 


SENSE AND 
SAVE CA DSW 


0015 





0804 


END 

* 

TEST 


XIO 


/001A 


CLEAR CA 


0016 
0017 
0018 







C007 
1000 
4800 


LD 

SLA 

BSC 


/001E 






FETCH LAST CA DSW SENSED 
*** REFER TO SERVICE HINTS 
*** SECTION OF WRITEUP 


0019 

001A 






3002 
6001 


WAIT2 


WAIT 
LDX 


2 

/0001 


END OF PROGRAM WAIT 

BR TO INITIALIZE CA AGAIN 








*** IOCC'S 


*** 




*001B AF09 
001 C 0022 \ 
OOID AOOO 1 
0BrET0~TJTJ0V 

0020 0006 9 

0021 0740 


CLEAR 
INITL 

SENSE 

DESWS 


DC 
DC 
DC 
DC 
DC 
DC 
DC 


/AFO, 

/0022 

/ADOO 

*-* 

/AFOO 

*-* 

/0740 


CLEAR CA IOCC 

ADDR OF XMIT/RCV TABLES 

INITIALIZE CA IOCC 

CA DSW STORAGE 

SENSE CA DSW IOCC 

DE SWITCH STORAGE 

SENSE DE SWS IOCC 








*** TRANSMIT AND RECEIVE 


TABLES *** 


. 0022 
0023 
0024 

'0025 
0026 










A 003 

002D 
FFFF 
0025 
OOOA 


TABLE 

CHAIN 

* 


OC 
DC 
DC 
DC 
DC 

END 


/A003 
/002D 
/. FFF 
CHAIN 
/OOOA 

BEGIN 


XMIT TABLE BYTE COUNT WORD 

EBCDIC ENO CHARACTER 

PAD CHARACTER 

CHAIN AMD CAR CHK ADDR 

RCV TABLE BYTE COUNT WORD 
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PAGE 1 



DATE 
EC NO. 



TABLE OF CONTENTS 

PARAGRAPH 

PAGE 

1. PURPOSE ........ *-* 

*•♦**•_- .•••••.......1 

2. PREREQUISITES ......... 

3. USE PROCEDURES «•«..'........*... 

. - 3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 TERMINATING PROCEDURES 

3.4 PROGRAM HALT 

4. PRINTOUTS • ••......,..,... 

5. COMMENTS ........ 

* 1 

6. APPENDIX 

- 1A 

6.1 HEX LOADER 1 CARD 

6.2 HEX DUMP 2 CARD 

6.3 PUNCH IPL CARD 1 CARD 

6.4 TRACE-ADRS STOP 1 CARD/PAPER TAPE 

6.5 80/80 REPORDUCE 1 CARD 

6.6 80/80 AUX LIST 7 CARDS 

6.7 PUNCH IPL P.T. PAPER TAPE 

6.8 1053 DUMP 1 CARD/PAPER TAPE 

6.9 10/20 MIL SEEK 3 CARD/PAPER TAPE 

1. PURPOSE 

TO PROVIDE THE CE WITH UTILITY PROGRAMS IN OROER THAT HE MIGHT HAUF ifrtt5 
TO VARIOUS CARD ANO PAPER TAPE UTILITY FUNCTIONS. " 

2. PREREQUISITES 

THE SYSTEM MUST HAVE A 1442 OR PAPER TAPE REAOER. 

3. USE PROCEDURES 

3.1 PROGRAM LOADING 

t^ To!? GRAMS WILL L0A0 IN IPL M0DE EXCEPT 80/80 AUX LIST WHICH IS IN 
THE NORMAL AUX MANNER. PUNCH IPL CARD OR PAPER TAPE HFx niiMD IL 

JB RSI SS':,rS;,S s ,VSS! D s " '-' S ' B " ™".-"»«" 

3.2 PROGRAM OPERATIONS - SEE INDIVIDUAL PROGRAM 

3.3 TERMINATION 

THIS WILL VARY WITH EACH UTILITY PROGRAM DEPENDING ON THF Fiiwn-inu 
IN MOST CASES IT WILL DEPEND UPON THE COMPLETION OF ™| "jo™" " l0H ' 

3.4 PROGRAM HALTS- WAITS MAY BE IDENTIFIED FROM THE CONTENTS OF THE B REG 

SI Ex 1 ?™™™™*^ 1 BUTT0N T0 co ™« 

3003 USED IN TRACE PROGRAM TO INDICATE TO AND FROM ADDRESS. 

4. PRINTOUTS - NONE 

5. COMMENTS - EACH PROGRAM HAS ITS OWN COMMENTS 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CE UTILITY PROGRAMS 

6. APPENDIX ~ - - 

6.1 HEX LOADER - 1 CARD 

1. PROGRAM DESCRIPTION 

THE HEX LOADER IS A SINGLE CARD TO LOAD CARDS PUNCHED IN THF 
STANDARD HEX FORMAT. THE ENO CARD WILL HAVE ONLY THE PROGrL 
? VISIT * DDReSS ' IN COtUMNS X ™ RU 5 * «°««SES m'uIt BE AbSvE. 

COL FIELD DESCRIPTION 

1 PLUS (12 PUNCH) 

2-5 ADDRESS OF FIRST VALUE 

6 BLANK 

7-10 FIRST VALUE 

U BLANK 

ADDITIONAL VALUES ANO A BLANK COLUMN MAY BE CONTINUED. 
2. OPERATING PROCEDURES 

X * ?t;5 C £ J? EX L0ADER » THE HEX CARDS TO BE LOADED, END CARD A 
ANO TWO BLANKS IN THE 1442 HOPPER. PRESS START. 

2. SET 'CHECK STOP* SWITCH ON. 



aajMwgnwte&a*... 
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DATE 
EC NO. 



3. 



!! RE i S ' RESET * AN ° 'PROGRAM LOAD* CONSOLE BUTTONS. THE 
PROGRAM WILL LOAD AND BRANCH TO THE AOORESS IS THE END CA 



02BC 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
000 B 

oooc 

OOOD 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 00 

0018 

0019 00 
001B 
001C 
0010 
001 E 00 

0020 O 

0021 

0022 

0023 

0024 
0026 

















































611A 

6918 

081F 

081C 

4804 

6003 

61 BO 

6207 

6310 

C178 

4828 

6307 

1002 

1340 

4818 

7000 

6B13 

9012 

18B4 

71FF 

72 FE 

70F2 

7401001A 

1090 

0600001A 

7109 

70 E A 

COOC 

4C98001A 

700 F 

1701 

0024 

1600 

0000 

0000 



*** HEX LOADER *** 

# 

ABS 

ORG 
BEGIN LDX 

STX 

XI 
CK XIO 

bsc 

LDX 

LDX 
THERE LDX 
HERE 



LDX 
LD 
BSC 
LOX 
SLA 
SLCA 
BSC 
MDX 
STX 
S 

SRT 
MDX 
MOX 
MDX 
MDX 
SLT 
STO 
MOX 
MDX 
BLANK LD 



ADR 



OSW 
READ 



AREA 



BSC 

MDX 

DC 

DC 

OC 

DC 

END 





ADR+1 

ADR+1 

READ 

DSW 

E 

CK 

-80 

7 

16 

AREA+84 

+2 

7 

2 





BLANK 
3 AREA 
AREA 
4 

1 -1 

2 -2 
HERE 

L AOR+1,1 

16 
L2 ADR+1 
1 9 

THERE 

AREA+6 
I ADR+1, +- 

BEGIN 

/1701 

AREA 

/1600 



READ A CARD 

SENSE OSW 

IS 1442 READY 

* NO 

* YES 



LOAD WORD TO COVERT 
IS THE WORD ALPHA 

* YES 

* NO 

DETERMINE THE DIGIT 
MAS IT BLANK 

* YES 

* NO 

GET CONVERTED DIGIT 
SAVE DIGIT IN THE Q 



REG 



04N0V66 
415233 



15MAY67 
411731 



01DEC67 
411905 



BEGIN 



03JUL68 
411944 



CHANGE STG LOCATION 

MOVE CONVERTED WORD TO ACC 



CHECK FOR END CARD 
8CH IF END CARO FOUND 

SENSE OSW IOCC 

READ IOCC 
REAO AREA 
END CARD NOT USED IN IPL 
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OATE 
EC NO. 



1. PROGRAM DESCRIPTION 

InL=f? ? UMP WILL CR6ATE STARNDARO HEX FORMAT CARDS STARTING WITH THE 
rTdy^IySTeYs"^^ Slll^ 1 ^' "»""* ^ ™ ™> "" 

2. OPERATING PROCEDURES 

I. PLACE THE HEX DUMP PROGRAM IN THE 1442 HOPPER WITH BLANK 

SET 'CHECK STOP" SWITCH ON. TO LOAD RELOCATABLE SEE 3.1. 
LOAd! R GO E TO*WA1T R 1 GRAH L ° AD C0NS0Le 8UTT °NS. PROGRAM WILL 
PRESS H STARt! RED STARTING * 00r ESS. THE DATA ENTRY SWITCHES 
*** HEX DUMP *** 



2. 
3. 



02BC 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 



700D 
1402 
00 28 
1601 
00 4F 
1500 
8000 
1701 
0008 
0740 
2000 
0760 
0009 
1480 



FEED 



ABS 
ORG 

MDX 

DC 
READ DC 

DC 
PUNCH DC 

DC 
DSW DC . 

DC 
DESW DC 

DC 
SPSW DC 

DC 
STACK OC 

DC 



OOOE 6801 
OOOF 00 65000000 

0011 7119 

0012 69EF 

0013 08EE 

0014 08 Fl 

0015 «4804 * 

0016 70 FD 

0017 08E8 

0018 7127 

0019 69EA 



GO 

ixi 



CK 



001A 
001B 
00 1C 
001D 
001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 



3001 
08EC 
D001 
00 67000000 
6210 

6A14 

6204 

1800 

1084 

7101 

B0E6 

7021 

1800 

E8FE 



STX 
LDX 
MDX 
STX 
XIO 
XIO 
BSC 
MDX 
XIO 
MDX 
STX 
• 

WAIT 

XIO 

STO 

1X3 LDX 

NEW LDX 

CONV STX 

LDX 

RTE 

SLT 

MDX 

CMP 

MDX 

SRA 

OR 



/OOOO 

GO 

/1402 

40 

/1601 

79 

/1500 

/8000 

/1701 

/0008 

/0740 

/2000 

/076Q 

/0009 

/I480 

1X1 + 1 

*-* 

25 

READ 

READ 

DSW 

E - 

CK 

FEED 
1 39 
1 PUNCH 

1 

DESW 
1X3+1 



LI 

1 
1 



L3 
2 
2 

2 



MOVE 



FACT 



16 

1X2+1 
4 

16 

4 

1 

STACK 

ALPHA 

O 

FACT 



FEED IOCC 

READ IOCC 

PUNCH ADDRESS 

PUNCH IOCC 

CONSTANT 

SENSE DSW LOCC 

PUNCH TERMINATOR 

SENSE DATA ENTRY SWS IOCC 

CONSTANT 

SENSE S/P SWS IOCC 

CONSTANT 

STACK IOCC 

STORE I COUNTER 

PICK UP I CTR 

ADJUST FOR NEXT REAO AREA 

BUILD REAO IOCC 

READ A CARD 

SENSE DSW 

IS 1442 READY 

* NO 

* YES. CLEAR PUNCH AREA 

BUILD PUNCH IOCC 

SET STARTING ADDRESS 
SENSE STARTING ADRS 

STARTING ADDRESS 

NUMBER TIF ENTRIES PER CARD 



SAVE WORD TO BE CONVERTED 
GET 4 POSITIONS TO CONVERT 

IS IT NUMERIC 

* NO. ALPHA (A-p) 

* YES « CONSTANT) 

* YES 
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01DEC67 
411905 
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411944 
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DATE 
EC NO. 



0029 
002A 
002B 
002C 
0020 
002 E 
002 F 

0030 
0031 
0032 

0033 



D001 
CODF 
1800 
0100 
1010 
72 FF 
70F3- 

7101 
0100 
C300 
7301 



0034 00 66000000 

0036 72 FF 

0037 70E8 



0038 C1FF 

0039 E8D2 
003A D1FF 



003B 

003C 

003D 

003F 

003F 

0040 

0041 

0042 

0043 

0044 

0045 00 

0047 



0048 

0049 ~ 

004A 

004B 

004C 

004D 

004E 

004F 

0050 



08D0 

08C7 

08C8 

4804 

70FD 

CQC3 

D004 

73FF 

6BD9 

C0D8 

65000000 

70 D7 

90C3 
E8DD 
0001 
COBE 
1800 
E8B8 
700D 
8000 

0800 



STO 
LD 

SHIFT SRA 

THERE STQ 

SLA 

MDX 

MDX 

* 

MDX 
STO 
LD 
MDX 
1X2 LDX 
MDX 
MDX 



LD 
OR 
STO 

XIO 

XIO 

XIO 

BSC 

MDX 

LD 

STO 

MDX 

STX 

LO 

LDX 

MDX 



CK1 



1X1 



* 

ALPHA S 
OR 
STO 
LD 

HERE SRA 
OR 
MDX 
DC 

* 

END 



SHIFT 

SPSW 



1 
"16 

2 -1 
MOVE 

1 1 

1 

3 
3 1 

L2 *-* 

2 -1 
CONV 

I -1 

STACK 
1 -1 

STACK 

PUNCH 

OSW 

E 

CK1 

PUNCH 

1X1+1 

3 -1 

3 1X3+1 
1X3 + 1 
LI *-* 
NEW 

STACK 

FACT 

HERE 

SPSW 



DSW 

THERE 

/8000 

FEED 
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415233 



15MAY67 
411731 



01DEC67 
411905 



03JUL68 
411944 



CARD CODE FOR ZERO 
SHIFT AMOUNT WAS AODEO 
PLACE IN OUTPUT AREA 



STORE A BLANK 
GET NEXT WORD . " 

NUMBER OF ENTRIES PER CARD 



— S* *-- 



GET LAST COLUMN 
ADD TERMINATOR BIT 
AND STORE BACK 

SELECT STACKER 
PUNCH A CARD 

IS 1442 REAOY 

* NO 

* YES 

RESTORE XR1 ADRS 



GET NEXT ADRS 
RESTORE XR 1 



ADJUST CONSTANT 
DEVELOP SHIFT 

CARD CODE FOR ZERO 

ADD 

12 ZONE 

PLUS FOR HEX CARD 
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PUNCH IPL CARD - 1 CARD 

1. PROGRAM DESCRIPTION 

THIS PROGRAM MAY BE IPL-ED IN AT ANY EVEN LOCATION BY SETTING THE 
I COUNTER. WHEN AT WAIT 1, SET THE ADDRESS IN THE DATA ENTRY 
SWITCHES THAT THE PROGRAM IS TO PUNCH AN IPL CARD FROM AND PRESS 
START. ONE IPL CARD WILL BE PUNCHED AND THE PROGRAM WILL STOP AT 
IF ANOTHER IPL CARD STARING FROM THE SAME ADDRESS IS DESIRED, 
PRESS START IF THE ADDRESS IS TO BE DIFFERENT, CHANGE THE OATA 
ENTRY SWITCHES AND PRESS START. 



2. OPERATING PROCEDURE 
1. 



PLACE THE IPL CARD WITH AT LEAST THREE BLANKS IN THE 1442 
HOPPER. PRESS THE 1442 START BUTTON. 

Z* SET 'CHECK STOP' SWITCH ON. TO LOAD RELOCATABLE SEE 3.1. 

3. PRESS 'RESET' AND 'PROGRAM LOAD' CONSOLE BUTTONS. THE PROGRAM 
HILL LOAD AND STOP AT WAIT 1. 

4. SET THE ADDRESS TO PUNCH THE IPL CARD FROM THE DATA ENTRY 
SWITCHES. PRESS CONSOLE START. PROGRAM WILL PUNCH ONE CARD 
AND COME TO WAIT 2. 

5. PRESS START TO PUNCH ANOTHER IPL CARD. IF A DIFFERENT ADDRESS 

IS OESIRED, CHANGE THE DATA ENTRY SWITCHES £ THEN PRESS START 
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DATE 
EC NO. 



02BC 

0000 

0001 

0002 

0003 

0005 

0006 

0007 

0008 

0009 

OOOA 

000 B 

0000 

OOOE 

OOOF 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

001A 

001B 

001C 

0010 

OQIE 

001F 

0020 

0021 

0022 

0023 

0024 

0025 

0026 



0_ 0823 
3001 
6801 
00 66000000 
7225 
6A1B 
6328 
0815 
D002 
6100 
00 C 5000000 
1808 
D200 
1098 
7201 
0200 
7101 
7201 
73FF 
70F5 
C2FF 
E808 
02FF 
0808 
0805 
4804 
70FD 
3002 
70E4 
0740 
0008 
1701 
0000 
1500 
0000 
1482 
0000 



*** PUNCH IPL CARD *»* 
* 

ABS 

ORG 
BEGIN XIO 

WAIT 



1X2 



LD 



STX 
LOX 
MDX 
STX 
LOX 
XIO 
STO 
LDX 
LD 
RTE 
STO 
SLT 
MDX 
STO 
MDX 
MDX 
MDX 
MOX 
LD 
OR 
STO 
XIO 
CIO 
BSC 
MDX 
WAIT 
MDX 
DC 
DC 
DC 
WRITE DC 
DC 
FDSTK DC 
OC 
- ENO 



CK 



DESW 



DSW 



L2 
2 
2 
3 





FDSTK 

1 

1X2+1 

*-* 

37 

WRITE 

40 

OESW 

LD+1 





LI *-» 
24 





24 

1 



1 

1 

-1 

LD 
! -1 

DSW 
! -1 
WRITE 
DSW 
E 

CK 
2 

1X2 
/0740 
/0008 
/1701 

/1500 

/1482 
BEGIN 
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MAY BE IPL-ED AT ANY EVEN 

FEED AND STACK PRG CARD 

SET REQUIRED SWITCHES 

STORE I COUNTER 

GET I COUNT 

ADO 37 TO GET PCH AREA ADR 

STORE IN WRITE IOCC 

40 COLUMNS PER IPL CARD 

SENSE DATA ENTRY SWITCHES 

GET STARTING ADR 

CLEAR IX 1 

LOAD WORD TO SEPARATE 

GET SECOND HALF 

STORE BITS 8 TO 15 

GET FIRST HALF 

CHANGE STORE LOCATION 

STORE BITS TO 7 



GO BACK FOR ANOTHER WORD 
LOAD LAST COLUMN 

* OR IN PCH TERM BIT 

* AND STORE BACK 
PUNCH IPL CARD 
SENSE DSW 

IS 1442 READY 

* NO 
*t YES 

PCH ANOTHER CARD 

SENSE DATA ENTRY SWITCHES 

PUNCH TERM BIT 

SENSE OSW IOCC 

PUNCH AREA ADDRESS 

PUNCH IOCC 



STACK AND F 
END CARD NOT 



V 



IOCC 
ED ON 
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TRACE - ADDRESS STOP 
1. PROGRAM DESCRIPTION 
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THI 

COB 

mi 

INS 
REG 
MIL 
VAL 
INS 
EN1 
THI 
SER 


S PROGRAM CAN BE IPL-ED INTO ANY EVEN LOCATION IN ANY AREA OF 
E NOT USED BY THE PROGRAM TO BE TRACED. 1 SEE PARAGRAPH 3.1) 
H THE MACHINE IN TRACE MODE, THE TRACE INTERRUPT AFTER "EACH 
TRUCTIQN HILL INTERRUPT INTO THIS PROGRAM ANO COMPARE THE -I- 
.ISTER AND. THE DATA ENTRY SWITCHES. IF EQUAL, THIS PROGRAM 
L WAIT WITH THE ACQ REGISTERS CONTAINING EITHER THE LAST 


-- 


- 


UES OF A £ Q OR THE LAST INSTRUCTION ADDRESS AND THE NEXT 
TRUCTION ADDRESS. (DEPENDING UPON SETTING OF BIT OF DATA 
RY SWITCHES). SINCE THE TRACE INTERRUPT IS THE LOWEST ONE, 
S PROGRAM WILL NOT STOP AT AN ADDRESS INSIDE AN INTERRUPT 
VICE ROUTINE. 






© 




2. 


OPERATING PROCEDURES 




■ 


© 

© 




- 


1. 


AFTER THE PROGRAM TO BE TRACED IS LOADED, PLACE THE 
SINGLE IPL CARD IN THE 1442 HOPPER. PRESS THE 1442 START 
BUTTON ONCE TO MOVE THE CARD IN AND ONCE TO BRING UP READY. 
FOR PAPER TAPE INPUT, PLACE THE DELETE HOLES SECTION OF THE 
PAPER TAPE OVER THE READ STATION. 






c 






2. 


SET 'CHECK STOP' SWITCH ON. SET DATA ENTRY SWITCHES TO THE 
ADDRESS THE TRACE PROGRAM WILL BE IPL-ED INTO. (AN UNUSED 
CORE AREA) LOAD I TO THIS VALUE. 






© 

©- 


- 




3. 


PLACE THE MODE SWITCH IN 'SI W/CS* POSITION. PRESS 'PROGRAM 
LOAD' CONSOLE BUTTON. AFTER THE CARD HAS BEEN READ, AGAIN 
LOAD I TO STARTING ADDRESS OF THIS TRACE PROGRAM. PLACE THE 
MODE SWITCH IN 'RUN' MODE AND PRESS START. PROGRAM WJLL 
STOP AT WAIT 1. 


- 




© 

c 
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~ 




4. 


AT WAIT I SET THE STOP ADDRESS DESIRED IN THE DATA ENTRY 
SWITCHES AND THE MODE SWITCH TO TRACE. SET THE DA.TA ENTRY 
SWITCH BIT AS DESIRED. START THE PROGRAM TO BE TRACED. 










5. 


A WAIT 2 WILL INDICATE THE ADDRESS HAS BEEN REACHED, A + Q 
NORMAL. 










6. 


AT WAIT 3 THE ACCUMULATOR WILL SHOW THE LAST ADDRESS AND THE 
Q-REG WILL SHOW THE NEXT ADDRESS TO BE EXECUTED. 
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DATE 
EC NO. 



0000 

0001 

0002 

0004 

0005 

0006 00 

0003 

0009 

OOOA 00 

OOOC 

OOOD 

OOOE 

OOOF 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 00 

0019 

001A 

00 IB 

0010 

001D 

001 E 

001F 

0020 

0021 

0022 

0023 

0024 

0026 













a 
o 
o 



0803 

8006 

D40OO0O9 

3001 

0740 

00000000 

0018 

0000 

00000000 

1001 

4820 

7004 

C008 

DO FA 

C8F8 

3003 

C004 

18D0 

D8F4 

C8EF 

4C400000 

D8EC 

C8EF 

08E8 

FOEE 

4820 

70 ED 

C0F8 

18D0 

D8E8 

C8E3 

3002 

70F2 

0000 



*** TRACE - 

BEGIN XIO 
A 

STO 
WAIT 
DC 
DEC 
DC 
DC 
DEC 
SLA 
BSC 
MDX 
LD 
STO 
LDD 
WAIT 
LD 
RTE 
STD 
LDD 
TRACE BOSC 
STD 
LDD 
XIO 
EOR 
BSC 
MDX 
LD 
RTE 
STD 
LDD 
WAIT 
MDX 
END 



ADDRESS STOP *** 



OESW 

ST01 
FACT 

ST02 
CK 



NO 



DESW 

FACT 

/0009 

1 

/0740 



TRACE+1- 

/OOOO 



1 

Z 

NO 

TRACE+I 

ST02+1 

ST02 

3 

TRACE+1 

16 

ST02 

ST01 

*-* 

ST01 

ST02 

DESW 

ST02+I 

Z 

CK 

TRACE+1 

16 

ST02 

ST01 

2 

TRACE 

BEGIN 



SENSE IPL ADDRESS 
ADD FACTOR 
STORE TRACE VECTOR 
SET DESIRED ADDRESS 
IOCC DATA ENTRY SWITCHS 
A AND Q STG FOR MAINLINE 
BEGIN 

TRACE INTR ENTRY IF IPL-ED AT ZERO 
_INST ADRS STORAGE 
REMOVE BIT ZERO 
STOP WITH TO AND FROM ADRS 

* NO 

* YES 



ACC LAST ADRS, Q NEXT ADRS 
GET RETURN ADDRESS 

SAVE TRACE ADDRESSES 
RESTORE MAINLINE A AND Q 
ENTRY AND RETURN LOCATION 
SAVE MAINLINE A + Q REG 

SENSE STOP ADDRESS 

COMPARE ADDRESS 

IS THIS STOP ADDRESS 

* NO 

* YES 

SAVE TO AND FROM ADDRESSES 
RESTORE A AND Q REGISTERS 
ADDRESS FOUND 
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80/80 REPRODUCE - 1 CARD 

1. PROGRAM DESCRIPTION 

THIS PROGRAM HILL REPRODUCE A DECK OF CARDS. THE CARDS ARE READ 
INTO CONSECUTIVE CORE LOCATIONS STARTING AT /0050. AFTER THE 
LAST CARD ROUTINE IS PERFORMED, BLANK CAROS ARE PLACED IN 
HOPPER AND A NEW DECK IS PUNCHED. 

2, OPERATING PROCEDURES ' ~ ' ~ ' ~-'z ~ 

1. PLACE SINGLE IPL CARD IN THE 1442 HOPPER WITH THE CARDS TO BE 
DUPLICATED FOLLOWING. PRESS START ON 1442 TO BRING UP ITS 
READY. 

2. SET 'CHECK STOP' SWITCH ON. IF A DECK WHICH IS LARGER 
THAN CAN BE HELD IN CORE IS READ IN, THE MEMORY WILL WRAP 

- AROUND AND WIPE OUT THIS PROGRAM, PROBABLY STOPPING WITH AN 
OP CODE CHECK. 

3. PRESS 'RESET' AND 'PROGRAM LOAD' ON THE 1800 CONSOLE. WHEN 
THE HOPPER GOES EMPTY, PRESS START ON THE 1442 TO INITIATE 
THE LAST CARD ROUTINE. 

4. WHEN WAIT 1 IS REACHED, LOAD 1442 HOPPER WITH BLANK CARDS AND 
PRESS START ON 1442. (THE PROGRAM DOES NOT CHECK FOR BLANK 
CARDS BEFORE PUNCHING SO BE SURE CARDS ARE BLANK). PRESS 
START ON THE 1800 CONSOLE AND PUNCHING WILL BEGIN. 

5. WHEN THE DECK HAS BEEN PUNCHEO, THE PROGRAM AGAIN EXECUTES A 
FEED CYCLE TO PLACE THE LAST CARD OF THE NEW DECK IN THE 
HOPPER. THE PROGRAM WILL STOP AT WAIT 2 (EVEN THOUGH THE 
HOPPER STILL HAS CARDS IN IT). 

6. WHEN WAIT 2 IS REACHED, THE DUPLICATION IS COMPLETE, IF 
ANOTHER NEW DECK IS D6SIRE0, PRESS 'START' ON THE 1800 
CONSOLE.. 

-3. SERVICE HINTS 

1. NO CHECK IS MADE TO DETERMINE THE SIZE OF MEMORY AVAILABLE. 
IF THE OECK IS A LARGE ONE, IT MAY BE NECESSARY TO REPRODUCE 

IT IN SEVERAL PASSES. APPROXIMATELY 50 CARDS CAN BE 
REPOROUCED FOR EVERY 4K OF MEMORY. 

2. NO CHECK IS MADE PRIOR TO PUNCHING TO INSURE THAT THE CARDS 
LOADED IN THE HOPPER ARE BLANK. IF A PUNCHED DECK IS LOADED, 
IT WILL PUNCH THE NEW DATA OVER THE OLD AND RENDER BOTH 
PROGRAMS USELESS. 
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0000 



0000 





6150 


0001 





6922 


0002 





08IF 


0003 


c 


4804 


0004 





70 FD 


0005 





1003 


0006 





4828 


0007 





7003 


0008 





081B 


0009 





7150 


OOOA 





70 F6 


OOOB 





0814 


OOOC 





3001 


OOOD 





6150 


OOOE 





0813 


OOOF 





4804 


0010 





70FD 


0011 





6914 


0012 





C14F 


0013 





E80E 


0014 





D14F 


0015 





COOE 


0016 





900F 


0017 





4808 


0018 





7003 


0019 





080C 


,001 A 





7150 


001B 





70 F2 


001C 





0803 


001D 





300 2 


001E 





70 EE 


001 F 





70FF 


0020 




0000 


0020 





0000 


0021 





1402 


0022 





0008 


0023 





1701 


0024 





0000 


0025 





1600 


OOZb 





0000 


0027 





1500 


0028 




0000 



*** 80/80 

* 

ABS 
ORG 

* 

LOX 

RD STX 

CK1 XIO 
BSC 
MDX 
SLA 
BSC 
MDX 
XIO 
MDX 
MDX 

CNT XI Q 

* 

* 

* 

WAIT 

PNCH LDX 



REPRODUCE *** 



******* READ SECTION ******* 



i 80 
1 READ 

SENSE 

E 

CK1 

3 

Z + 

CNT 

READ. 
1 80 

RD 

CNTRL 



FIRST DATA ADDRESS 
STORE XR 1 AT READ IOCC 
SENSE OSW 
SKIP IF 1442 IS READY 



IS THIS THE LAST CARD 
DONE WITH READING DCS 
READ THE CARDS 
NEXT CARD ADDRESS SET-UP 
CONTINUE READING CAROS 
DO FEED CYCLE 



******** PUNCH SECTION ******** 



CK2 



XIO 

BSC 

MDX 

STX 

LD 

OR 

STO 

LD 

S 

BSC 

MDX 

XIO 

MDX 

MDX 

XIO 
WAIT 
MDX 
MDX 



BSS 
CNTRL OC 

DC 
SENSE DC 

OC 
READ DC 

DC 
PUNCH DC 

DC 

END 



DONE 



1 

80 

SENSE 

E 

CK2 

PUNCH 

79 

SENSE 

79 

READ 

PUNCH 

+ 

DONE 

PUNCH 

80 

CK2 



CNTRL 

2 

PNCH 

X -1 
******** 

E 


/1402 
/0008 
/1701 
*-* 
/1600 
*-* 
/15Q0 




NOW REAOY TO PUNCH CARDS 

SENSE DSW 

SKIP IS 1442 IS READY 



PLACES THE 

* END OF PUNCH 

* BIT IN LAST COLUMN. 
CHECK IF THIS 

* IS THE LAST CARD 

* OF THE DECK. 

PUNCH THE CARDS 

NEXT CARD ADDRESS SET-UP 



FEED CYCLE 

DONE PUNCHING DECK. PRESS 
START TO PUNCH ANOTHER 
COPY. 
IOCC WOROS ******** 

FEED CYCLE 

SENSE DSW 

READ CARDS 



PUNCH CARDS 
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6.6 



80/8Q AUX LIST - AUX PROGRAM 7 CARDS 



PROGRAM DESCRIPTION 

CHECK CUSTOMER'S OPERATION BEFORE USING THIS PROGRAM. THE 1442 
AND THE 1443 MUST NOT BE ON A CHANNEL WITH ANOTHER DEVICE THE 
CUSTOMER IS USING. 

THIS PROGRAM LIST CAROS ON THE 1443 THAT ARE READ ON THE 1442 
AND RUNS IN AUX STORAGE ( CE MODE). THE PROGRAM WILL LEAVE A 
BLANK FOR ANY CHARACTER NOT FOUND. 

PREREQUISITES 

2.1 DEVICE AREA CODE 

IF THE DEVICE TO BE TESTED USES A CUSTOMER ASSIGNED AREA CODE 
A NEW AUX PROGRAM DECK OR PAPER TAPE MUST BE CREATED. THE 
PROCEDURE IS PRESENTED IN THE DOCUMENTATION OF THE AUX PRO- 
GRAM GENERATOR UTILITY (PIO 08AC - CARO VERSION). THE PROGRAM 
LOCATIONS THAT MUST BE ALTERED ARE SPECIFIED BY A STATEMENT 
AT THE BEGINNING OF THE PROGRAM LISTING. 



2.2 CARD INPUT 



—CAUTION- 



DO NOT ATTEMPT TO LOAD THIS PROGRAM IF THE CARD READER 
SHARES A CHANNEL WITH ANOTHER DEVICE WHILE THAT DEVICE 
IS OPERATING. 

THE AUX DIAGNOSTIC LOADER (PID 08A1) MUST BE PRESENT IN AUX 
STORAGE BEFORE AN AUX PROGRAM OECK CAN BE LOADED. 

USE PROCEDURE 

BEFORE PROCEEDING, A PROGRAM MUST BE IN MAIN-CORE STORAGE RUNNING 
OR AT A WAIT INSTRUCTION READY TO START RUNNING. 

3.1 CARD INPUT LOADING PROCEDURE 

A. BE SURE THE 1442 IS AVAILABLE AND ALL CARDS ARE REMOVED. 

B. ON THE CE PANEL SET THE INTERRUPT SWITCH TO AUX INTERRUPT 
AND ALL THE CE SWITCHES TO THEIR ON POSITION (UP). 
DEPRESS CE iNTERRUPT TWO TIMES TO ASSURE THE 1442 IS IN 
CE MODE. 

PLACE THE SEVEN CARDS OF THE AUX 80/80 LIST PROGRAM 
IN THE HOPPER OF THE 1442 AND FOLLOW WITH A BLANK CARO. 

NOTE 

-EACH PROGRAM CARD HAS A CHARACTER ENTERED INTO 
COLUMN 80. THIS CHARACTER DEFINES THE CARD'S 
POSITION IN THE DECK ACCORDING TO THE FOLLOWING 
SEQUENCE, X(FIRST), THEN 0, 1,2,3,4,AND 5. THE 
CARDS CANNOT BE READ UNLESS THEY ARE PLACED IN 
THE HOPPER IN THE CORRECT ORDER. 

DEPRESS THE 1442 START PUSHBUTTON. READY INDICATOR 

SHOULD LIGHT. 

SELECT THE DESIRED ROUTINE FROM TABLE 1. 

DEPRESS CE LEVEL INTERRUPT PUSHBUTTON (ON CE PANEL) 

TO LOAD THE PROGRAM. 



C. 



E. 



F. 
G. 



3.2 TAPE INPUT 



DOES NOT APPLY 



DATE 
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THE ROUTINE SELECTED WILL AUTOMATICALLY START AFTER THE 
PROGRAM HAS BEEN ENTEREO INTO AUX STORAGE. SUBSEQUENT 
ROUTINES MAY BE SELECTED AT ANY TIME USING THE SWITCH 
SETTINGS LISTED IN TABLE 1. MAKE THE 1443 READY. 



ROUTINE 



CE SERVICE 
STOP 



PROGRAM 
TERMINATOR 



TABLE 1. 

BIT SWITCHES 
8 9 10 11 12 13 14 15 

000000 00 

00000001 

OR 
00001111 



I 1 1 1 1 1 1 1 

CAUTION- 
' 3.4 CE SERVICE STOP 



CE PROGRAM SWITCH SETTINGS 
FUNCTION 

LIST CARDS 80/80 

THIS SWITCH SETTING CAUSES THE PROGRAM 

TO STOP BUT DOES NOT TERMINATE. 

IT IS RECOMMENDED TO USE THIS SETTING 

WHEN ADJUSTING THIS DEVICE. TO START 

THE ROUTINE, SELECT THE CE PROGRAM 

SWITCH SETTINGS AND DEPRESS CE INTERRUP 

BUTTON. 

THIS SWITCH SETTING INITIATES A ROUTINE 
THAT TERMINATES THIS PROGRAM. (ALL 
AUX PROGRAMS USE THE SAME PROGRAM- 
TERMINATOR SETTING.) 

FOR THE TERMINATING PROCEDURE 
IN SECTION 3.5 



THIS SWITCH SETTING WILL NOT TERMINATE THE PROGRAM BUT IT 

WILL CAUSE THE DEVICE TO STOP AND STAY IN CE MODE. TO START 

THE ROUTINE, SELECT THE CE PROGRAM SWITCH SETTINGS AND DE- 
PRESS CE INTERRUPT. 

3.5 TERMINATING PROCEDURE 

A. SET THE CE PROGRAM SWITCHES TO 00000001 -CE SERVICE STOP 
(THE ONLY REASON FOR USING THIS SETTING IS TO STOP ANY 
DEVICE ACTION WHICH MAY CAUSE AN INTERRUPT). 

8., SET THE CE PROGRAM SWITCHES TO 11111111 -TERMINATOR SET- 
TING, AND DEPRESS THE CE INTERRUPT LEVEL KEY ONCE AND ONL 
ONCE (A SECOND DEPRESSION OF THE CE INT. KEY WILL RESULT 
IN THE AUX DIAGNOSTIC LOADER TRYING TO LOAD A NEW PROGRAM 
IF THE READER IS READY.) 

NOTE 

TO OFFSET THE POSSIBILITY THAT THE INPUT DEVICE MIGHT BE 
MALFUNCTIONING, THE NEXT TIME THE 1800 SYSTEM NEEDS 
SERVICING THE FOLLOWING PROGRAM SHOULD BE LOADED INTO AUX 
CORE AT THE CONCLUSION OF EACH SERVICE CALL - 

-". A. CARO INPUT 

LOAD THE AUX 1442 PACKED READ EXERCISE PROGRAM (PID 
08AA) AFTER- ASSURING THE PROGRAM IS BY PUNCHING 
CARDS, CE SWITCH SETTING 00000001, SET IN THE FAREWEL 
OPTION, CE SWITCH SETTING 00000000 AND LEAVE THE 
SWITCHES AT THIS SETTING, TO ENSURE THE GREATEST PRO- 
TECTION TO THE CUSTOMER. DEPRESS CE INTERRUPT. 
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TAPE INPUT 

LOAD THE AUX 1054/55 EXERCISE PROGRAM (PIO 08A8). 
AFTER ASSURING THE PROGRAM IS IN BY PUNCHING TAPE, CE 
SWITCH SETTINGS 00000001, SET IN THE FAREWELL OPTION, 
CE SNITCH SETTING 00000000 AND LEAVE THE SWITCHES AT 
THIS SETTING TO ENSURE THE GREATEST PROTECTION TO THE 
CUSTOMER. DEPRESS CE INTERRUPT. 



4. PRINTOUTS 



028C 



0036 00 4COOO0B8 



COMMENTS 

A PROGRAM MUST BE IN MAIN-CORE STORAGE AND MUST BE RUNNING OR 
READY TO START BEFORE THIS PROGRAM CAN BE LOADED. THE AUX LOADER 
MUST 8E PRESENT IN AUXILIARY STORAGE. THE PROGRAM WILL START 
AUTOMATICALLY WITH THE ROUTINE SETTING IN TIE CE PROGRAM SWITCHES 

*»* AUX LIST 80/80 *** 
* 

ABS 

ORG /36 

a*************************************************,*:* 

* IF THIS PROG IS TO BE USED FOR A MACHINE 

* WITH A DIFFERENT AREA CODE, THE LOCATION WHICH 

* REFER TO THE LABEL AREA IN SYMBOL TABLE MUST 

» BE CHANGED BY HEX CORRECTION CARDS TO OBTAIN A 

* MODIFIED AUX 8-8 OBJECT DECK. SEE AUX CE PROG 

* GENERATOR WRITE-UP FOR PROCEDURE. 
* 

***.£********************************:£************** 
* 

* 

* 80/80 LIST 1442-1443 

* ********************* 
* 

* CE BIT SWITCH SETTINGS 
• 

* 00000001 CE SERVICE STOP 

* 11111111 TERMINATE PROGHAM 
* 

* ALL OTHER SETTINGS ARE VOID 

* 

* FOR ADDITIONAL INFORMATION ABOUT PROG. OPERATION 

* RE=ER TO THE PROGRAM DESCRIPTION WRITE-UP. 

********************** *********** T ***************** 

* 
* 
* 
* 
* 
* 
READ 



AUX PROG ENTRY POINTS 

********************** 



1ST PASS ENTRY ONLY 



BSC 



L SETUP 



BCH TO INIL ROUTINE 
LATER READ IOCC 



u 




0038 


0006 


PRINT 


DC 


PAREA 


PRINT AREA 






0039 


0500 




DC 


/0500 


PRINT IOCC 


c 




003A 


OOFF 


SENBI 


DC 


/OOFF 


CONSTANT 




003B 


0760 


STG 


OC 


/0760 


SENSE BIT SWITCHES 






003C 


0000 


DSWP 


DC 




TEMP STORAGE 


o 




003D 


0701 




DC 


/0701 


SENSE PTR OSW 








* 












0Q3E 


6A11 


RETUR 


STX 


2 SAVE2+1 


SAVE XR 2 


o 




003E 


6812 




STX 


3 SAVE3+1 


SAVE XR 3 




0040 


08 FB " 




XI 


DSWP 


SENSE PTR DSW 






0041 


0826 




XIO 


DSWR 


SENSE RDR DSW 


o 




0042 


08F7 




XIO 


SENBI 


SENSE BIT SWITCHES 




0043 


E0F6 


- 


AND 


SENBI 


REMOVE THRU 7 


o 


DATE 


04N0V66 15MAY67 


01DEC67 


03JUL68 




o 


EC NO. 


415233 


411731 


411905 


411944 
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0044 F0F5 




EOR 


SENBI 




0045 00 4C18004A 




BSC 


L NOTRD, +- 


BCH TERMINATE PROGRAM 




0047 00 4C040089 


WORK BSC 


L GET.E 


BCH TO PROGRAM 


o 


00*9 7005 


* 


MOX 


SAVE2 






0O4A 00 650000813 


NOTRD LDX 


LI WWWW 




I 


004C 6987 
004D 0820 




STX 
XIO 


1 /04 
CEOFR 


RESTORE LOADER 

TURN CE MODE OFF RDR 


~ 


004E 0811 




xio 


CEOFP 


TURN CE MODE OFF PTR 


© 


004F 00 66000000 


SAVE2 LDX 


L2 


RESTORE XR 2 




0051 00 67000000 


SAVE3 LOX 


L3 1 


RESTORE XR 3 


© 


0053 70 B9 


* 


MDX 


QQQQ 


EXIT TO AUX LOADER 


o 


0054 200A 


* 

TABLE OC 


/200A 


ZERO 




0055 OOAB 




DC 


/OOAB 


EQUAL 


© 


0056 02 2C 

0057 0120 




DC 
DC 


/022C 
/012D 


EACH SIGN 
APOS 




0058 20AE 




DC 


/20AE 


GREATER THAN 


o 


0059 206F 




DC 


/206F 


QUESTION MARK 


005A 0000 




DC 


/OOOO 


SPACE AND END CK 




005B 282A 




DC 


/282A 


LOZEN 





005C 8000 
0O5D 882D 




OC 

DC 


/8000 
/882D 


AMPERSAND 
CENT SIGN 




005E 8428 




DC 


/842B 


PERIOD 


o 


005F 822E 
0060 41 2C 


DC 
CEOFP DC 


/822E 
/412C 


LESS THAN 
RT BRACKET 




0061 0000 




DC 


/OOOO 


PRINTER CE OFF IOCC 


o 


0062 0003 

0063 4000 




DC 
DC 


/0003 
/4000 


END CHECK 
DASH 




0064 482D 




DC 


/482D 


EXCLAIMATION 


4-^">. 


0065 442B 




DC 


/442B 


DOLLAR SIGN 


u 


0066 42 2C 




DC 


/422C 


ASTERISK 




0067 40AE 




DC 


/40AE 


SEMICOLON 


o 


0068 042A 

0069 0701 
006A 0002 


DSWR 


DC 
DC 
DC 


/042A 
/0701 
/0002 


NUMBER SIGN 
SENSE RDR OSW 
END CHECK 


o 


006B 812C 
006C 80A0 




DC 
DC 


/812C 
/80A0 


LEFT BRACKET 
PLUS 




0060 2428 




DC 


/242B 


COMMA 





006E 222A 
006F 0000 


CEOFR DC 
DC 


/222A 
/OOOO 


PERCENT 

RDR CE OFF IOCC 




0070 082E 




QC 


/082E 


COLON 


c 

© 


0071 006F 

0072 000 i 


ONE 

* 


DC 

OC 


/006F 
/OOOl 


QUOTE 
END CHECK 


o 


0073 4820 


* 
DEV 


BSC 


2 






0074 7026 




MDX 


SPEC 




o 


0075 C0C6 

0076 1004 




LD 
SLA 


DSWP 
4 


LOAD TENS DIGIT 




0077 6AC4 




STX 


2 DSWP 




o 


0078 E8C3 

0079 1888 


# 


OR 
SRT 


DSWP 
8 


OR IN UNITS DIGIT 
SAVE IN Q REG 


o : 


007A COCO 
007B F0F6 


OUT 


LD 
EOR 


STG 

ONE 


ODD AND EVEN CHECK 




007C DOBE 




STO 


STG 




o 


007D 4804 
007E 7003 




BSC 
MDX 


E 

HERE 


WHICH PASS 
* FIRST 


o 


00 7F 1090 

0080 037F 

0081 73FF 




SLT 
STO 
MDX 


16 
3 /7F 

3 -1 


* SECOND 

STORE 2 CHAR. IN PRT ARE 




0082 71FF 


HERE 


MOX 


1 -1 




o 


0083 7009 

0084 6128 




MDX 
LDX 


CONT 
1 40 


CONTINUE TO CONVERT 
WORD COUNT 


o 


- 




- 


- 


- 


DATE 04N0V66 15MAY67 


01DEC67 


03JUL68 


"* 


o EC 


NO. 415233 411731 


411905 


411944 




o 


* 










© 




- 
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DATE 
EC NO. 



0085- 
0086 
0087 
0088 
0089 
008A 
0088 
008C 
008D 
008F 

008 F 
0090 
0091 
0092 
0094 

009 5 
0096 
0097 
0098 
0099 
009A 

009B 
009C 
009 D 
009E 
009F 



















00 






























00 



69 50 
0881 
40 CO 
408F 
08AC 
ROBO 
637F 
6150 

C50000AF 
6203 
12C0 
6AAA 
1200 
6200 
4818 
7005 
7201 
1001 
4802 
7009 

70 FB 

62E1 
C273 
1884 
1004 
F50000AF 



00A1 00 4C1800A9 
00A3 1084 



00A4 
00A5 



7201 
70F6 



00A6 1010 
00A7 1088 
CQAS 7001 



00A9 
OOAA 



C273 
1884 



00A8 00 4C18007A 
OOAD 1084 



OOAE 
OOAF 



008 

0080 

0081 

00B2 

00B3 

00B4 

00B5 

00B6 

00B7 

00B8 00 

OOBA 00 

OOBC 00 

OOBE 

OOCO 

00C1 



00 



00 



7201 
70F9 



0000 

OOBO 

0600 

0000 

0001 

0000 

OOOl 

1000 

3000 

650070D7 

60000035 

650070 39 

60000004 

C8EF 

OC0000 36 



GET 



CONT 



00C3 00 C4000037 
00C5 E8F0 
00C6 00 04000037 
00C8 00 C4000069 



LOOP 



* 
SPEC 

LOOK 



TENS 



RAREA 

CEONR 

CEONP 

AREA1 
AREA2 
SETUP 



STX 

XIO 
BSI 
BSI 
XIO 
BSI 
LDX 
LDX 
LO 
-LDX 
SLCA 
STX 
SLA 
LDX 
BSC 
MDX 
MOX 
SLA 
BSC 
MDX 
MDX 

LOX 

LD 

SRT 

SLA 

E0<, 

BSC 

SIT 

MDX 

MOX 

SLA 
SLT 
MDX 

LO 

SRT 

BSC 

SLT 

MOX 

MDX 



04N0V66 
415233 



15MAY67 
411731 



6SS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LDX 

STX 

LDX 

STX 

LOD 

STD 

LD 
OR 
STO 
LO 



01DEC67 
411905 



1 PAREA 
PRINT 
WORK+1 
WORK+1 
REAO 
WORK+1 

3 /7F 

1 80 

LI, RAREA-1 

2 3 

2 0- 
Z DSWP- 



Ll 

L 







+— 

SPEC 

1 

1 

C 

DEV 

LOOP 

-31 

TABLE+31 

4 

4 

RAREA-1 

TENS.+- 

4 

1 

LOOK 

16 

8 

OUT 



2 TABLE+31 
4 
L OUT.+- 
4 
2 1 - 
TENS 



REAO AREA 



RAREA 
/0600 

/OOOl 

/OOOl 
/1000 
/3000 

LI NNNN 
LI /35 
LI TTTT 
LI /04 

RAREA 
L READ 

t READ+1 

AREA1 
L READ+1 
L DSWR+1 



03JUL68 
411944 



PRINT COMMAND 

FIRST PRINTER INTERRUPT 

SET UP RETURN 

READ A CARD 



COLUMN COUNT 

GET LAST CHAR FIRST 



XR 2 EQUAL TENS DIGIT 

CLEAR XR 2 

ANY MORE DIGITS 

* NO, CHECK SPECIAL CHAR 

* YES 

HAS DIGIT BEEN SHIFTED OUT 

* YES, 60 TO OEVELOP 

* NO 



SAVE UNITS DIGIT 

ADJUST ACC 

CHAR IN READ AREA 

8CH IF SPEC CHAR FOUND 

REMOVE UNITS DIGIT 



NO ChaRACTER FOUND 

* USE BLANK. 

* AND CONTINUE 



SAVE TENS DIGIT 
BCH IF fcNO CK FOUND 
REMOVE TENS DIGIT 



READ AREA MILL BE USED 
FOR PRINT AREA 



THE FOLLOWING PROGRAM IS 
* PART OF INITIALIZING 

TURN CE MODE ON RDR 

TURN CE MODE ON PTR 
READER AREA 
PRINTER AREA 

RESTORE AUX LOADER 

SETUP BCH FROM LDR TO PGM 

CHG LOCATION /36 
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PROG 10 
PAGE 



08C9-* 



OOCA 


E8EB 


OR 




AREA1 


OOCB 00 


04000069 


STO 


L 


OSWR+1 


OOCO 00 


C40000B3 


LO 


L 


CEONR+1 


OOCF 


E8E6 


OR 




AREA1 


0000 00 


040000B3 


STO 


L 


CEONR+1 


0002 00 


C400006F 


LO 


L 


CEOFR+1 


00D4 


E8E1 


OR 




AREA1 


0005 00 


D400006F 


STO 


L 


CEOFR+1 


0007 00 


C400003D 


LO 


L 


-OSWP+1 


00D9 


E8DD 


OR 




AREA2 


OODA 00 


D400003D 


STO 


L 


: OSWP+1 


OOOC 00 


C40000B5 


LO 


L 


CEONP+1 


OODE 


E8D8 


OR 




AREA2 


OODF 00 


D40000B5 


STO 


L 


CEONP+1 


00E1 00 


C4000061 


LD 


L 


CEOFP+1 


00E3 


E803 


OR 




AREA2 


00E4 00 


04000061 


STO 


L 


CEOFP+1 


00E6 00 


C4000039 


LO 


L 


PRINT+1 


00E8 


E8CE 


OR 




AREA2 


00 E9 00 


04000039 


STO 

* 

XIO 


L 


PRINT+1 


OOEB 


08C6 




CEONR 


OOEC 


08C7 


XIO 




CEONP 


OOED 00 


4C0003E 


BSC 


L 


RETUR 


0006 




PAREA EQU 




214 



OOOD 
7007 
0813 
7039 



o 


- 


OOFO OOEE 


END 




o 




. 






%iisS 






- 




o 




- 






o 




• 






c 










o 




- 






o 










© 


. 


' 




""- 


o 




- 






o 


- - 


" 


- 


. 


o 


- 


. 






o 
o 


DATE 
EC NO. 


04N0V66 15MAY67 
415233 411731 


01DEC67 
411905 


03JUL68 
411944 


© 










© 




* 






4~k 











RETURN TO PROGRAM 



* 

QQQQ EQU /O GO TO LOAOER AT /D 
NNNN EQU /70D7 FOR CARD LOAOER AT /35 
WWWW EQU /0813 SET IN LOADER AT /04 
TTTT EQU /7000+RETUR-/4-1 THIS IS EQUAL TO 
* THE BRANCH FROM THE LOADER 

TO RETUR IN THIS PROGRAM. 

END CARD NEVER USED 
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6.7 



PUNCH I PL PAPER TAPE - PAPER TAPE 

1. PROGRAM DESCRIPTION 

THIS PROGRAM MAY BE RELOCATED AT ANY EVEN ADDRESS. AT WAIT 1 
IB REGISTER - 3001) SET THE DESIRED STARTING ADDRESS OF THE DATA 
ENTRY SWITCHES, PRESS START. DELETE HOLES WILL BE PUNCHED. THEN 
IPL FORMAT WILL CONTINUE UNTIL THE END ADDRESS IS REACHED. BIT 
ON IS AN INDICATION OF AN END ADDRESS. AT WAIT 2, THE PROGRAM 
WILL BE COMPLETED AND IF ANOTHER TAPE IS DESIRED, SET THE START1N 
ADDRESS, PRESS START. _ . y- „- ..--"« -_'- 

2. OPERATING PROCEDURE . - 
1. LOAD PAPER TAPE READER AND MAKE READY. 

SET 'CHECK STOP' SWITCH ON. TO LOAO RELOCATABLE SEE 3.1. 



2. 
3. 

4. 



PRESS 'RESET' AND 'PROGRAM LOAD' CONSOLE BUTTONS. THE eROGRAM 
WILL LOAD AND STOP AT WAIT 1. 

SET THE DATA ENTRY SWITCHES TO THE STARTING ADDRESS AND PRESS 
START. 



5. AFTER SETTING THE ENDING ADDRESS AND THE DATA ENTRY SWITCHES, 
PUT BIT ON TO INDICATE AN ENDING ADDRESS. 



J "--"*"*"'1 a "frr1i-ftni'm]?-'~r- "Hint 



6. WAIT 2 INDICATES THE TAPE IS PUNCHED. 

7. WAIT 6 INDICATES THAT THE ERROR BIT ON THE DSW IS ON. 
STEP 4 FOR RESTART. 



GO TO 



SERVICE HINTS 

1. . ANY PORTION OF MEMORY HAY BE DUMPED ON TAPE, BUT IT MUST BE 
. IPL-ED IN THE SAME PLACE TO RUN UNLESS IT IS A RELOCATABLE 

PROGRAM AS IS THIS PROGRAM. 

2. IF A SMALL PROGRAM HAS BEEN BIT SWITCHED INTO MEMORY, IT CAN 
BE PUNCHED OUT AND PLACED IN AT A LATER DATE. 

3. THIS PROGRAM MAY BE LEFT IN CORE AS IT DOES NOT INTERFERE 
WITH ANOTHER PROGRAM. BY SETTING THE I COUNTER TO THE 
STARTING ADDRESS AND PRES-SING START, YOU WILL GO TO WAIT 1. 
IT MASKS ALL INTERRUPT LEVELS. 



DATE 
EC NO. 



04N0V66 
415233 



15MAY67 
411731 



010EC67 
411905 



03JUL68 
411944 



PROG ID 
PAGE 



08C9-* 





o 

o 
o 

o 

xJ 

o 
o 

o 

o 

o 
o 
o 
o 

o 
o 
o 

r\ 

%j 

o 

o 
o 
o 

o 
o 
o 
o 
c 
o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CE UTILITY PROGRAMS 



*** PUNCH IPL PAPER TAPE *** 



PART NO. 2242274 
PAGE 9A 



DATE 
EC NO. 









ABS 






02BC 






ORG 







0000 


7009 


SENSE MDX 


START 




0001 


1F01 




DC 


/1F01 


SENSE DSW IOCC 


0002 


0009 


PUNCH DC 


OUT 


OUTPUT AREA 


0003 -0 


1900 




DC 


/1900 


PUNCH IOCC 


0004 


FFFF 


MASK 


OC 


/FFFF 


MASK COMMAND 


0005 


0400 




DC 


/0400 


MASK IOCC 


0006 


0000 


SWTCH OC 


/OOOO 


STARTING ADRS 


0007 


0740 




DC 


/0740 


SENSE DES IOCC 


0008 


7FFF 


STOP 


DC 


/7FFF 


STOP ADDRESS 


0009 


0000 


OUT 


DC 




OUTPUT CHARACTER 


OOOA 


08F9 


start' xio 


MASK 


MASK INTERRUPTS 


OOOB 


6801 




STX 


RELOC+1 




OOOC 00 65000000 


RELDC LDX 


LI *-* 


LOAO 1 COUNT 


OOOE 


71FD 




MDX 


1 OUT-RELDC 


COMPUTE OUTPUT ADRS 


OOOF 


69F2 




STX 


1 PUNCH 


STORE IN IOCC 


0010 


3001 




WAIT 


1 


SET DATA ENTRY SWITCHES 


0011 


08F4 


READ 


XIO 


SWTCH 


SENSE - DATA ENTRY SWS 


0012 


4828 




BSC 


+Z 




0013 


70FD 




MDX 


READ 


ASSURE BIT ZERO OFF 


0014 


OOOA 


£ 


STO 


ADR+1 




0015 00 


65007FFF 




LOX 


LI /7FFF 




0017 


69F1 




STX 


1 OUT 


SET DELETE PUNCHES 


0018 


69EF 




STX 


1 STOP 




0019 


6114 




LDX 


1 20 


NUMBER OF DELETE HOLES 


001A 


4025 


OELTE BSI 


PCH+l 


USE PUNCH ROUTINE 


001B 


71FF 




MDX 


1 -1 




001C 


70FD 


$ 


MDX 


DELETE 




001 D 


6104 


WORD 


LOX 


1 4 


PUNCH IPL MODE 


001E 00 
0020 


66000000 
C2Q0 


ADR 


LOX 
LD 


L2 *-* 
2 


PUNCHING ADDRESS 
FETCH WORD TO PUNCH 


0021 


7201 




MDX 


2 1 


UPDATE PUNCH ADRS 


0022 


6AFC 


# 


STX 


2 AOR+1 




0023 


18CC 


CHAR 


RTE 


12 


GET THE NEXT CHAR 


0024 


1008 




SLA 


8 




0025 


D0E3 




STO 


OUT 


STORE IN OUTPUT 


0026 


4019 




BSI 


PCH+l 


USEPUNCri ROUTINE 


0027 


1090 




SLT 


16 




0028 


71FF 




MDX 


1 -1 


SKIP IF WORD DONE 


0029 


70 F9 




MDX 


CHAR 


FETCH NEXT CHARACTER 


002A 


080 B 




XIO 


SWTCH 


SENSE - DATA ENTRY SWS 


002B 
002C 


4828 

oooa 




BSC 
STO 


+Z 
STOP 


IS THIS A STOP ADDRESS 
* YES 


002D 


CODA 




LO 


STOP 


* NO 


0026 
002 F 


1001 
1801 


TERM 


SLA 
SRA 


1 
1 


ALSO USED AS TERM BIT 


0030 


90EE 




S 


ADR+1 




0031 


4810 




BSC 


- 


HAS STOP ADR BEEN REACHEI 


0032 


70EA 


* 


MDX 


WORD 


* NO 


0033 


COFA 


LD 


TERM 


* YES 


0034 

0035 


D0D4 
6 10 A 




STO 
LOX 


OUT 
1 10 


SET TERMINATOR BIT 


0036 

0037 


4009 
1010 


END 


BSI 
SLA 


PCH+l 
16 


USE PUNCH ROUTINE 


0038 


DODO 




STO 


OUT 


SET BLANKS 


0039 


71FF 




MDX 


1 -1 




003A 


70 FB 




MDX 


END 




0O3B 
003C 


3002 
7004 




WAIT 
MDX 


2 

READ 


TAPE FINISHED 



04N0V66 
415233 



15MAY67 
411731 



01DEC67 
411905 



03JUL68 
411944 



PROG 10 
PAGE 



08C9-* 
9A 



't 



M-rmmS^im 



o 

o 

© 

o 

o 

o 
o 
o 
o 
o 

G 



-^" J -'--»" J "'~Trr1MT%lif" 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CE UTILITY PROGRAMS 



003D 


3006 


ERR 


WAIT 


6 


ERROR FOUND IN DSW 


003E 


70D2 


* 


MDX 


READ 


PUNCH ROUTINE 


003F 00 


4C0OO0OO 


PCH 


8SC 


L *-* 


RETURN TO USER 


0041 


08 BE 


CK 


XIO 


SENSE 


SENSE DEVICE STATUS 


0042 


1002 




SLA 


2 




0043 


48 28 




BSC 


+Z 


ANY PUNCH PARITY 


0044 


70F8 




MDX 


ERR 


* YES 


0045 


1005 




SLA 


5 


* NO 


0046 


4820 




BSC 


Z 


IS PUNCH READY 


0047 


70 F9 




MDX 


CK 


* NO 


0048 


0889 




XIO 


PUNCH 


* YESr PCH ONE FRAME 


0049 


70 F5 




MDX 


PCH 





004A 



0000 



END 



o 












o 
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DATE 
EC NO. 


04N0V66 
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15MAY67 
411731 
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411905 


03JUL68 
411944 
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6.8 1053 DUMP - 1 CARD/PAPER TAPE 

1. PROGRAM DESCRIPTION 

THIS PROGRAM MILL BEGIN A CORE DUMP AT LOCATION /0028 UNLESS XR2 
HAS BEEN SET TO ANOTHER VALUE. THE CORE STORAGE ADDRESS FOLLOWED 
BY 8 LOCATIONS MILL BE ON ONE LINE. LOCATION /0039 IS DESTROYED 
THE PROGRAM. 

2. OPERATING PROCEDURES 

1. PLACE THE SINGLE IPL CARD IN THE 1442 HOPPER. PRESS THE 
1442 START BUTTON ONCE TO READ THE CARD IN AND ONCE TO 
BRING UP READY. FOR PAPER TAPE INPUT, PLACE THE DELETE 
HOLES SECTION OF THE PAPER TAPE OVER THE READ STATION. 

2. SET CHECK STOP SWITCH ON. 

3. PRESS RESET AND PROGRAM LOAD CONSOLE BUTTONS. 







*** 1053 OUMP *** 










ABS 






02 BC 






ORG 







0000 


62 28 


ADR 


LDX 


2 /28 


SET STARTING ADDRESS 


0001 


6360 


LINE 


LDX 


3 96 


SET 17 MORDS PER LINE 


0002 


6AFD 




STX 


2 ADR 




0003 


72FF 




MDX 


2 -1 




0004 


C8F8 




LDD 


ADR 


FETCH THE LINE ADDRESS 


0005 


7019 




MDX 


GO 


GO PRINT THE ADDRESS 


0006 


E18A 


TABLE 


DC 


/E18A 


1 


0007 


EB79 




DC 


/EB79 


2 3 


0008 


F784 




DC 


/F784 


4 5 


O009 


E773 




DC 


/E773 


6 7 


OOOA 


F178 




DC 


/F178 


8 9 


OOOB 


9E94 




DC 


/9E94 


A B 


OOOC 


8E9F 




DC 


/8E9F 


C D 


■OOOD 


9A8E 


* 


DC 


/9A8E 


E F 


OOOE 


1083 


CHAR 


SLT 


3 


BRING IN THREE BITS 


OOOF 


8011 




A 


FETCH 


CONVERT TO 1053 CODE 


0010 


DOOO 




STO 


• 




0011 


80 F4. 




A 


TABLE 


THIS ADORESS MODIFIED 


0012 


1081 




SLT 


1 




0013 


4804 




BSC 


E 


SKIP IF LHS CHAR 


0014 


1008 


SAVE 


SLA 


8 




0015 


9010 




S 


PRINT 


CORRECT THE OUTPUT CODE 


0016 


D022 


SP 


STO 


ADR+/39 


SAVE OUTPUT CHAR 


0017 


080E 




XIO 


PRINT 


PRINT THE CHARACTER 


0018 


080B 


CK 


xio 


SENSE-1 


IDLE TILL PRINTED 


0019 


4820 




BSC 


Z 


SKIP IF READY 


001A 


70FD 




MDX 


CK 




OOIB 


71 FF 




MDX 


1 -1 


SKIP IF MORD FINISHED 


001C 


70F1 




MDX 


CHAR 




0010 


7201 




MDX 


2 1 


UPDATE MORD POINTER 


00 IE 


C200 




LD 


2 


FETCH NEXT WORD 


001F 


18D0 


GO 


RTE 


16 




0020 


6105 




LDX 


1 5 




0021 


80 F4 


FETCH 


A 


SP 


SPACE BEFORE NEXT WORD 


0022 


73F6 




MDX 


3 -10 


SKIP IF DONE WITH LINE 


0023 


70 FO 




MDX 


SAVE 




0024 


70DC 




MDX 


LINE 




0025 


0F03 


SENSE 


DC 


/0F03 


SENSE DSW - RESET 


0026 


0039 


PRINT 


DC 


A0R+/39 


PRINT COMMAND 


0027 


0902 




DC 


/0902 




0028 


0000 




END 
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6.9 10/20 MIL SEEK COMPARE FOR THE 2310A 



<3 



READ IN 
REST OF 
CARDS 



I 




CHANGE 
MODE 



WAIT 
3000 SET 
AREA 
CODE 



STORE 

AREA 

CODE 



I 



START WITH 
20WIL. 

MODE 



I 



6 
1 



SENSE SW. 



■ AREA CODE 



SET UP 

SELECTED 

MODE 



GO HOME 



1 



GO TO 
TRACK 200 



GO TO 
TRACK TWO 



I 



READ 

SECTOR 

ZERO 



READ 

SECTOR 

ZERO 



••**#- «■! 



WAIT 
30 Fl 
HOT 
TRACK * 



LOAO 

REG. 
TO /00lt3 
PUSH START 



I 



WRITE 
ADDR. ONLY 
ON SECTOR 




§ 



OATE C4N0V66 I5MAY67 010EC67 03JUL68 
EC, 415233 1)11731 '♦11905 4U9<t4 



DR. - /20 
DR. I - AO 
DR. 2 - A8 



WAIT 

30F2 

NOT 

TRACK 

200 




LOAO 
I REG. 
TO /0046 

PUSH START 



WRITE 
ADDR. ONLY 
ON SECTOR 




6 



P/N 221)2274 
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1. PROGRAM DESCRIPTION W4LL MOVE CARRIAGE 
BETWEEN TRACKS TWO AND 200 AND COMPARE 
SECTOR ZERO ADDRESS AT THOSE TWO TRACKS. 
THE SEEK CAN BE DONE IN 10 OR 20 MIL 
MODE. THIS PROGRAM WAS DESIGNED TO BE 
USED WITH THE ACCESS ADJUSTMENT PROCEDURE - 
IN THE SOS MAINTENANCE MANUAL. 

2. OPERATING PROCEDURE 

A. PLACE THREE CARDS PLUS BUNK CARD IN 
;.£-_ THE Ml HOPPER. 

». SET "CHECK STOP" SWITCH ON 

C. PRESS "RESET'ANO "PROGRAM LOAO" CONSOLE 
BUTTONS. PROGRAM WILL LOAO AND STOP AT 
WAIT 0. 

- 0. SET SENSE SWITCHES TO SELECT THE DRIVE 
TO BE RUN. 

E. PRESS CONSOLE "START" BUTTON. 

F. PROGRAM WILL SEEK BETWEEN CYLINDERS 
TWO AND 200 IN 20 MIL MODE 

G. STQP-RESET-AND START TO CHANGE MODES 

3. SERVICE HINTS 

A; 00 NOT LOAD I REG TO /00«t3 OR /00<l6 
UNTIL WAIT 30F1 OR 30F2 HAS BEEN 
ENCOUNTERED. 

•. WEN USING THE ABOVE REWRITE OPTION THE 
. ORIGINAL SECTOR DATA WILL BE DESTROYED. 
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DATE 
EC NO. 



6.9 10/20 MIL SEEK AOJ 



0280 

0000 O 

000 1 

0002 

0003 

0004 



0821 
0824 
4804 
70FD 
081F 



0005 3000 

0006 C849 

0007 D8F8 

0008 6110 

0009 0848 
OOOA 00 C5000053 
OOOC E857 
0000 00 05000053 
OOOF 71FE 

0010 70F9 



0011 

0012 



084A 
4036 



0013 084A 

0014 O 4034 

0015 O 7021 

0016 C04E 

0017 00 4C200020 

0019 00 650000C6 
00 IB 6944 - 
001C 6945 
0010 6101 
001E 6201 
001F 7007 

0020 6101 

0021 693E 



0022 

0023 

0024 

0025 

0026 

0027 



004A 
1601 
0022 
1601 
0000 
1701 



0028 

0022 693F 

0023 00 650000C6 
0025 00 660000C6 

0027 0838 

0028 4020 

0029 71FF 
002 A 70 FC 



002B 
002C 
002D 
002E 



082E 
401C 
CO 3D 

F03A 



002F 00 4C180033 

0031 30F2 

0032 O 70DE 



0033 

0034 



08 2E 
4014 



04N0V66 
415233 



15MAY67 
411731 



START 

BACK1 



AGAN1 



* 
SKHME 



* 
ONWDO 



0NWD1 

* 
R01 

RD2 

RDDSW 



ABS 
ORG 

XIO 
XIO 
BSC 
MOX 
XIO 

DC 

LDO 

STD 

LDX 

XIO 

LD 

OR 

STO 

MDX 

MOX 

XIO 
BS1 

XIO 
BSI 
MOX 

LD 

BSC 

LDX 

STX 

STX 

LDX 

LDX 

MDX 

LDX 

STX 

DC 
DC 
DC 
DC 
DC 
DC 



RD1 OR NOP IN P.T. 
RODSW OR NOP IN P.T. 
E OR NOP IN P.T. 
BACK! OR NOP IN P.T. 
RD2 OR NOP IN P.T. 



■v fc. «•£§-» 



/3000 
RESRT 
START 

1 16 

RDSPS 
LI SNDSW-1 

AREA 
LI SNDSW-1 
1 -2 

AGAN1 

HOME 
TEST 

TRK2 
TEST 
CHCK2 

TOGGL 
L ONW01.Z 
LI 198 



* 
CMND1 



* 
CMN02 



ORG 
STX 
LDX 

LDX 

XIO 

esr 

MDX 
MDX 

XIO 

BSI 

LD 

EQR 

BSC 

DC 

MOX 

XIO 
BSI 



TWHND 

TWO 

1 

1 

CMN01 

1 

TWHND 

74 

/1601 

34 

/1601 



/170i 

RD1 

1 TWO 

LI 198 

L2 198 

TWHND 
TEST 
1 -1 
CMN01 

READ 
TEST 
INPUTE1 
0UT20S1 
L CMND2,6- 
/30F2 
SKHME 

TWO 
TEST 



01DEC67 
411905 



03 JUL 6 8 
411944 



** SET AREA CODE 1M SEMSE 

* SNITCHES 

* 
»* 

* * 

* * SET AREA CODE 

* * 
*• 

* 

* GO HOME 



*» GO TO TRACK TWO 



** JUMP IF 10 MIL MQBE 
« * 

* * 

* * 

* * 

* * SET FOR PROPER 

* » MODE 

* * 

• 
** 

* * OVERLAID BY 2ND CARD 

* * NOT USED IN P.T. 

** 

* 



* » PART OF MODE SET 

** 

* 



** GO TO TRACK 200 

'** 

* 

* 

* * 

* * READ AND COMPARE 

* * ADDR. AT TRACK 200 
** TRACK OID NOT CQMWMIE 



*» GO TO TRACK TWO 
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DATE 
EC NO. 



0035 


72FF 


0036 


70FC 


003? 


0822 


0038 


4010 


0039 


C03I 


003A 


F02C 


003B 00 


4C180016 


003D 


30 Fl 



003E . 7002 

003F C025 

0040 F025 

0041 0023 

0042 70CE 

0043 0812 

0044 4004 

0045 70CB 

0046 0811 

0047 4001 

0048 70 C8 



0049 
004A 
004B 
004C 
004D 



0000 
0809 
1800 
4804 
70 FC 



004E 00 4C800049 



0050 

0050 

Q052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

005A 

005 B 

00 5C 

0050 

005E 

005 F 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

00 6 A 

006C 



0000 
00 4C00003F 
0064 
0260 
0000 
0701 
0066 
0500 
0068 
0500 
006A 
0600 
OOCA 
0404 
0002 
0400 
0000 
0400 
0000 
0404 
0000 
0000 
0001 
0010 
0001 
0640 
0002 

0000 



* 
CHCK2 



RSTRT 



* 
WTTWO 



WTHND 



* 

TEST 

AGAN2 



MOX 
MDX 

XI 

BSI 

LO 

EOR 

BSC 

DC 

MDX 

LO 
EOR 
STO 
MOX 

XIO 
BSI 
MOX 

XIO 
BSI 
MOX 

OC 
XIO 
SRA 
BSC 

MDX 
BSC 



2 -1 

CMN02 

READ 
TEST 
INPUTSi 
0UT02E1 
L ONW00.6- 
/30F1 
SKHME 

TOGGL 
OUT02 
TOGGL 

SKHME 

HRT02 

TEST 

SKHME 

MRT20 

TEST 

SKHHE 

*-* 
SNOSW 
13 
E 

AGAN2 
I TEST 



* 



RESRT 
RDSPS 

SNOSW 

MRT02 

MRT20 

READ 

HOME 

TRK2 

TWHND 

TWO 

AREA 

TOGGL 

0UT02 

0UT20 

INPUT 

* 



BSS 

BSC 

OC 

DC 

OC 

DC 

DC 

OC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

OC 

DC 

OC 

END 





RSTRT 

AREA 

/0260 



/0701 

OUT02 

/0500 

OUT20 

/0500 

INPUT 

/0600 

202 

/0404 

2 

/0400 

*-» 

/0400 

»-* 

/0404 

*-* 

«-* 

1 

/0010 

I 

/0640 
2 

START 



* * READ AND COMPARE 

* * ADDRESS AT TRACK TWO 
** TRACK 010 NOT COMPARE 



** CHANGE MODE 
*» 



** WRITE ADDRESS 
* AT TRACK TWO 



** WRITE ADDRESS 

* AT TRACK 200 

* * 

* * TEST FOR 

* * FILE READY 

* * 

* 



IOCC READ S/P SWITCHES 

I0CC SENSE OSW-RESET 

IOCC WRITE TRACK TWO 

IOCC WRITE TRACK 200 

IOCC READ ADDRESS 

IOCC SEEK HOME 

IOCC-GO TO TRACK TWO 

IOCC-OUT TO twohunorIo 

I0CC-8ACK TO TRACK TWO 
CURRENT AREA CODE 
MODE TOGGLE 
WRITE TRACK TWO TABLE 

WRITE TRACK 200 TABLE 

INPUT AREA 



LAST PAGE 



04N0V66 
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01DEC67 
411905 
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411944 
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PAGE 

1. PURPOSE. . 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

2.2 EOUIPHENT REQUIREMENTS 

3. OPERATING PROCEDURE 

3.1 LOADING PROGRAM 

3.2 PROGRAM OPERATION 

3.3 WAITS 

4. PRINTOUTS 

4.1 NORMAL SEQUENCE OF PRINTOUTS 

4.2 ERROR PRINTOUTS 

5. COMMENTS ........ 

9 # 2 

6. APPENDIX INONEI 
1. PURPOSE 

Ii!!L£? RE TEST TESTS THE CORES, REAO/WRITE CIRCUITRY. AND THE CORP 
ADDRESSING CIRCUITRY OF THE 1801 AND 1802 PROCESSOR-CON?*"^ 

2 REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

FUNCTION TESt! C,AGN0ST,C L0 * DER " UST BE «SED TO LOAO THE CORE 

2.2 EQUIPMENT REQUIREMENTS 

THE FOLLOWING EQUIPMENT IS REQUIRED, 

A. 1801 OR 1802 PROCESSOR-CONTROLLER. 

B. 1«<,2 CARD READ-PUNCH, OR 1054 PAPER TAPE READER. 

C. EITHER A 1053-1616, OR 1443 PRINTER. 

3; OPERATING PROCEDURE 

3.1 PROGRAM LOAOING 

THE CORE FUNCTION TESTS ARE LOAOEO BY THE 1800 BASIC LOADER SEP 
ZSIdI 1 NG PROCEDu!;e* DER D0CUMENT * U0N F0R THE DESCRIPTION OF THE 

3.2 PROGRAM OPERATION 

THE CORE FUNCTION TESTS CONSIST OF PROGRAMS, WHICH ARE 
EXECUTED IN THE SEQUENCE — 

1. HI CORE (TEST CORE LOCATIONS ABOVE 07FF) THE HIGH CORE TEST IS 
LOAOED INTO STORAGE STARTING AT 012C. 

2. 0-9 CORE (TESTS THREE HIGHEST CORE LOCATIONS AND LOCATIONS 
0000-0009) THE 0-9 CORE TEST IS LOAOED INTO STORAGE STARTING AT 012C 

3. LOW CORE ITEST CORE LOCATIONS 0009-07FFJ THE LOW CORE TEST IS 
LOADED INTO THE HIGHEST 2K OF STORAGE. 

EACH PROGRAM IS LOADED INTO CORE AND EXECUTED BEFORE THE NEXT 
PROGRAM IS LOAOEO. BEFORE THE EXECUTION OF EACH PROGRAM, A 
WAIT OCCURS TO ALLOW ANY REQUIRED SWITCHES TO BE SET. AFTER THE 
EXECUTION OF EACH PROGRAM A WAIT OCCURS TO ALLOW REQUIRED SWITCHES 
TO BE SET PRIOR TO LOAOING THE NEXT PROGRAM. *' 

WHEN A WAIT OCCURS REFER TO THE WAIT TABLES IN THE LISTING TO 
DETERMINE THE ACTION REQUIRED. CSEC. 3.31 ■.•*««■ TO 
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IT IS POSSIBLE TO SEPARATE THE OBJECT DECK INTO THREE 

INDEPENDENT DECKS SUCH THAT EACH 

PROGRAM CAN BE LOAOED ANO EXECUTED INDEPENDENTLY. THIS 

PROVIDES THE ABILITY, TO LOAO ANO EXECUTE ANY 

CORE PROGRAM WITHOUT PREVIOUSLY EXECUTING ANOTHER CORE 

PROGRAM. IN ORDER TO RUN THE THREE PROGRAMS IN 

SEQUENCE, THEY MUST BE IN THE FOLLOWING ORDER- HIGH CORE* 

0-9 CORE, AND LOW CORE. 

COLUMNS 79 AND 80 OF THE OBJECT DECK CONTAIN A HEXADECIMAL 
SEQUENCE NUMBER. THE START OF EACH PROGRAM OBJECT DECK 
BEGINS WITH 00 (PUNCHES IN ROW ZERO OF COLUMNS 79 *«0 801. 
BY SEARCHING FOR THESE CARDS, TFE ORIGINAL DECK CAN BE 
DIVIDED INTO THREE PARTS. THE FIRST PART IS THE HIGH CORE 
PROGRAM, THE SECOND PART IS THE 0-9 CORE PROGRAM, ANO 
THE THIRD PART IS THE LOW CORE PROGRAM. EACH OF THESE 
DECKS CAN BE LOADED WITH THE BASIC LOADER. 

TABLE 1. PROGRAM OPTIONS 



DATA ENTRY 
SWITCHES 



HIGH 
CORE 



0-9 
CORE 



LOW 
CORE 



DESCRIPTION 



SH 14 ON 


X 


X 


X 


SH 13 ON 


X 


X 


X 


SW 11 ON 


X 


X 


X 


SM 10 ON 


X 


X 


X 


SM 9 ON 


X 


X 


X 


SH 9 OFF 


X 


X 


X 


SM 8 ON 


X 


X 


X 



BYPASS ERROR WAIT 

SUPRESS ALL PRINTOUTS 

LOOP PROGRAM 

LOOP ROUTINE 

PRINTOUTS ON 1443 

PRINTOUTS ON 1616 

LOOP ON ADDRESS PRESENTLY BEING TESTED, 
(USED FOR SCOPING). 



3.3 



PROGRAM WAITS 



ALL WAITS ARE DESCRIBED IN THE WAIT SECTION AT THE BEGINNING OF 
THE PROGRAM LISTING ANO ARE IN THE FOLLOWING FORMAT. 



B-REG 

300F 



I-REG 

010E„ 



DC 



WAIT 
/300F*1 



DESCRIPTION OF WAIT 



IN THIS AREA WILL BE A DESCRIPTION 
OF THE WAIT. 



4. PRINTOUTS 

4.1 NORMAL SEQUENCE OF PRINTOUTS 

START HIGH CORE TEST 
END HIGH CORE TEST 
START THRU 9 CORE TEST 
END THRU 9 CORE TEST 
START LOW CORE TEST 
END LOW CORE TEST 

ERROR PRINTOUTS 

THE FOLLOWING ERROR PRINTOUTS APPLY ONLY TO HIGH-CORE 
AND LOW-CORE TESTS* 



4.2 
4.2.1 
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ZlkWS 
2 



A. ER I 

B. ER 2 



ER 3 



0. 
E. 



ER 
ER 



ERROR DETECTEO IN THE READ/WRITE-IN 

MEMORY AND ADCRESSING TEST (RSABI). 

ERROR OETECTEO IN THE ZERO-READ/WRITE 

SECTION OF BIT-ISOLATION TEST (RSABRI. 

ERROR OETECTEO IN THE ONE-REAO/WRITE 

SECTION OF BIT-ISOLATION TEST (RSABR). 

ERROR OETECTEO IN WORST-CASE-PATTERH TEST (RSACJI 
IN STORAGE-PROTECT/ 
PROTECTED-APEA ONES TEST (RSACU). 

- ERROR INTERRUPT OCCURED SHOMINC * 
STORAGE PROTECT VIOLATION. 

- ERROR INTERRUPT OCCURED SHOWING * 
PARITY ERROR. 

I. ERROR INT INV OP CODE- ERROR INTERRUPT OCCURED SHOMINC A* 

OPERATION CODE VIOLATION. 
ERROR DETECTED IN STORAGE-PROTECT/ UNPROTECT AND 
CLEAR-MEMORY-OF-ONES TEST (RSACQ-5). 



G. ERROR 



ERROR DETECTED 
WRITE-ZEROS-ON 
INT STORG PROT 



H. ERROR INT PARITY 



F. ER 6 



A. 2. 2 



f 

f 

c 

c 



r 
c 

c 
c 
c 

c 
c 

c 
t 
t 
f 



THE 0-THR0UGH-9 CORE TEST HAS ONLY ONE ERROR PRINTOUT. THE WORD 
ERROR WILL PRINTOUT. LOOK AT STORAGE ADDRESS REGISTER AND 
REGISTER WHEN THE ERROR WAIT OCCURS TO DETERMINE ERROR MO 
LOCATION IN PROGRAM WHERE FAILURE OCCURED. THE EXACT MEANING OF 
THE REGISTERS IS EXPLAINED UNDER THE ERROR WAIT SECTION OF 
THE LISTING. 

COMMENTS 

5.1 DESCRIPTION OF HIGH-CORE MEMORY TEST 

5.1.1 INITIALIZATIONS IRSOKSI 

THE INITIALIZATION ROUTINE ESTABLISHES THE BOOTSTRAP BRANCH, 
DETERMINES MACHINE TYPE. DETERMINES MEMORY SIZE, AND ESTABLISHES 
AREA CODES. 

5.1.2 REAO/WRITE-IN-HEMORY AND AOORESSING TEST (RSABI} 

THE READ/WRITE-IN-MEMORY ANO ADDRESSING TEST 
LOADS EACH CORE POSITION WITH ITS OWN ADDRESS. THE TEST 
THEN COMPARES THE CONTENTS OF EACH CORE POSITION WITH THE 
ADDRESS INTERROGATED TO ASSURE THAT THE CORES CAN BE 
CORRECTLY ADORESSED. AN ERROR OCCURRING DURING THIS 
ROUTINE WILL CAUSE AN ERR 1 PRINTOUT. 

5.1.3 BIT-ISOLATION TEST (RSABRJ 

THE BIT-ISOLATION TEST IS IN TWO PARTS. THE FIRST FART 
CHECKS THE ABILITY TO READ AND WRITE ZEROS IN MEMORY. 
A FAILURE TO REAO OR WRITE ZEROS WILL RESULT IN AN ERROR 
WAIT. THE SECOND PART IS A BIT-ISOLATION TEST. THIS 
TEST DETERMINES THE ABILITY OF MEMORY TO DISTINGUISH EACH 
ONE OF THE 16 BITS IN A STORED WORD. THE PATTERN REAO 
INTO MEMORY HAS FIFTEEN BITS ANO A S'NGLE 1 BIT IN EACH 
WORD. FIRST THE i BIT IS PLACED IN POSITION 0. THE BIT IS 
THEN MOVEO TO THE RIGHT ONE POSITION PER PASS FOR A TOTAL OF 
15 TIMES UNTIL THE ENTIRE CORE WORD HAS BEEN TESTED. ANY 
ERROR IN THE BIT ISOLATION RESULTS IN AN ERR 3 PRINTOUT. 

5.1.* WORST-CASE-PATTERN TEST (RSACJ) 

THE WORST-CASE-PATTERN TEST ESTABLISHES A WORST- 
CASE PATTERN CONSISTING OF BLOCKS OF WORDS CONTAINING 
EITHER ALL ONES OR ALL ZEROS. THIS PATTERN IS REAO ANO 
STORED INTO MEMORY AND IS THEN COMPLEMENTED AND STOREO 
AGAIN. IF ANY BITS ARE OMITTED OR ACCED, BECAUSE OF THIS 
WORST-CASE (MAXIMUM NOISE) EXERCISE, AN ERR 4 PRINTOUT 
WILL OCCUR. THE COMPLEMANT WORST CASE PATTERN IS ALSO EXECUTED. 
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5.1.5 STORAGE-PROTECT/WRITE-ZEROS-ON-PRCTECTED-AREA ONES TEST 
(RSACUI 

THE STORAGE-PROTECT TESTS ARE USED ONLY FOR 

THE 1601/1802 PROCFSSOR CONTROLLER. THIS ROUTINE PLACES 

ONES IN ALL CORES UNOER TEST ANO THEN WRITES A STORAGE-PROTECT 

BIT ON THESE AREAS. ANY SUBSEQUENT ATTEMPT TO WRITE ZEROS 

ON THESE STORAGE PROTECTED CORES SHOULD FAIL AND INITIATE AN 

ERROR INTERRUPT. ERROR INTERRUPT PRINTOUTS AND WAITS ARE 

SUPPRESSED DURING THIS ROUTINE SINCE THE STORAGE-PROTECT 

VIOLATION IS FOPfEO WHEN THE ATTEMPT TO WRITE ON A PROTECTEO 

AREA IS EXECUTE^ ANY FAILURE OF THE MEMORY TO WRITE STORAGE 

PROTECT BITS OR TO SAVE PROTECTED AREAS RESULTS IN AN ERROR 5 

PRINTOUT. 

5.1.6 STORAGE-PRO! ECT/UNPROTECT AND CLEAR-MEMORY-OF-ONES TEST 
(RSACQ-5) 

THIS TEST FIRST REMOVES STORAGE-PROTECT BITS AND ATTEMPTS TO 
WRITE INTO THE CLEARED AREA. ANY FAILURE TO CLEAR BITS OR TO 
WRITE WILL BE NOTED BY AN ERROR 6 PRINTOUT. 

5.1.7 COMMON- PROGRAM/PROGRAM-END ROUTINE (RSAOAI 

THIS ROUTINE CONTAINS THE PROGRAM-PASS COUNTER AND 

THE INSTRUCTIONS NECESSARY TO SENSE CONSOLE ENTRY SWITCH 11. 

WITH SWITCH 11 OFF, A WAIT INSTRUCTION SIGNIFIES PROGRAM 

END. 

5.1.8 ERROR TEST DESCRIPTION 

A. INTERRUPT-LEVEL ERROR TEST (RSCCAI 

THIS TEST SENSES THE ILSW FOR INTERRUPT-LEVEL ERROR ON THE 

1600 DATA ACQUISITION ANO CONTROL SYSTEM AMD PRINTS OUT A 

MESSAGE INDICATING A STORAGE-PROTECT INVALID-OPERATION CODE 

OR A PARITY ERROR. THE PROGRAM WILL THEN EXECUTE A WAIT INSTRUCTION. 

SEE THE WAIT SECTION OF THE LISTING FOR REGISTER VALUES AND WAIT 

DESCRIPTION. 

B. ERROR ROUTINE TO SERVICE NON-INTERRUPT ERRORS IRSDOOI 

THIS ROUTINE PROCESSES ANO IDENTIFIES THE ERRORS THAT ARE 
DETECTED BY THE PROGRAM'S TEST ROUTINES. AN ERROR MESSAGE 
IS PRINTED OUT ANO THEN THE ERROR WAIT IS EXECUTED. SEE THE 
WAIT SECTION OF THE LISTING FOR REGISTER VALUES AND WAIT 
DESCRIPTION. 



NOTE 

AFTER THE PROGRAM HAS COMPLETED ITS INITIALIZATION 
ON THE FIRST PASS, A BOOTSTRAP BRANCH IS 
AVAILABLE FOR RESTARTING THE PROGRAM. THIS 
BOOTSTRAP IS INITIATED BY PRESSING THE STOP, 
RESET, ANO START PUSHBUTTONS AND WILL 
RESULT IN A BRANCH TO THE START OF THE PROGRAM. 



$.1.9 SWITCHES 



A. NORMAL CONDITIONS OF SWITCHES 

ALL CONSOLE ENTRY SWITCHES SHOULD BE OFF, EACH ROUTINE IS 
EXECUTED FOUR TIMES PER EACH PROGRAM PASS, AND THE PROGRAM IS 
REPEATED THREE TIMES. THIS RESULTS IN A RUN TIME OF BETWEEN 1 
ANO 10 MINUTES DEPENDING ON CORE SPEED ANO CORE SIZE. 
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B. IMPROPER CONDITION OF SWITCHES 

IF CONSOLE ENTRY SWITCH 13 ANO 1* ARE ON ANO SWITCH 8 IS IIP* 
AN ERROR WOULD INADVERTENTLY BE BYPASSED SINCE BOTH ERROR W«M 
AND PRINTOUTS WOULD BE SUPPRESSED. TO AVO ID TH« I^MPrSpM 
COMBINATION, A UNICUE WAIT INSTRUCTION IS EXECUTED. 

*^ N nJoI!^^° IT,0N EX,STS ' CORRECT THE COWITIM 
AND DEPRESS THE START PUSHBUTTON TO INITIALIZE 
THE PROGRAM. THE WAIT DESCRIPTION IS FOUND IN THE 
WAIT SECTION OF THE LISTING. 

5.2 DESCRIPTION OF MEMORY TEST «0 THROUGH 9 CORES! 

5.2.1 INITIALIZATIONS (RSSTAI 

THE INITIALIZATIONS DETERMINE THE MACHINE TYPE. ESTABLISH TM* 
MEMORY SIZE. ANO ESTABLISH PROPER IOCC AREA-CODE m5"f!«$I 

5.2.2 L0A0-2ER0S-IN-C0RES TEST IRSR01I 

I!7Mf«! TES " THE * B,L1T * OF THE MEMORY TO READ ANO MUTE 

ALL tcKUStt 



'•*•* LOAD-ONES-IN-CORES TEST IRSR02I 



* ONES."" TESTS ™ E * B,LITY 0F ™ E " EK0RY T0 * E *° **«> "RITE AU. 
5.2.* ADDRESSING TEST IRSR03I 

Inr!J! ST * TTEHPTS Tt > P «-ACE WITHIN EACH MEMORY WORD ITS OWN 

innofcf: / HE MEM0RY ,S THEN REAU T0 A ""RE THAT PROPER 
ADDRESSING HAS TAKEN PLACE. 

5.2.5 BIT-ISOLATION TEST «RSRO*l 

THIS TEST CHECKS BIT ISOLATION BY RIPPLING A 1 BIT THROUGH 
EACH BIT POSITION WITHIN THE MEMORY WORD. AT ANY TINE 

«n« N TuI!! I ;^? ? TINE • TH£ H0RD UNDER TEST SH0U «-° CONTAIN NO 
MORE THAN ONE 1 BIT IN ANY WORD. 

5.2.6 STORAGE-PROTECT TEST IRSSPT) 

THIS TEST WRITES ZEROS IN THE MEMORY WORO 

UNDER TEST AND THEN STORAGE PROTECTS THE MEMORY WORO WITH 
i.SJS INSTRUCTION 'FORMAT - 1, IA - I). AN ATTEMPT IS THEN 
MADE TO WRITE ONES ON THIS PROTECTED AREA. THIS ATTEMPT 
SHOULD FAIL AND AN ERROR INTERRUPT WOULD ORDINARILY OCCUR. 
THIS INTERRUPT WILL NOT OCCUR, HOWEVER, SINCE INTERRUPTS ARE 
DISABLED CURING THIS ROUTINE. THE STORAGE-PROTECT BITS ARE 
THEN REMOVED ANO THE MEMORY WORO°IS READ INTO AND 
InT S E M D E^Y T CORR^UY. V T ° CLEAR ST0R " E - RR °'"T BITS ANO MAO 

5.2.7 PROGRAM-END ROUTINE tftSPER! 

THIS ROUTINE INCREMENTS THE PROGRAM PASS COUNTER ANO 
INTERROGATES CONSOLE ENTRY SWITCH 11. 

5.2.8 ERROR ROUTINE IRSEORI 

THE ERROR ROUTINE IS USED WHEN EVER AN ERROR OCCURS. 

THE ERROR ROUTINE PRINTS OUT THE ERROR MESSAGE IF 

BYPASS ERROR PRINTOUT IS NOT SPECI c IEO ANO THE WAIT 

ON ERROR IS SPECIFIED. SEE THE WAIT SECTION 

OF THE LISTING FOR REGISTER VALUES AND WAIT DESCRIP TION. I 
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THIS PART OF THE TEST DOES NOT HAVE THE BOOTSTRAP-BRANCH 
FEATURE. THE EXECUTION TIME FOR THIS PART OF THE TEST WILL BE 
LESS THAN 10 SECONDS IF NO ERRORS ARE DETECTED. 

5.2.9 NORMAL CONDITIONS OF SWITCHES 

ALL CONSOLE ENTRY SWITCHES SHOULD 6E OFF. 

5.2.10 IMPROPER CONDITION OF SWITCHES 

IF CONSOLS* ENTRY SWITCHES 13 AND 1* ARE ON AND SWITCH B IS OFF, AN 
ERROR WOULD I NAOVERTENTLY BE BYPASSED SINCE BOTH ERROR WAITS AND 
PRINTOUTS WOULO BE SUPPRESSED. TO AVOID THIS IMPROPER COMBINATION, 
A UNICUE WAIT INSTRUCTION IS EXECUTED. WHEN THIS CONDITION 
EXISTS, CORRECT THE CONDITION AND DEPRESS THE START BUTTON TO 
INITIALIZE THE PROGRAM. THE WAIT DESCRIPTION IS FOUND 
IN. THE WAIT SECTION OF THE LISTING. 

5.3 DESCRIPTION OF LOW-CORE MEMORY TEST 

5.3.1 INITIALIZATIONS CRSDKS) 

THE INITIALIZATIONS DETERMINE MACHINE TYPE AND ESTABLISH AREA COOES. 

5.3.2 REAO/WRITE-IN-MEMORY AODRESSING TEST (RSABII 

THIS TEST LOADS EACH CORE POSITION WITH ITS OWN ADDRESS ANO 
COMPARES THE CONTENTS OF EACH CORE POSITION WITH THE ADDRESS 
INTERROGATED TO ASSURE THAT THE CORES CAN BE CORRECTLY ADDRESSED. 
ANY ERROR OCCURRING DURING THIS ROUTINE WILL CAUSE AN ERR I PRINTOUT. 

5.3.3 BIT-ISOLATION TEST 

THIS TEST DETERMINES THE ABILITY OF MEMORY TO DISTINGUISH 
EACH ONE OF THE 16 BITS IN A STORED WORD. FIRST THE 1 BIT 
IS PLACEO IN POSITION ZERO. THEN, THE BIT MOVED TO THE 
RIGHT CNE POSITION PER PASS FOR A TOTAL OF 15 PASSES UNTIL 
THE ENTIRE CORE WORD HAS BEEN TESTED. 
ANY ERROR IN THE BIT ISOLATION RESULTS IN AN ERR 3 PRINTOUT. 

5.3.4 WORST-CASE-PATTERN TEST (RSACJI 

THE WORST-CASE-PATTERN TEST ESTABLISHES A WORST-CASE 
PATTERN CONSISTING OF BLOCKS OF WORDS CONTAINING EITHER ALL 
ONES OR ALL ZEROS. THIS PATTERN IS READ AND STORED INTO 
MEMORY AND IS THEN COMPLEMENTED ANO STORED AGAIN. IF 
ANY BITS ARE DROPPED OR ADDED OURING THIS WORST-CASE 
(MAXIMUM NOISE) EXERCISE, AN ERR 4 PRINTOUT WILL OCCUR. THE 
COMPLEMENT WORST CASE PATTERN IS ALSO EXECUTED. 

5.3.5 ST0RA6E-PR0TECT/WRITE-ZER0S-0N-PR0TECTED-AREA ONES TEST 
IRSACU) 

THE STORAGE-PROTECT TESTS ARE USEO ONLY FOR 
THE 1601/1802 PROCESSOR CONTROLLER. THIS ROUTINE PLACES 
ONES IN ALL CORES UNDER TEST AND THEN WRITES A STORAGE-PROTECT 
BIT ON THESE AREAS. ANY SUBSEOUENT ATTEMPT TO WRITE ZEROS 
ON THESE STORAGE-PROTECTED CORES SHOULD FAIL AND INITIATE 
AN ERROR INTERRUPT. ERROR INTERRUPT PRINTOUTS AND WAITS ARE 
SUPPRESSED OURING THIS ROUTINE SINCE THE STORAGE-PROTECT 
VIOLATION IS FORCEO WHEN THE ATTEMPT TO WRITE ON A PROTECTED 
AREA IS EXECUTED. ANY FAILURE OF THE MEMORY TO WRITE STORAGE- 
PROTECT BITS OR TO SAVE PROTECTED AREAS RESULTS IN AN ERROR 5 
PRINTOUT. 






DATE . 01 JUL66 
EC NO. 415178 
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5.3.6 STCRAGE-PROTECT/UNPROTECT AND CLEAR-HEMORV-OF ONES TEST 
(RSACO-5I 

THIS TEST FIRST REMOVES STORAGE-PROTECT BITS ANO ATTEMPTS TO 
KRITE INTO THE CLEARED AREA. ANY FAILURE TO CLEAR BITS OR TO 
WRITE WILL 8E NOTED BV AN ERROR 6 PRINTOUT. 

5.3.T COMKON-PROGRAM/PROGRAH-EHO ROUTINE (RSAOAt • 

THIS ROUTINE CONTAINS THE PROGRAM-PASS COUNTER AND INTER- 
ROGATES CONSOLE ENTRY SWITCH 11. A WAIT INSTRUCTION 
SIGNIFIES PROGRAM END. THE WAIT DESCRIPTION IS FOUND IN THE WAIT 
SECTION OF THE LISTING,! 

5.3.8 ERROR-TEST DESCRIPTION 

A. INTERRUPT-LEVEL ERROR TEST IRSCCAI 

THIS ROUTINE SENSES THE ILSW FOR INTERRUPT-LEVEL ERROR ON 
THE 1800 DATA ACQUISITION AND CONTROL SYSTEM ANO PRINTS OUT 
A MESSAGE INDICATING A STORAGE-PROTECT INVALID-OPERATION 
CODE OR PARITY ERROR. THE PROCESSOR HILL THEN EXECUTE A WAIT 
INSTRUCTION. SEE THE WAIT SECTION OF THE LISTING FOR REGISTER 
VALUES AND..WAIT DESCRIPTIONS. _ ___ ! 

B. ERROR ROUTINE TO SERVICE NON-INTERRUPT ERRORS IRSDDD) 

THIS ROUTINE PROCESSES ANO IDENTIFIES THE ERRORS THAT ARE 
DETECTED BV THE PROGRAM'S 1ESTS. AN ERROR MESSAGE IS 
PRINTED AND AN ERROR-WAIT INSTRUCTION IS EXECUTED. SEE THE 
WAIT SECTION OF THE LISTING FOR REGISTER VALUES ANO WAIT' 
DESCRIPTION... ... 

5.3.9 SWITCHES 

A. NORMAL CONDITIONS OF SWITCHES 

ALL CONSOLE ENTRY SWITCHES SHOULD BE OFF. 

8. IMPROPER CONDITION OF SNITCHES 

IF CONSOLE ENTRY SWITCHES 13 AND 14 ARE ON AND SWITCH 8 IS OFF* AN 
ERROR WOULD INADVERTENTLY BE BYPASSED SINCE BOTH ERROR WAITS ANO 
PRINTOUTS WOULD BE SUPPRESSED. TO AVOID THIS IMPROPER COMBINATION, 
A UNIQUE WAIT INSTRUCTION IS EXECUTEO. WHEN THIS CONDITION 
EXISTS, CORRECT THE CONDITION AND DEPRESS THE START BUTTON TO 
INITIALIZE THE PROGRAM. THE WAIT DESCRIPTION IS FOUND IN 
• THE WAIT SECTION OF THE J.ISTINC. 

6. APPENDIX IN0NE1 



CATE 
EC NO. 



OIJULM 
♦15178 



FROG 10 
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r 

4- 



} 

f 

;- 
1 

V. 

y 



ASS 
3001 ORG /3001 

*********************************************** A *****^^^^ A+ ^^ + ^ % 

B-REG I-REG * PROG WAITS COMMENTS 
*********************************** ************************************ 

* 
3001 03A0 DC RSCCH61 

* 



CAR CHECK ERROR-A 
FALSE CAR CHECK HAS 
OCCURRED-RUN THE CAR 

* CHECK PROGRAM. 

*************************************************** 

* 



3002 03A0 



DC 



* 

* 
* 

* 
* 

* 
* 

* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 
* 
* 

* 
* 



RSCCHG1 



STORAGE PROTECT 
VIOLATION. 



Q-REG 



0001 



0002 



0003 



0004 



0005 



USE THE Q REG TO FURTHER 
IDENTIFY THE ERROR. TO 

CONTINUE THE TEST, PRESS 
THE START BUTTON. 

*************** * a ** ** **************** 

COMMENTS 

ROUTINE TO READ AND WRITE 

IN EACH CORE LOCATION FAILED. 

THE ACCUMULATOR AND INDEX 
REGISTER I SHOW THE ADDRESS 
BEING WRITTEN WHEN THE SPV 
OCCURRED. 

************************************* 

BIT BY BIT ISOLATION FAILED. 

THE ACCUMULATOR SHOWS THE 
CORRECT PATTERN. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

****** ******************************* 

BIT BY BIT ISOLATION FAILED. 

THE ACCUMULATOR SHOWS THE 
CORRECT PATTERN. 

IRDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

***************** ************ * ******* 

WORST CASE PATTERN ROUTINE 
FAILED. 

INDEX REGISTER 2 SHOWS THE 
CORRECT DATA PATTERN. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

************************************* 

WORST CASE PATTERN ROUTINE 
FAILED. 



INDEX REGISTER 3 
CORRECT PATTERN. 



SHOWS THE 



INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

************************************* 



DATE " 
EC NO. 



01JUL66 
415178 



15MAY6? 
411731 



14N0V69 
*3J„319 



8CA00020 
8CA00030 
8CA00040 
8CA00050 
8CA00060 
8CA00070 
8CA00080 
"%CA00090 
8CA00100 
8CA00110 
8CA00120 
8CA00130 
8CA00140 
8CA00150 
8CA00160 
8CA0C170 
8CA00180 
8CA00190 
8CA00200 
8CA00210 
8CA00220 
8CA00230 
8CA00240 
8CA00250 
8CA00260 
8CA00270 
8CA00280 
8CA00290 
8CA00300 
8CA0031O 
8CA00320 
8CA00330 
8CA00340 
8CA00350 
8CA00360 
8CA00370 
8CA00380 
8CA00390 
8CA00400 
8CA00410 
8CA00420 
8CA00430 
8CA00440 
8CA00450 
8CA00460 
8CA0047,0 
8CA00480 
8CA00490 
8CA00500 
8CA00510 
8CA00520 
8CA00530 
8CA00540 
8CA0055O 
8CA00560 
8CA00570 
8CA00580 
8CA00590 
8CA00600 
8CA00610 
8CA00620 
8CA00630 
8CA00640 
8CA00650 
8CA00660 
8CA00670 
8CA00680 
8CA00690 
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PAGE 



* 
* 

* 
* 
* 
* 

* 
* 
* 
* 



0006 



WORST CASE PATTERN ROUTINE 
FAILED. 

THE CORRECT DATA PATTERN 
IS 0000. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

***********************************^ ](t 



c 



* 0007 

at * 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 0008 

* 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* IF THE REGISTER CONTAINS 

* ANY OTHER VALUE, RUN THE 

b-Ktb I-REG * PRCG WAITS COMMENTS 

t««Mm«tM««» MM «tt«»*««*t«*m»»»«»«» MMMMfWttWMtt 

3003 013E DC RSDKWS1 

* 



WRITE ZEROS IN PROTECTED 
AREA OF ONES FAILED. 

THE CORRECT DATA PATTERN 
IS FFFF. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 

♦♦s********************************^ 

UNPROTECT AND CLEAR CORE 
OF ONES ROUTINE FAILED. 

THE CORRECT PATTERN IS 0000. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 

***************** ******************, s ., !t 

NOTE 



WAIT FOR SWITCHES. 



' 



* 
* 
* 
* 

* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 



INDEX REGISTER 1 1X1) 
CONTAINS THE CORE SIZE 
FOUND BY THE PROGRAM. 
SET DISPLAY REGISTER 
SWITCH TO XI IN ORDER 
TO DISPLAY THIS P/C 
CORE STORAGE SIZE. 

1. SET REQUIRED SWITCHES 

A. OPERATOR •'ONITOR-OFF 

B. DISABLE INTERRUPT-OFF 

C. CHECK STOP-OFF 

D. WRITE STORAGE 
PROTECT-YES 

E. ANY DESIRED DATA 
ENTRY SWITCHES. 

B14- BYPASS ERROR WAIT 
B13- BYPASS PRINTING 
Bll- LOOP SUBPROGRAM 
BIO- LOOP ROUTINE 
B 9- OUTPUT ON 1443 
B 8- LOOP ADDRESS 

2. PUSH START TPROGRAM 



08CA-2 
1 



J 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



8CA00700 

8CA00710 

8CA00720 

8CA00730 

8CA00740 

8CA00750 

8CA00760 

8CA00770 

8CA00780 

8CA00790 

8CA00800 

8CA00810 

8CA00820 

8CA00830 

8CA00840 

8CA00850 

8CA00860 

8CA00870 

8CA00880 

8CA00890 

8CA00900 

8CA00910 

8CA00920 

8CA00930 

8CA00940 

8CA00950 

8CA00960 

8CA00970 

8CA00980 

8CA00990 

8CA01000 

8CA01010 

8CA01020 

8CA01030 

8CA0I040 

8CA01050 

8CA01060 

8CA01070 

8CA01080 

8CA01090 

8CA01100 

3CA01U0 

8CA01120 

8CA01130 

8CA01140 

8CA01150 

8CA01160 

8CA01170 

8CA01180 

8CA01190 

8CA01200 

8CA01210 

8CA01220 

8CA01230 

8CA01240 

8CA01250 

8CA01260 

8CA01270 

8CA01280 

8CA01290 

8CA0130O 

8CA01310 

8CA01320 

8CA01330 

8CA01340 

8CA01350 

8CA01360 

8CA01370 
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3004 03A0 



* 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 

* 

* 
* 
* 
* 

* 
* 
* 

* 

* 

* 



SHOULD LOAD< 
I***!******************************************* 

DC RSCCHE1 PARITY ERROR. 



Q-REG 



0009 



OOOA 



OOOB 



A. DETERMINE CORE LOCATION 
THAT CAUSED PARITY ERROR 
BY- 

1. SET CHECK STOP SWITCH 
TO ON. 

2. SET STORAGE PROTECT 
SWITCH TO NO. 

3. SET MODE SWITCH TO 
DISPLAY. 

4. HOLD CLEAR STORAGE 
BUTTON DOWN AND PRESS 
START BUTTON. 

B. IF THE SYSTEM DOES NOT 
STOP A FALSE PARITY 
CONDITION OCCURRED. THIS 
INDICATES A PROBLEM IN 
THE PARITY DETECTION 
CIRCUITRY OR THE B 
REGISTER. 

C. IF A PARITY ERROR IS 
DETECTED LOOK AT THE 
STORAGE ADDRESS REGISTER. 
IF IT IS BETWEEN LOCATIONS 
012C AND 07FF RUN THE LOW 
CORE TEST. 

D. IF THE PARITY IS NOT IN 
LOW CORE USE THE Q 
REGISTER TO FURTHER 
IDENTIFY THE ERROR. 

E. TO RETURN TO THE TESTING 
SEQUENCE SET THE I REGISTER 
TO THE ADRS OF WAIT 4 SABOVE< 
AND PRESS START. 

COMMENTS 

ROUTINE TO <READ AND WRITE 
ADDRESS IN EACH CORE LOCATION 
FAILED. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS 
CORRECT DATA. 

ROUTINE TO SET ALL CORE 
LOCATIONS TO ZERO FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

BIT BY BIT ISOLATION TEST 
FAILED. 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



8CA01380 

8CA01390 

8CA01400 

8CA01410 

8CA01420 

8CA01430 

8CA01440 

8CA01450 

8CA01460 

8CA01470 

8CA01480 

8CA01490 

8CA01500 

8CA01510 

8CA01520 

8CA01530 

8CA01540 

8CA01550 

8CA01560 

8CA01570 

8CA01580 

8CA01590 

8CA01600 

8CA01610 

8CA01620 

8CA01630 

8CA01640 

8CA01650 

8CA01660 

8CA01670 

8CA01680 

8CA01690 

8CA01700 

8CA01710 

8CA01720 

8CA01730 

8CA01740 

8CA01750 

8CA01760 

8CA01770 

8CA01780 

8CA01790 

8CA01800 

8CA01810 

8CA01820 

8CA01830 

8CA01840 

8CA01850 

8CA01860 

8CA01870 

8CA01880 

8CA01890 

8CA01900 

8CA01910 

8CA01920 

8CA01930 

8CA01940 

8CA01950 

8CA01960 

8CA01970 

8CA01980 

8CA01990 

8CA02000 

8CA02010 

8CA02020 

8CA02030 

8CA02040 

8CA02050 
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* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 

* 

* 
* 

* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
# 
* 

* 
* 

* 
* 
* 
* 
* 



OOOC 



OOOD 



OOOE 



OOOF 



0010 



INDEX REGISTER 2 SHOWS THE 
CORRECT DATA. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

WORST CASE PATTERN ROUTINE 
FAILED. 

THE CORRECT PATTERN IS 
EITHER 0000 OR FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

***************************„, ^s***** 

WRITE ZEROS ON STORAGE 
PROTECTED AREA OF FFFF 
ROUTINE FAILED. 

FAILURE OCCURRED WHILE 
EXECUTING A WRITE STORAGE 
PROTECT BIT INSTRUCTION. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR IS 
MEANINGLESS. 

WRITE ZEROS ON STORAGE 
PROTECTED AREA OF FFFF 
ROUTINE FAILED. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

WRITE ZEROS ON STORAGE 
PROTECTED AREA OF FFFF 
ROUTINE FAILED. 

THE FAILURE OCCURRED WHILE 
EXECUTING A CLEAR STORAGE 
PROTECT BIT INSTRUCTION. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR IS 
MEANINGLESS. 

UNPROTECT AND CLEAR MEMORY 
OF ONES ROUTINE FAILED. 

THE CORRECT PATTERN IS 0000. 



THE ACCUMULATOR SHOWS THE 

........ — . — .,„».,::^;»:j,... — sssz. 

"° 5 ° °" 4 OC «SO.Wt, MOGRAI, END. 



8CA02060 

PCA02070 

8CA02080 

8CA02090 

8CA02100 

8CA02110 

8CA02120 

8CA02130 

8CA0214O 

8CA0215Q 

8CA02160 

8CA02170 

8CA02180 

8CA02190 

8CA02200 

8CA0221© 

8CA02220 

8CA02230 

8CA02240 

8CA02250 

8CA02260 

8CA02270 

8CA02280 

8CA02290 

8CA02300 

8CA02310 

8CAO2320 

8CA0233O 

8CA02340 

8CA02350 

8CA02360 

8CA02370 

8CA02380 

8CA0239Q 

8CA02400 

8CA02410 

"8CA02420 

8CA02430 

8CA02440 

8CA02450 

8CA02460 

8CA02470 

8CA02460 

8CA02490 

8CA02500 

8CA02510 

8CA02520 

*CA02530 

4CA02540 

8CA0?550 - 

8CA02560 

8C*©2570 

8CA02580 

8CA02590 

8CA02600 

8CA02610 

8CA02620 

8CA02630 

8CA02640 

8CA02650 

8CA02660 

8CA02670 

8CA02680 

8CA02690 

8CA02700 

8CA02710 

8CA02720 

8CA02730 
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i IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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PAPT NO. 
PAGE 



cC 



cT 



<r 



111 



I r 



I* 
k 

f 

itC 









cC 



! 



1 •" 



cC 

•" DATE 
L-*. EC NO. 



3006 0432 



3007 0448 



3008 03A0 



3009 044A 



300A 045F 



300B 042E 



* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

*************** ****************** ****************** 

* 



SET SWITCHES TO LOAD 
0-9 CORE TEST. 

1. CHECK STOP-ON. 

2. PUSH START %0-9 CORE 
TEST SHOULD LOAD< 

NOTE 

IF NEXT PROGRAM IS TO BE 
LOADED BY -A 1054, PLACE THE 
0-9 CORE TEST IN THE 1054 

BEFORE PUSHING START. 



DC RSWSCE1 ILLEGAL COMBINATION 

OF DATA ENTRY SWITCHES. 

*SW 13 ON, SW 14 ON AND 
SW 8 OFF< 



PUSH START TO RERUN 
THE PROGRAM. 
*************************************************** 

* 

DC LOG03E1 1443 NOT READY. 

* 

* MAKE 1443 READY AND 

* PUSH START. 

***************** ********************************** 
* 

DC RSCCHS1 INVALID CP CODE. 

* 

* THE REGISTER SHOWS 

* ONE GREATER THAN THE 

* FAILING INSTRUCTION. 

* 

* RUN THE LOW CORE TEST 

* ^ASSUMING THE P-C 

* FUNCTION TEST HAS BEEN 

* RUN< 

*************************************************** 
* 

DC L0G0461 1443 BUSY. 

* 

* CLEAR 1443 ANO PUSH 

* THE START BUTTON. 

*************************************************** 

* 

DC WAITA£1 1816 NOT READY. 

* 

* MAKE 1816 READY AND 

* PUSH START. 

************************************* ************** 

* 

DC WAITBE1 DATA ERROR HAS BEEN 
DETECTED. 



USE THE Q REG TO FURTHER 
IDENTIFY THE ERROR. 



NOTE 



DEPRESSING THE START BUTTON 
RETURNS THE PROGRAM TO THE 
TESTING SEQUENCE. ^NORMALLY 
AFTER THE ERROR WAIT OCCURS 
BIT SW 8 SHOULD BE TURNED ON TO 



01JUL66 15MAY67 
415178 411731 



14N0V69 
431319 



8CA02740 

8CA02750 

8CA02760 

8CA02770 

8CA02780 

8CA02790 

8CA02800 

8CA02810 

8CA02820 

8CA02830 

8CA02840 

8CA02850 

8CA02860 

8CA02870 

8CA02880 

8CA02890 

8CA02900 

8CA02910 

8CA02920 

8CA02930 

8CA02940 

8CA02950 

8CA02960 

8CA02970 

8CA02980 

8CA02990 

8CA03000 

8CA03010 

8CA03020 

8CA03030 

8CA03040 

8CA03050 

8CA03060 

8CA03070 

8CA03080 

8CA03090 

8CA031OO 

8CA03110 

8CA03120 

8CA03130 

8CA03140 

8CA03150 

8CA03160 

8CA03170 

8CA03180 

8CA03190 

8CA03200 

8CA03210 

8CA03220 

8CA03230 

8CA03240 

8CA03250 

8CA03260 

8CA03270 

8CA03280 

8CA03290 

8CA03300 

8CA03310 

8CA03320 

8CA03330 

8CA03340 

8CA03350 

8CA03360 

8CA03370 

8CA03380 

8CA03390 

8CA03400 

8CA03410 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



Q-REG 
0011 



LOOP ON THE ADDRESS THAT FAILED< 
*************************** ^^fc^^^ 

COMMENTS 



0012 



0013 



0014 



0015 



0016 



ROUTINE TO READ AND WRITE 
ADDRESS IN EACH CORE LOCATION 
FAILED. 

INDEX REGISTER 1 SHOWS THE 
CORRECT PATTERN AND THE CORE 
LOCATION WHICH FAILEt). 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 
*******************************^ +#Mt 

ATTEMPT TO SET CORE LOCATION 
TO ZEROS FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

***************************** i^***^.^ 

BIT BY BIT ISOLATION TEST 
FAILED. 

INDEX REGISTER 2 SHOWS THE 
CORRECT PATTERN. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

******* ***************** ** *********** 

WORST CASE PATTERN ROUTINE 
FAILED. 

THE CORRECT PATTERN IS EITHER 
0000 OR FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 
************************************* 

WRITE ZEROS ON PROTECTED 
AREA OF FFFF ROUTINE FAILED. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

************************************* 

UNPROTECT AND CLEAR CORE OF 



8CA03420 

8CA03430 

8CA03440 

8CA03450 

8CA03460 

8CA03470 

8CA03480 

8CA03490 

8CA03500 

8CA03510 

8CA03520 

8CA03530 

8CA03540 

8CA03550 

8CA03560 

8CA03570 

8CA03580 

8CA03590 

8CA03600 

8CA03610 

8CA03620 

8CA03630 

8CA03640 

8CA03650 

8CA03660 

8CA03670 

8CA03680 

8CA03690 

8CA03700 

8CA03710 

8CA03720 

8CA03730 

8CA03740 

8CA03750 

8CA03760 

8CA03770 

8CA03780 

8CA03790 

8CA03800 

8CA03810 

8CA03820 

8CA03830 

8CA03840 

8CA03850 

8CA03860 

8CA03870 

8CA0388O 

8CA03890 

8CA03900 

8CA03910 

8CA03920 

8CA03930 

8CA03940 

8CA03950 

8CA03960 

8CA03970 

8CA03980 

8CA03990 

8CA04000 

8CA04010 

8CA04020 

8CA04030 

8CA04040 

8CA04050 

8CA04060 

8CA04070 

8CA04080 

8CA04090 



218^120 
3A 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



PROG ID 
PAGE 



08CA-2 
3A 



r 

IB" MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
r HI CORE FUNCTION TEST 



\ 



PART NO. 2183320 
PAGE 4 



r 
r 

r- 
r 
r 
r 
r 
r 



X 



r 






,r 






./"• 



/- 



•- 



DATE 
>. EC NO. 



ONES ROUTINE FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 



012C 

012C CAOO 





012D 6100 


**^ 


012E C007 


*£^ 


012F D1FF 


r 


0130 7500 1000 


l € - 


0132 1000 


0133 1010 


r 


0134 D1FF 


C~ 





* 
* 

* 
* 

* 

* INDEX REGISTER 1 SHOWS THE 

* CORE LOCATION WHICH FAILED. 

^fr*************************************^,,,.,.^,^^^ 

* MEMORY TEST-HIGH CORE 

* 

* SWITCH SETTING 

* 

* B14 # BYPASS ERROR" WAIT 

* B13 # BYPASS PRINTING 

* Bll # LOOP SUB PROGRAM 

* BIO # LOOP ROUTINE 

* B9 # OUTPUT ON 1443 

* B8 # LOOP ADDRESS 

* fr***********************************^^^^^,^^ 
****************************************,,,,„,,,,.,, ^^^ 

ORG 300 

OC /CAOO PID 

******* ******************************************* 

* CORE SIZE DETERMINER * 

* 
******************* ***** *** ******************„<**.«,„ 

RSDKR LDX 1 SET CONTROL INDEX 

LD STGCKG1 GET CONSTANT FFFF £ SET 
ST0 1 -1 IN MAXIMUM ADDRESS 



STGLP MDX LI /1000 



0135 C400 FFFF 
0137 4C20 0130 



0139 71FF 



013A 1000 

013B 691F 
013C 7000 



013D 
013E 
013F 
0141 
0142 
0144 
0146 



0147 
0149 
014B 
014D 
014F 
0151 



3003 
C827 

DCOO 0000 
C822 

DCOO 0004 
C400 015A 
1890 



NOP 
SLA 
STO 

* 

STGCK LD 
BSC 

* 
* 

MDX 

* 
* 

NOP 

* 

STX 

MDX 

* 

RSDKW WAIT 
LDD 
STD L 

RSDKS LDD 

STD L 
LD L 
SRT 





16 
1 -1 

L /FFFF 
L STGLP, Z 



1 -1 



1 RSAAH 
RSDKW 

3 

RSAAN 



RSAAM 

4 

RSAAE 

16 



ADVANCE CONTROL INDEX 
SAFETY NOP FOR 32K CORE 
CLEAR ACCUMULATOR AND SET 
IN 4K CORE BLOCK MAX ADDR 

GET MAX CORE ADDRESS DATA 
CHECK IT FOR ZERO 
BRANCH LOOP IF NOT MAX 

DECREMENT XI TO ACTUAL 
MAXIMUM ADDRESS THIS CPU 

SAFETY NOP FOR 32K CORE 

STORE MAX CORE SIZE 
BR TO CONTINUE 



CLEAR Q REGISTER 



* 
* 
* 



MACHINE DETERMINATION ROUTINE 



C400 015A 
D400 0003 
6700 FFFF 
C400 0003 
4C20 0153 
C007 



LD L RSAAE 

STO L 3 

LDX L3 /FFFF 

LD L 3 

BSC L RSAAB.Z 

LD RSAAD 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



8CA04100 
8CA04110 
8CA04120 
9 8CA04130 
8CA04140 
8CA04150 
8CA04160 
8CA04170 
8CA04180 
8CA04190 
8CA04200 
8CA04210 
8CA04220 
8CA04230 
8CA04240 
8CA04250 
8CA04260 
8CA04270 
8CA04280 
8CA04290 
8CA04300 
8CA043I0 
8C A 04320 
8CA04330 
8CA04340 
8CA04350 
8CA04360 
8CA04370 
8CA04380 
8CA04390 
8CA04400 
8CA04410 
8CA04420 
8CA04430 
8CA04440 
8CA04450 
8CA04460 
8CA04470 
8CA04480 
8CA04490 
8CA04500 
8CA04510 
8CA04520 
8CA04530 
8CA04540 
8CA04550 
8CA04560 
8CA04570 
8CA04580 
8CA04590 
8CA04600 
8CA04610 
8CA04620 
8CA04630 
8CA04640 
8CA04650 
8CA04660 
8CA04670 
8CA04680 
8CA04690 
8CA04700 
8CA04710 
8CA04720 
8CA04730 
8CA04740 
8CA04750 
8CA04760 
8CA04770 
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08CA-2 
4 



DATE 
EC NO. 



0152 7001 

0153 C004 

0154 D007 

0155 67C0 0000 
0157 7019 



0158 





0001 


0159 





FFFE 


015A 





0000 


015B 





08C0 


015C 





0000 


015D 





0003 


015E 





0000 


015F 





0800 



0160 
0162 
0164 
0166 
0168 
0169 
016A 
016B 
016C 
016D 
016E 
016F 
0170 



70C3 

0002 

4C00 0141 

4C00 0141 

016E 

3A40 

0800 

0338 

OOCO 

0240 

0000 

0F03 

0902 



0171 

0172 

0174 

0175 

0177 

0178 

0179 

017A 

017C 

017D 

017F 

0180 

0182 

0183 

0184 

0186 

0188 

018A 



COEE 
D400 
CCE7 
4C04 
C0F5 
DOFO 
C0F1 
C400 
C0F2 
D400 
COFO 
D4C0 
08E5 
COEA 
E400 
4C20 
4400 
04FD 



0000 
0182 

0008 
0495 
0497 



02A2 
018B 
0434 



018B 
018C 
018D 
018E 
0190 
0191 
0192 
0194 
0195 
0197 



C0D1 

D0D1 

6204 

6580 016A 

69DB 

CODA 

D480 016C 

F0C6 

4C18 019A 

7101 



01JUL66 
415178 



X 1 

RSAAC 

RSAAK 

L3 /OOOO 

RSABA 



1 

-2 



/0800 



3 



/0800 



MDX 
RSAAB LD 
STO 
LDX 

MDX 

* 

* STORAGE 

* 

RSAAC DC 

RSAAD DC 

RSAAE DC 

RSAAH DC 

RSAAK DC 

RSFAA DC 

RSFAB DC 

RSFAC DC 

* 

* 

* 

* 

RSAAL MDX X 3 
BSS E 2 
RSAAM BSC L RSDKS 
RSAAN BSC L RSDKS 
RSQAF DC RSQAL 
RSOAO DC /3A40 
RSQAC DC /0800 
RSQAD DC RSCCA 
RSOAE DC 
RSOAP DC /0240 
RSQAL DC 
RSOAU DC /0F03 
RSQAV DC /0902 
* 

* INITIALIZE MASKS 

* 1800 ONLY 



CLEAR XR 3 



AREAS FOR INITIALIZATIONS 



1130 CONSTANT 

1800 CONSTANT 

CONSTANT ZERO 

MEMORY SIZE 

MACHINE TYPE 

NUMBER OF PROGRAM PASSES 

PROGRAM PASS BUFFER 

INITIALIZE MEM SIZE 



STORAGE AREAS PART 1 



BOOTSTRAP BRANCH INST 

READ BIT SWITCH IOCC 
SECOND HALF IOCC-113 
FIRST LOC TESTED 
INTERRUPT LEVEL ZERO VECT 
WORK AREA 

SECOND HALF IOCC-180 
BIT SWITCH BUFFER AREA 
2ND HALF IOCC-I800 DSW 
2ND HALF-1800 TYPE 

AND INTERRUPTS TO LEVEL ZERO 



RSABA LD 
STO 
LD 
BSC 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
STO 
RSAOE XIO 
LD 
AND 
BSC 
BSI 
DC 



FIRST ROUTINE-READ £ 



15MAY67 
411731 



* 

* 

* 

RSABI LD 
STO 

RSABH LDX 

RSABB LDX 

RSABC STX 
LD 

SPVE1 STO 
EOR 
BSC 
MDX 



14N0V69 
431319 



RSAAL 



RSAAK 

RSAOE, E 

RSOAP 

RSQAO 

RSQAD 

8 

RSQAU 

TWSNSC1 

RSQAV 

TWWRTS1 

RSQAF 

RSQAL 

RSRAX 

RSABI, Z 

LOG 

MES01 



STORE BOOTSTRAP BRANCH AT 
LOCATION ZERO 

IF 1130-GO TO FIRST ROUTIN 
CHANGE SECOND HALF IOCC 
FOR 1800 READ BIT SW 
INTERRUPT LEVEL ERROR VECT 



DSW 1800 

XIO WRITE 1800 



PR01 
PR02 



RSFAA 

RSFAB 
X2 4 
II RSQAC 
1 RSQAE 

RSQAE 
I RSQAE 

RSAAH 

RSABD.E- 

1 



BYPASS LABEL PRINTOUT 

MEMORY TEST-HI CORE 

WRITE IN MEMORY 

INITIALIZE PROGRAM 
PASS COUNTER 
ADDRESSING PASSES 



L 
XI 



INCR TO NEXT ADDRESS 



8CA04780 

8CA04790 

8CA04800 

8CA04810 

8CA04820 

8CA04830 

8CA04840 

8CA04850 

8CA04860 

8CA04870 

8CA04880 

8CA04890 

8CA04900 

8CA04910 

8CA04920 

8CA04930 

8CA04940 

8CA04950 

8CA04960 

8CA04970 

8CA04980 

8CA04990 

8CA05000 

8CA05010 

8CA05020 

8CA05030 

8CA05040 

8CA05050 

8CA05060 

8CA05070 

8CA05080 

8CA05090 

8CA05100 

8CA05110 

8CA05120 

8CA05130 

8CA05140 

8CA05150 

8CA05160 

8CA05170 

8CA05180 

8CA05190 

8CA05200 

8CA05210 

8CA05220 

8CA05230 

8CA05240 

8CA05250 

8CA05260 

8CA05270 

8CA05280 

8CA05290 

8CA05300 

8CA05310 

8CA05320 

8CA05330 

8CA05340 

8CA05350 

8CA05360 

8CA0537O 

8CA05380 

8CA05390 

8CA05400 

8CA05410 

8CA05420 

8CA05430 

8CA05440 

8CA05450 
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t. 


0198 





1000 






NOP 







SAFTY NOP 


8CA05460 






0199 





70F6 






MDX 




RSABC 




8CA05470 




r f 


019A 





6580 


016A 


RSABD 


LDX 


11 


RSQAC 




8CA05480 




C - 


019C 





69CF 




RSABE 


STX 


1 


RSOAE 




8CA05490 






0190 





C480 


016C 


PARE1 


LD 


I 


RSQAE 




8CA0550O 




cc 


019F 





D400 


022A 




STO 


L 


RSQAN 


STORE ACCUM FOR ERROR ROUT 


8CA05510 




01A1 





FOCA 






EOR 




RSQAE 




8CA05520 






01A2 





4C18 


01AF 


DATEl 


BSC 


L 


RSABF, E- 


ERROR 1 DETECTED 


8CA05530 




r r 


01A4 





OCOO 


0168 




XIO 


L 


RSQAF 




8CA05540 




C - 


01A6 


c 


C400 


016E 




LD 


L 


RSQAL 




8CA05550 






01A8 





E400 


02A1 




AND 


L 


RSRAI 


« 


8CA05560 




,r 


01AA 





4C20 


019C 




BSC 


L 


RSABE, Z 




8CA05570 




C 


01AC 





4400 


03CF 




BSI 


L 


RSDDD 




8CA05580 






01AE 





FFFE 






DC 




/FFFE 


ERROR 1 CONSTANT 


8CA05590 




,r 


01AF 





08B8 




RSABF 


XIO 




RSQAF 


READ BIT SWITCHES 


8CA05600 




C- 


01B0 





C400 


016E 




LD 


L 


RSQAL 




8CA05610 






01B2 





E400 


02A1 




AND 


L 


RSRAI 


ISOLATE SW 8 


8CA05620 




: ,r 


01B4 





4C20 


019C 




BSC 


L 


RSABE, Z 


IF SW 8 ON LOOP ADDR 


8CA05630 




C. 


01B6 





C0B5 






LD 




RSQAE 




8CA05640 






01B7 





F0A3 






EOR 




RSAAH 




8CA05650 




,r 


01B8 





4C18 


01BD 




BSC 


L 


RSABG, S- 




8CA05660 




C^ 


01BA 





7101 






MDX 


XI 


1 


INCR TO NEXT ADDRESS 


8CA05670 






01BB 





1000 






NOP 







SAFTY NOP 


8CA05680 




S 


01BC 





70DF 






MDX 




RSABE 




8CA05690 




c~ 


01BD 





72FF 




RSABG 


MDX 


X2 


-1 


COUNT PASSES 


8CA05700 






01BE 





70CF 






MDX 




RSABB 




8CA05710 




r r 


01BF 





OCOO 


0168 




XIO 


L 


RSQAF 


REPEAT RT IF 10 ON 


8CA05720 




c~ 


01C1 





C4C0 


016E 




LD 


L 


RSQAL 




8CA05730 






01C3 





E400 


029F 




AND 


L 


RSRAG 




8CA05740 




<r. 


01C5 





4C20 


018D 




BSC 


L 


RSABH,Z 


REPEAT ADDRESSING ROUTINE 


8CA05750 












* 










8CA05760 














* SECOND 


ROUTINE 




8CA05770 




s~ 










* BIT ISOLATION TEST-BIT BY BIT-ADRESS BY ADDRESS 


8CA05780 




t^ 










* 










8CA05790 






01C7 





6304 




RSABR 


LDX 


X3 


4 


BIT ISOLATION PASSES 


8CA05800 




,/■ 


01C8 





C400 


016A 


RSABP 


LD 


L 


RSQAC 




8CA05810 




. t - 


01CA 





D05A 




RSABN 


STO 




RSQAH 




8CA05820 






01CB 





6580 


0225 




LDX 


11 


RSQAH 




8CA05830 




r 


01CD 





C058 






LD 




RSQAI 




8CA05840 




f 


01CE 





D480 


0225 


SPVE2 


STO 


I 


RSQAH 




8CA05850 




i 


01D0 





C480 


022 5 


PARE2 


LD 


I 


RSQAH 




8CA05860 




„•"■ 


01D2 





D400 


022A 




STO 


L 


RSQAN 


STORE ACC FOR ERROR OUT I 


8CA05870 




v •«. 


01D4 





4C18 


01E1 


DATE2 


BSC 


L 


RSABJ, E- 


ERROR 2 DETECTED 


8CA05880 






0106 





OCOO 


0168 




XIO 


L 


RSQAF 




8CA05890 




i ,/" 


0108 





C400 


016E 




LD 


L 


RSQAL 




8CA05900 






01DA 





E400 


02A1 




AND 


L 


RSRAI 




8CA05910 






01DC 





4C20 


01CB 




BSC 


L 


RSABNE1.Z 




8CA05920 




y 


01DE 





4400 


03CF 




BSI 


L 


RSDDD 




8CA05930 




V «- 


01E0 





FFFD 






DC 




/FFFD 




8CA05940 




* 


01E1 





OCOO 


0168 


RSABJ 


XIO 


L 


RSQAF 


IF SW 8 ON LOOP ADDR 


8CA05950 




,/" 


01E3 





C400 


016E 




LD 


L 


RSQAL 




8CA05960 




v «. 


01E5 





E400 


02A1 




AND 


L 


RSRAI 




8CA05970 




* 


01E7 





4C20 


01CB 




BSC 


L 


RSABNE1,Z 




8CA05980 




• ,/"" 


01E9 





C030 






LD 




RSQAJ 




8CA05990 




C^ 


01EA 





00 3D 






STO 




RSQAK 




8CA06000 






01EB 





C03C 




RSABL 


LD 




RSQAK 




8CA06010 




. /" 


01EC 





04 80 


0225 


SPVE3 


STO 


I 


RSQAH 




8CA06020 




* • 


01EE 





6680 


0228 




LDX 


12 


RSQAK 




8CA06030 






01F0 





C480 


0225 


PARE3 


LD 


I 


RSQAH 




8CA06040 




r 


01F2 





0400 


022A 




STO 


L 


RSQAN 




8CA06050 




\t- ***, 


01F4 





F033 






EOR 




RSQAK 




8CA06060 






01F5 





4C18 


0202 


DATE3 


BSC 


L 


RSA8K.E- 


ERROR 3 DETECTED 


8CA06070 




<fi 


01F7 





OCOO 


0168 




XIO 


L 


RSQAF 




8CA06080 




01F9 





C400 


016E 




LD 


L 


RSQAL 




8CA06090 






01FB 





E400 


02A1 




AND 


L 


RSRAI 




8CA06100 




/* 


01FD 





4C20 


01EB 




BSC 


L 


RSABL, Z 




8CA06110 




C^ 


01FF 





4400 


03CF 




BSI 


L 


RSDDD 




8CA06120 






0201 





FFFB 






DC 




/FFFB 


ERROR 3 CONSTANT 


8CA06130 




cC 
























^ DATE 


01JUL66 15MAY67 


14N0V69 








PROG ID 


08CA-2 


C. EC NO, 


415178 


411731 


431319 
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V 



, 





0202 





OCOO 0168 


RSABK 


XIO 


L 


RSQAF 




8CA06140 






0204 





C400 016E 




LD 


L 


RSQAL 




8CA06150 






0206 





E400 02A1 




AND 


L 


RSRAI 


ISOLATE BIT 8 


8CA06160 






0208 





4C20 OlEB 




BSC 


L 


RSABL, Z 


IF SW 8 ON LOOP ADDR 


8CA06170 






020A 





C01D 




LD 




RSQAK 




8CA06180 






020B 





4804 




BSC 




E 


IF ODD-BIT 15 IS REACHED 


8CA06190 






020C 





7003 




MDX 




RSABM 


BRANCH TO INCRE ADR ROUT 


8CA06200 






020D 





1801 




SRA 




1 


INCREMENT BIT 


8CA06210 






020E 





D019 




STO 




RSQAK 


POSITION BY ONE 


8CA06220 






020F 





70DC 




MDX 




SPVE3 




8CA06230 






0210 





C014 


RSABM 


LD 




RSQAH 


TEST FOR MEMORY END 


8CA06240 






0211 





F400 015B 




EOR 


L 


RSAAH 




8CA06250 






0213 





4C18 0218 




BSC 


L 


RSABO, E- 




8CA06260 






0215 





COOF 




LD 




RSQAH 


INCREMENT TO TEST NEXT 


8CA06270 






0216 





8012 




A 




RSQAM 


MEMORY LOCATION 


8CA06280 






0217 





70B2 




MDX 




RSABN 




8CA06290 






0218 





73FF 


RSABO 


MDX 


X3 


-1 


COUNT PASSES 


8CA06300 






0219 





70AE 




MDX 




RSABP 




8CA06310 






021A 





OCOO 0168 




XIO 


L 


RSQAF 




8CA06320 






021C 





C400 016E 




LD 


L 


RSQAL 


» 


8CA06330 






021E 





E400 029F 




AND 


L 


RSRAG 




8CA06340 






0220 





4C20 01C7 




BSC 


L 


RSABR, Z 


REPEAT BIT ISOLATION 


8CA06350 






0222 





7009 


* 


MDX 




RSACJ 




8CA06360 
8CA06370 












* STORAGE 


AREAS PART 2 




8CA06380 












* 










8CA06390 






0223 





0004 


RSQAQ 


DC 




4 


WORST CASE PASSES 


8CA06400 






0224 





0000 


RSQAR 


DC 







WORST CASE PASS COUNT 


8CA06410 






0225 





0000 


RSQAH 


DC 







WORK AREA-ADR 


8CA06420 






0226 





0000 


RSQAI 


DC 







CONST ZERO 


8CA06430 






0227 





8000 


RSQAJ 


DC 




/8000 


BIT ZERO CONSTANT 


8CA06440 






0228 





OOCO 


RSQAK 


DC 







WORK AREA-BIT 


8CA06450 






0229 





0001 


RSQAM 


DC 




1 


CONST 1 


8CA06460 






022A 





0000 


RSQAN 


DC 







STORAGE FOR ACCUM 


8CA06470 






022B 





0000 


RSQAG 

* 


DC 




/oooo 


PATTERN CONTROL WORD 


8CA06480 
8CA06490 












* ESTABLISH 


WORST CASE 


PATTERN 


8CA06500 












* 










8CA06510 






022C 





C0F9 


RSACJ 


LD 




RSQAI 


RESET PTRN CONTROL 


8CA06520 






022D 





DOFD 




STO 




RSQAG 




8CA06530 






022E 





62C0 


RSACI 


LDX 


2 


/OOOO 




8CA06540 






022F 





67C0 FFFF 




LDX 


L3 


/FFFF 




8CA06550 






0231 





7003 




MDX 




RSACT 




8CA06560 






0232 





6600 FFFF 


RSACY 


LDX 


L2 


/FFFF 


COMPLIMENT PATTERN 


8CA06570 






0234 





63 CO 




LDX 


3 


/OOOO 




8CA06580 






0235 





COED 


RSACT 


LD 




RSQAQ 


INITIALIZE WORST CASE 


8CA06590 






0236 





DOED 




STO 




RSQAR 


PASS COUNTER 


8CA06600 






0237 





74FF 0224 


RSACK 


MDX 


L 


RSQAR, -1 


COUNT WORST CASE PASSES 


8CA06610 






0239 





7001 




MDX 




RSACX 


a 


8CA06620 






023A 





7052 




MDX 




RSACM 




8CA06630 






023B 





C400 016A 


RSACX 


LD 


L 


RSQAC 


RESET STARTING ADDR 


8CA06640 






023D 





D05C 




STO 




RSRAA 




8CA06650 






023E 





C05B 


RSACB 


LD 




RSRAA 




8CA06660 






023F 





1806 




SRA 




6 




8CA06670 






0240 





D05A 




STO 




RSRAB 




8CA06680 






0241 





1802 




SRA 




2 




8CA06690 






0242 





8058 




A 




RSRAB 




8CA06700 






0243 





4C04 024D 




BSC 


L 


RSACA, E 




8CA06710 






0245 





69C5 




STX 


1 


RSA0DE1 




8CA06720 






0246 





6580 029A 




LDX 


11 


RSRAA 




8CA06730 






0248 





6E80 029A 


SPVE4 


STX 


12 


RSRAA 




8CA06740 






024A 





65 00 0000 


RSADD 


LDX 


LI 







8CA06750 






024C 





7007 




MDX 




RSACD 




8CA06760 






024D 





6905 


RSACA 


STX 


1 


RSACZE1 




8CA06770 






024E 





6580 029A 




LDX 


11 


RSRAA 




8CA06780 






0250 





6F80 029A 


SPVE5 


STX 


13 


RSRAA 




8CA06790 






0252 





65 CO 0000 


RSACZ 


LDX 


LI 







8CA06800 






0254 





C045 


RSACD 


LD 




RSRAA 




8CA06810 




DATE 


01JUL66 15MAY67 


14N0V69 








PROG ID 


08CA-2 


EC NO. 


415176 


411731 


431319 








PAGE 


5A 



/ 
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PAGE 6 



r 


.' 


cC 


cC 


cC" 


cC 


cC 


<1 


s cC 


cC 



y 



' c C 



f c 



^ 



K 









cC 

^ DATE 
C . EC NO. 



0255 





F400 


015B 


0257 





4C18 


0250 


0259 





7401 


029A 


025B 





1000 




025C 





70E1 





EOR 


L 


RSAAH 


TEST FOR 


BSC 


L 


RSADB,£- 




MDX 


L 


RSRAA.l 


ADR#ADRE1 


NOP 







SAFTY NOP 


MDX 




RSACB 





* 

* WORST CASE TEST LOAD 

* COMPLEMENT AND REPEAT 



025D 





6580 


016A 


RSADB 


LDX 


11 


RSQAC 


025F 





693A 




RSACL 


STX 


1 


RSRAA 


0260 





C042 




RSACH 


LD 




RSRAJ 


0261 





D042 






STO 




RSRAK 


0262 





C480 


029A 


PARE4 


LD 


I 


RSRAA 


0264 





D400 


022 A 




STO 


L 


RSQAN 


0266 


c 


4C20 


026A 




BSC 


L 


RSACE, Z 


0268 





F033 






EOR 




RSRAC 


0269 





700E 






MDX 




SPVE6 


026A 





F031 




RSACE 


EOR 




RSRAC 


026B 





4C18 


0278 


DATE4 


BSC 


L 


SPVE6.E- 


026D 





OCOO 


0168 




XIO 


L 


RSQAF 


026F 





C400 


016E 




LD 


L 


RSQAL 


0271 





E400 


02A1 




AND 


L 


RSRAI 


0273 





4C20 


0260 




BSC 


L 


RSACH, Z 


0275 


c 


4400 


03CF 




BSI 


L 


RSDDD 


0277 





FFF7 






DC 




/FFF7 


0278 





D480 


029A 


SPVE6 


STO 


I 


RSRAA 


027A 





74FE 


02A4 




MDX 


L 


RSRAK, -2 


027C 





70E5 






MDX 




PARE4 


027D 





OCOO 


0168 




XIO 


L 


RSCAF 


027F 





C400 


016E 




LD 


L 


RSQAL 


0281 





E400 


02A1 




AND 


L 


RSRAI 


0283 





4C20 


0260 




BSC 


L 


RSACH, Z 


0285 





C014 






LD 




RSRAA 


0286 





F400 


015B 




EOR 


L 


RSAAH 


0288 





4C18 


028D 


* 


BSC 


L 


RSACW, S- 


028A 





7101 






MDX 


XI 


1 


028B 





1000 






NOP 







028C 





70D2 






MDX 




RSACL 


028D 





OCOO 


0168 


RSACW 


XIO 


L 


RSQAF 


028F 





C400 


016E 




LD 


L 


RSQAL 


0291 





EOCD 






AND 




RSRAG 


0292 





6680 


022B 




LDX 


12 


RSQAG 


0294 





4EA0 


02A5 




BSC 


12 


RSRAD, Z 


0296 





7201 






MDX 


2 


1 


0297 





6A93 






STX 


2 


RSQAG 


0298 





4E80 


02A5 


♦ 


BSC 


12 


RSRAD 










* ST( 

* 

RSRAA 


3RAGE 


AREAS PART : 


029A 





0000 




DC 







029B 





0000 




RSRAB 


DC 







029C 





FFFF 




RSRAC 


DC 




/FFFF 


029D 





0000 




RSRAE 


DC 







029E 





0000 




RSRAF 


DC 







029F 





0020 




RSRAG 


DC 




/0020 


02A0 





0010 




RSRAH 


DC 




/0010 


02A1 





0080 




RSRAI 


DC 




/0080 


02A2 





0004 




RSRAX 


DC 




/0004 


02A3 





0003 




RSRAJ 


DC 




3 


02A4 





0000 




RSRAK 

* 

RSRAD 


DC 







02A5 





022E 




DC 




RSACI 


02A6 





0232 






DC 




RSACY 


02A7 





02A8 




* 
* 


DC 




RSACV 



AND STORE THEN 

LOAD STARTING ADR IN XR1 
INITIALIZE COMPLEMENT CNTR 



ERROR 4 DETECTED 



ERROR 4 CONSTANT 



ISOLATE BIT 8 

IF SW 8 ON LOOP ADDR 

TEST FOR MEMORY END 
BR IF END OF MEM 
MEM ADRSADRCl 
SAFTY NOP 



LOOP RT IF SW 10 ON 

BR IF LOOP RTN 
INDEX PATTERN CNTRL 



WORK AREA-ADDRESS 

BUFFER AREA-WORST CASE PA 

WORK AREA-ADDRESS 
CONST ZERO 

BIT 10 ISOLATION CON 
BIT 11 ISOLATION CON 
BIT 8 ISOLATION CON 
BIT 13 ISOLATION CON 

COMPLEMENT PASS COUNTER 

CONTROL BRANCH 

ADDRESSES 
GO TO NEXT RTN 



01JUL66 
415178 



15MAY67 
411731 



14NQV69 
431319 



8CA06820 
8CA06830 
8CA06840 
8CA06850 
8CA06860 
8CA06870 
8CA06880 
8CA06890 
8CA06900 
8CA06910 
8CA06$20 
8CA06930 
8CA06940 
8CA06950 
8CA06960 
8CA06970 
8CA06980 
8CA06990 
8CA07000 
8CA07010 
8CA07020 
8CA07030 
8CA07040 
8CA07050 
8CA07060 
8CA07070 
8CA07080 
8CA07090 
8CA07100 
8CA07110 
8CA07120 
8CA07130 
8CA07140 
8CA07150 
8CA07160 
8CA07170 
8CA07180 
8CA07190 
8CA07200 
8CA07210 
8CA07220 
8CA07230 
8CA07240 
8CA07250 
8CA07260 
8CA07270 
8CA07280 
8CA07290 
8CA07300 
8CA07310 
8CA07320 
8CA07330 
8CA07340 
8CA07350 
8CA07360 
8CA07370 
8CA07380 
8CA07390 
8CA07400 
8CA07410 
8CA07420 
8CA07430 
8CA07440 
8CA07450 
8CA07460 
8CA07470 
8CA07480 
8CA07490 



PROG ID 
PAGE 



08CA-2 
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r 
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PART NO. 
PAGE 



2183320 
6A 



I. - 




* SI 


"ORAGI 


E PROTECTION 


TEST ROUTINES 




8CA07500 








* 












8CA07510 




cl 


02A8 C400 015C 


RSACV 


' LD 


L 


RSAAK 






8CA07520 




02AA 4CC8 02AE 




BSC 


L 


RSACU,£ 






8CA07530 






02AC 6400 031D 




LDX 


L 


RSADA 


NOT 1800 BRANCH 


TO E D N 


8CA07540 




cC 




* 












8CA07550 






* WRITE ; 


!EROS ON PROTECTED AREA OF ONES 




8CA07560 








* 












8CA07570 




cl 


02AE 6204 


RSACL 


LDX 


X2 4 


STORAGE PROTECT 


PASSES 


8CA07580 




02AF C400 016A 


RSACS 


LD 


L 


RSQAC 






8CA07590 






02B1 DOEB 




STO 




RSRAE 






8CA07600 




cC 


02B2 D008 




STO 




RSACO 


INITIALIZE STS 


4DDRESS 


8CA07610 




02B3 C400 03AD 




LD 


L 


RSSAH 


TELL INTERRUPT 


ROUTINE TO 


8CA07620 






02B5 D400 03AB 




STO 


L 


RSSAF 


DISREGARD SP ERROR 


8CA07630 




r r 


02B7 C0E4 


RSACN 


LD 




RSRAC 


ACC#/FFFF 




8CA07640 




C. 


02B8 D480 029D 


•* 


STO 


I 


RSRAE 






8CA07650 






02BA 2C41 


PARE5 


DC 




/2C41 


ADD SP BITS 




8CA07660 




r 


02BB 054F 


RSACO 


DC 




RSENDE2 






8CA07670 




c_ 


02BC 6580 029D 




LDX 


11 


. RSRAE 






8CA07680 






02BE CODF 




LD 




RSRAF 


ACCUM#0 




8CA07690 




cC 


02BF D480 029D 


SPVE7 


STO 


I 


RSRAE 


STO SHOULD NOT OCCUR 


8CA07700 




02C1 C480 029D 


PARE6 


LD 


I 


RSRAE 






8CA07710 






02C3 D4C0 022A 




STO 


L 


RSQAN 






8CA07720 




, r 


02C5 F0D6 




EOR 




RSRAC 






8CA07730 




(. 


02C6 4C18 02D3 


DATE5 


BSC 


L 


RSACM, e- 


ERROR 5 DETECTED 


8CA07740 






02C8 OCOO 0168 




XIO 


L 


RSQAF 






8CA07750 




cC 


0£CA C400 016E 




LD 


L 


RSQAL 






8CA07760 




02CC E400 02A1 




AND 


L 


RSRAI 






8CA07770 






02CE 4C20 02B7 




BSC 


L 


RSACN, Z 






8CA07780 




cC 


02D0 4400 03CF 




BSI 


L 


RSDDD 






8CA07790 




02D2 FFEF 




DC 




/FFEF 


ERROR 5 CONSTANT 




8CA07800 






02D3 OCOO 0168 


RSACM 


XIO 


L 


RSQAF 






8CA07810 




cC 


02D5 C400 016E 




LD 


L 


RSQAL 






8CA07820 




02D7 E0C9 




AND 




RSRAI 


ISOLATE BIT 8 




8CA07830 






02D8 4C20 02B7 




BSC 


L 


RSACN, Z 


IF SW 8 CN LOOP 


ADDR 


8CA07840 




r r 


02DA C0C2 




LD 




RSRAE 






8CA07850 




C^ 


02DB 8400 0229 
02DD DOBF 




A 
STO 


L 


RSQAM 
RSRAE 






8CA07860 
8CA07870 




S 


02DE DODC 




STO 




RSACO 






8CA07880 




C. 


02DF F400 015B 




EOR 


L 


RSAAH 






8CA07890 




& 


02E1 4C20 02B7 




BSC 


L 


RSACN, Z 


RETURN WITH ADR#ADRE1 


8CA07900 




cC 




* 












8CA07910 






* UNPROTECT 


AND CLEAR 


MEMORY OF ONES 




8CA07920 








* 












8CA07930 




r r 


02E3 C400 03AC 




LD 


L 


RSSAG 


SERVICE STORAGE 


PROTECT 


8CA07940 




C^ 


02E5 D400 03AB 




STO 


L 


RSSAF 






8CA07950 






02E7 C400 016A 




LD 


L 


RSQAC 






8CA07960 




r~ 


02E9 D0B3 




STO 




RSRAE 






8CA07970 




C^ 


02EA D0C1 




STO 




RSACR 


INITIALIZE STS ADDRESS 


8CA07980 






02EB 2C40 


PARE7 


DC 




/2C40 


CLEAR SP BITS 




8CA07990 




,r~ 


02EC 054F 


RSACR 


DC 




RSENDE2 






8CA08000 




C 


02ED 6580 029D 




LDX 


11 


RSRAE 






8CA08010 






02EF COAE 




LD 




RSRAF 


ACC#/0000 




8CA08020 




,*~ 


02F0 D480 029D 


SPVE8 


STO 


I 


RSRAE 






8CA08030 




C^ 


02F2 C480 029D 


PARE8 


LD 


I 


RSRAE 






8CA08040 






02F4 D4C0 022A 




STO 


L 


RSQAN 






8CA08050 




,y 


02F6 4C18 0303 


DATE6 


BSC 


L 


RSACP, G- 


ERROR 6 DETECTED 




8CA08060 




C_. 


02F8 OCOO 0168 




XIO 


L 


RSQAF 






8CA08070 






02FA C400 016E 




LD 


L 


RSQAL 






8CA08080 




->- 


02FC E400 02A1 




AND 


L 


RSRAI 






8CA08090 




c^ 


02FE 4C20 02EB 




BSC 


L 


PARE7.Z 






8CA08100 






0300 4400 03CF 




BSI 


L 


RSDDD 






8CA08110 




,r 


0302 FFDF 




DC 




/FFDF 


ERROR 6 CONSTANT 




8CA08120 




C 


0303 OCOO 0168 


RSACP 


XIO 


L 


RSQAF 


IF SW 8 ON LOOP 


4DDR 


8CA08130 






0305 C4C0 016E 




LD 


L 


RSQAL 






8CA08140 




* r 


0307 0- E099 




AND 




RSRAI 






8CA08150 




C 


0308 4C20 02EB 




BSC 


L 


PARE7.Z 


REPEAT ADRS 




8CA08160 




c r 


030A C092 




LD 




RSRAE 






8CA08170 




, DATE 


01JUL66 15MAY67 


14N0V69 










PROG ID 


08CA-2 


C v EC NO. 


415178 411731 


431319 
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6A 
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.r 

r 
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f 



X 



,r 



r 



.r 



cC 



,r 



,r 



J~ 



s~ 



.r 



030B 
030D 
030E 
030F 
0311 
0313 
0314 
0315 
0317 
0319 
031B 



8400 0229 
D08F 
00 DD 

F400 015B 
4C20 02EB 
72FF 
709A 

OCOO 0168 
C4C0 016E 
E4C0 029F 



4C20 02AE 



031D 

031F 

0320 

0322 

0324 

0326 

0328 

032A 

032B 

032D 

032F 

0331 

0333 

0334 

0336 



74FF 

7016 

OCOO 

C400 

E4C0 

4C20 

4400 

05 C8 

OCOO 

C400 

E400 

4C20 

3005 

64 CO 

6400 



015E 

0168 
016E 
02A2 
032B 
0434 

0168 
016E 
02A0 
0182 

0028 
018D 



0338 

0339 

033A 

033B 

033C 

033D 

033 E 

0340 

0342 

0344 

0345 

0346 

0348 

0349 

034A 

034C 

034D 

034F 

0351 

0353 

0355 

0357 

0359 

035A 

035B 

035C 

035D 

035F 

0361 

0363 

0365 

0367 

0368 

0369 

036B 

036D 













































































0000 

6B62 

D069 

285E 

086B 

D06C 

4C40 

OCOO 

C400 

E070 

F070 

4C18 

C061 

E064 

4C18 

C05E 

4C10 

OCOO 

C4C0 

E400 

4C20 

4400 

0512 

7004 

C04E 

F051 

4C98 

OCOO 

C400 

E400 

4C20 

C042 

€046 

4C18 

4400 

051E 



0340 
0168 
016E 



0430 



035F 

035B 
0168 
016E 
02A2 
0375 
0434 



0338 
0168 
016E 
02A2 
0375 



036E 
0434 



A 

STO 

STO 

EOR 

BSC 



MDX X2 

MDX 

XIO 

LD 

AND 

BSC 



RSOAH 

RSRAE 

RSACR 

RSAAH 

PARE7,Z 

-1 

RSACS 

RSQAF 

RSOAL 

RSRAG 

RSACU.Z 



* 
* 
* 

RSADA MDX L 

MDX 

XIO L 

LD L 

AND L 

BSC L 

BSI L 

DC 

RSADC XIO L 

LD L 

AND L 

BSC L 
RSQAW WAIT 

LDX L 

RSCCQ LDX L 

* INTERRUPT LEVEL ERROR 
* 



BRANCH WITH ADRE1 

LOOP ROUTINE FOR 5 PASSES 
LOOP RT IF SW 10 ON 



REPEAT SP ROUTINE 



CCMMON PROGRAM END 



RSFAB.-l 

RSCCQ 

RSQAF 

RSQAL 

RSRAX 

RSADCtZ 

LOG 

MES02 

RSQAF 

RSQAL 

RSRAH 

RSAOE.Z 

5 

/0028 

RSABH 



CK BYPASS LOG 



RSCCA DC 
STX 
STO 
STS 
XIO 
STO 



3 RSCCIE1 
RSSAA 
RSCCE 
RSSAC 

RSSAD 



BOSC L NEXT 
NEXT XIO L RSQAF 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



LD 
AND 
ECR 
BSC 
LD 
AND 
BSC 
LD 
BSC 
XIO 
LD 
AND 
BSC 
BSI 
DC 
MDX 
RSCCG LD 
EOR 
BSC 
RSCCB XIO 
LD 
AND 
BSC 
LD 
AND 
BSC 
BSI 
DC 



14N0V69 
431319 



RSQAL 

RSSAO 

RSSAP 

RSDDK,£- 

RSSAD 

RSSAE 

RSCCB, £- 

RSSAF 

RSCCG, - 

RSQAF 

RSQAL 

RSRAX 

RSCCD,Z 

LOG 

MES03 
RSCCB 
RSSAD 
RSSAE 
RSCCA, £- 
RSQAF 
RSQAL 
RSRAX 
RSCCD.Z 
RSSAD 
RSSAI 
'RSCCCE- 
LOG 
MES04 



PROG END 

CK LOOP SUB PROG SW 

LOOP PROG IF 11 ON 

LINK TO NEXT PROG 
LOOP PROGRAM 

ROUTINE 

RETURN ADDR TO MAIN LINE 

SAVE A 

STORE STATUS CARYEOFLO 

SENSE ILSW FOR LEVEL ERROR 

TEST FOR THE ILLEGAL 
SW COMBINATIONS— 13, 
14 ON AND 8 OFF 

BRANCH IF ILLEGAL 
RESTORE STATUS OF ILSW 
ISOLATE STGE PRT ERROR 
TEST FOR STORAGE PROT VIOL 

BYPASS PRINTOUT IF IN SP 
SW 13 TO BYPASS PRNT 

BYPASS PRINTOUT IF BRANCH 

ERROR INT-STORG PROT 

IF IN SP ROUTINE AN SP 

ERROR ONLY THEN RETURN TO 

MAINLINE 

SW 13 TO BYPASS PRNT 



BYPASS PRINTOUT IF BRANCH 
LOAD ILSW FOR ERROR INTRUP 
ISOLATE PARITY ERROR 

ERROR INT-PARITY 



8CA08180 

8CA08190 

8CA08200 

8CA08210 

8CA08220 

8CA08230 

8CA08240 

8CA08250 

8CA08260 

8CA08270 

8CA08280 

8CA08290 

8CA08300 

8CA08310 

8CA08320 

8CA08330 

8CA08340 

8CA08350 

8CA08360 

8CA08370 

8CA08380 

8CA08390 

8CA08400 

8CA08410 

8CA08420 

8CA08430 

8CA08440 

8CA08450 

8CA08460 

8CA08470 

8CA08480 

8CA084°.0 

8CA08500 

8CA08510 

8CA08520 

8CA08530 

8CA08 540 

8CA08550 

8CA08 560 

8CA08570 

8CA08580 

8CA08590 

8CA08600 

8CA08610 

8CA08620 

8CA08630 

8CA08640 

8CA08650 

8CA08660 

8CA08670 

8CA08680 

8CA08690 

8CA08700 

8CA08710 

8CA08720 

8CA08730 

8CA08740 

8CA08750 

8CA08760 

8CA08770 

8CA08780 

8CA08790 

8CA08800 

8CA08810 

8CA08820 

8CA08830 

8CA08840 

8CA08850 



PROG ID 
PAGE 
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036E 

036F 

0370 

0372 

0374 

0375 

0377 

0379 

037A 

037C 

037D 

037E 

037F 

0380 

0381 

0382 

0383 

0385 

0386 

0387 

0389 

038A 

038B 

038C 

038E 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

039A 

0398 

039D 

039F 

03A0 

















































































C03B 
E040 
4C18 
4400 
0528 
OCOO 
C400 
E037 
4CA0 
C02D 
180C 
E835 
D01F 
6A1D 
C028 
E02D 
4C20 
C024 
E01B 
4C20 
6210 
6301 
CO AC 
F700 
4C18 
7301 
72FF 
70F8 
COOF 
D023 
7001 
6B21 
C020 
1890 
COO A 
2000 
67C0 
66 00 
3000 
4C80 



0375 

0434 

0168 
016E 

0338 



039B 



039B 



03B8 
0396 



0000 
0000 



0338 



03A2 1000 
03A3 FFFF 



03A4 

03A6 

03A8 

03A9 

03AA 

03AB 

03AC 

03AD 

03AE 

03AF 

03B0 

03B1 

03B2 

03B3 

03B4 

03B5 

03B6 

03 B7 

03B8 

03B9 

03BA 

03BB 

03BC 



0000 
0002 
0000 
0300 
OOCO 
FFFF 
FFFF 
0002 
2000 
4000 
80C0 
0002 
00 OC 
0001 
3000 
0086 
0006 
5555 
0000 
0194 
01D0 
01EE 
024A 



08CA-2 
7 



\ 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



RSCCC LD 
AND 
BSC 
BSI 
DC 
RSCCD XIO 
LD 
AND 
BSC 
LD 
SRA 
OR 
STO 
STX 
LD 
AND 
BSC 
LD 
AND 
BSC 
LDX 
LDX 
RSCCJ LD 
EOR 
BSC 
MDX 
MDX 
MDX 
LD 
STO 
MDX 
RSCCK STX 
LD 
SRT 
LD 
RSCCE LDS 
RSCCI LDX 
LDX 
RSCCH WAIT 

BSC 
* 

RSSAR DC 
TBL1 DC 

* STORAGE 

* 

RSSAA DC 

BSS 
RSSAC DC 
DC 
RSSAD DC 
RSSAF DC 
RSSAG DC 
RSSAH DC 
RSSAE DC 
RSSAI DC 
RSSAJ DC 
RSSAK DC 
RSSAL DC 
RSSAM DC 
RSSAN DC 
RSSAO DC 
RSSAP DC 
RSSAQ DC 
TBL DC 

DC 

DC 

DC 

DC 



14N0V69 
431319 



L 
L 

L 

L 



RSSAD 

RSSAJ 

RSCCD, £- 

LOG 

MES05 

RSQAF 

RSQAL 

RSSAK 

1 RSCCA, Z 
RSSAD 
12 

RSSAN 
RSCCH 

2 RSCCIE3 

RSSAD 

RSSAJ 
L RSCCI, Z 

RSSAD 

RSSAR 
L RSCCI, Z 

2 16 

3 1 
RSCCA 

L3 TBL 
L RSCCK, E- 
3 1 

2 -1 
RSCCJ 
TBL1 
TBL 
RSCCKE1 

3 TBL 
TBL 
16 

RSSAA 


.3 
.2 

! RSCCA 



TEST FOR INVALID OP CODE 
ISOLATE INV OP ERROR 

?RROR INT-INV OP CODE 
IF SW 14 OFF, STORE 

ACCUM, INS CTR, STATUS 
AND WAIT 

LOAD ILSW FOR ERROR 
PLACE BITS 0-3 OF ILSW IN 
12-15 AND OR IN WAIT OP 
STORE IN WAIT 



RESTORE ACCUM CONTENTS 
RESTORE OFLOECARRY INDICA 



/1000 
/FFFF 

AREAS FOR ER 


E 2 

/oooo 

/0300 



-1 
-1 

2 

/2000 

/4000 

/8000 

/0002 

12 

1 

/3000 

/0086 

/0006 

Z5555 



SPVE1E2 

SPVE2E2 

SPVE3C2 

SPVE4E2 



RETURN TO MAINLINE 

ROR ROUTINES 

SAVED ACCUMULATOR BUFFER 

SENSE ILSW FOR 

LEVEL ZERO 

STORAGE FOR ILSW 

IN SP ROUTINE -1N0, 2YES 

NOT IN SP ROUTINE 

IN STORAGE PROTECT ROUTIN 

ISOLATE SW 14 



PART NO. 2183320 
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WAIT INSTRUCTION 
SWITCHES 8, 13, 14 
SWITCHES 13, 14 



ERROR ID 



8CA08860 

8CA08870 

8CA08880 

8CA08890 

8CA08900 

8CA08910 

8CA08920 

8CA08930 

8CA08940 

8CA08950 

8CA08960 

8CA08970 

8CA08980 

8CA08990 

8CA09000 

8CA09010 

8CA09020 

8CA09030 

8CA09040 

8CA09050 

8CA09060 

8CA09070 

8CA09080 

8CA09090 

8CA09100 

8CA09110 

8CA09120 

8CA09130 

8CA09140 

8CA09150 

8CA09160 

8CA09170 

8CA09180 

8CA09190 

8CA09200 

8CA09210 

8CA09220 

8CA09230 

8CA09240 

8CA09250 

8CA09260 

8CA09270 

8CA09280 

8CA09290 

8CA09300 

8CA09310 

8CA09320 

8CA09330 

8CA09340 

8CA09350 

8CA09360 

8CA09370 

8CA09380 

8CA09390 

8CA09400 

8CA09410 

8CA09420 

8CA09430 

8CA09440 

8CA09450 

8CA09460 

8CA09470 

8CA09480 

8CA09490 

8CA09500 

8CA09510 

8CA09520 

8CA09530 



PROG ID 
PAGE 



08CA-2 
7A 



v IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

r HI CORE FUNCTION TEST 

I 

r 



PART NO. 2183320 
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*. - 


03B0 0252 




DC 




SPVE5E2 




03BE 027A 




DC 




SPVE6E2 


t r 


03BF 02C1 




DC 




SPVE7E2 


t . 


03C0 02F2 




DC 




SPVE8E2 




03C1 019F 




DC 


© 


PARE1E2 


S 


03C2 01D2 




DC 




PARE2E2 


K .. 


03C3 01F2 




DC 




PARE3E2 




03C4 0264 




DC 




PARE4E2 


,r 


03C5 02BC 




DC 




PARE5E2 


\ _ 


03C6 02C3 




DC 




PARE6E2 




03C7 02ED 




DC 




PARE7E2 


r 


03C8 02F4 




DC 




PARE8E2 


{ . 


03C9 01A2 




DC 




0ATE1 




03CA 01D4 




DC 




DATE2 


r r 


03CB 01F5 




DC 




DATE3 


V <- 


03CC 026B 




DC 




DATE4 




03CD 02C6 




DC 




DATE5 


cC 


03CE 02F6 


if, 


DC 




DATE6 






* ERROR ROUTINE TO SE 


r r 




* 








f 


03CF 0000 


RSODC 


DC 









03D0 6B4A 




STX 


3 


RSDDAE1 


s 


03D1 6A4B 




STX 


2 


RSDDAE3 


V «. 


03D2 2859 




STS 




RSDDJ 




0303 OCOO 0168 




XIO 


L 


RSOAF 


€ r 


0305 C400 016E 




LD 


L 


RSQAL 




03D7 EODO 




AND 




RSSAO 




03D8 FOOD 




EOR 




RSSAP 


r r 


03D9 4C18 0430 




BSC 


L 


RSDDK,E- 


C^ 


03DB OCOO 0168 




XIO 


L 


RSQAF 




03DD C400 016E * 




LD 


L 


RSQAL 


^ 


03DF E400 02A2 




AND 


L 


RSRAX 


c 


03E1 4C20 040A 




BSC 


L 


RSDDX, Z 




03E3 C480 03CF 




LD 


I 


RSDDD 


^ 


03E5 4C04 03EB 




BSC 


L 


RSDDE, E 


c 


03E7 44C0 0434 




BSI 


L 


LOG 




03E9 0535 




DC 




MES06 


„/■ 


03EA 701F 




MDX 




RSDDX 


c^ 


03EB 1801 


RSDDE 


SRA 




1 




03EC 4C04 03F2 




BSC 


L 


RSDDF, E 


^ 


03EE 4400 0434 




BSI 


L 


LOG 


{. 


03F0 0539 




DC 




MES07 




03F1 7018 




MDX 




RSDDX 


^r 


03F2 1801 


RSDDF 


SRA 




1 


C^ 


03F3 4C04 03F9 




BSC 


L 


RSDDG, E 


*» 


03F5 4400 0434 




BSI 


L 


LOG 


* r 


03F7 053D 




DC 




MES08 


c~ 


03F8 7011 




MDX 




RSDDX 




03F9 1801 


RSDDG 


SRA 




1 


#*- 


03FA 4C04 0400 




BSC 


L 


RSDDH, E 


m "*•>» 


03FC 4400 0434 




BSI 


L 


LOG 




03FE 0541 




DC 




MES09 


^ 


03FF 700A 




MDX 




RSDDX 


c^ 


0400 1801 


RSDDH 


SRA 




1 




0401 4C04 0407 




BSC 


L 


RSDDI, E 


,r~ 


0403 4400 0434 




BSI 


L 


LOG 


c 


0405 C545 




DC 




MES10 




0406 7003 




MDX 




RSDDX 


M r 


0407 4400 0434 


RSDDI 


BSI 


L 


LOG 


c^ 


0409 0549 




DC 




MESH 




040A 6311 


RSDDX 


LDX 


3 


17 


,r 


040B 6206 




LDX 


2 


6 


C 


040C C0C2 


RSODC 


LD 




RSDDD 




040D 90A4 




S 




RSSAL 


,f 


040E F700 03B8 


RSDDB 


EOR 


L3 


TBL 


C^ 


0410 4C18 0418 




BSC 


L 


RSDDL.C- 


, DATE 


0412 7301 




MDX 


3 


1 


01JUL66 15MAY67 


14N0V69 






t „ EC NO. 


415178 411731 


431319 







INE TO SERVICE NON-INTERRUPT ERRORS 



STORAGE FOR RETURN ADORES 



STORE STATUS OFLOECARRY 
TEST FOR THE ILLEGAL 
SW COMBINATIONS — 13, 
14 ON AND 8 OFF 

BRANCH IF ILLEGAL 
SW 13 TO BYPASS PRNT 



BYPASS PRINTOUT IF BRANCH 
LOAD ERROR EXIT WORD 



ER 1 



ER 2 



ER 3 



ER 4 



ER 5 



ER 6 



CORRECT I REG 



8CA09540 

8CA09550 

8CA09560 

8CA09570 

8CA09580 

8CA09590 

8CA09600 

8CA09610 

8CA09620 

8CA09630 

8CA096A0 

8CA09650 

8CA09660 

8CA09670 

8C A 09680 

8CA09690 

8C A 09700 

8CA09710 

8CA09720 

8CA09730 

8CA09740 

8CA09750 

8CA09760 

8CA09770 

8CA09780 

8CA09790 

8CA09800 

8CA 09810 

8CA09820 

8CA09830 

8CA09840 

8CA09850 

8CA09860 

8CA09870 

8CA09880 

8CA09890 

8CA09900 

8CA09910 

8CA 09920 

8CA09930 

8CA09940 

8CA09950 

8CA09960 

8CA09970 

8CA09980 

8CA09990 

8CA10000 

8CA10010 

8CA10020 

8CA10030 

8CA10040 

8CA10050 

8CA10060 

8CA10070 

8CA10080 

8CA10090 

8CA10100 

8CA10110 

8CA10120 

8CA10130 

8CA10140 

8CA10150 

8CA10160 

8CA10170 

8CA10180 

8CA10190 

8CA10200 

8CA10210 



PROG ID 
PAGE 



! IBK MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
HI CORE FUNCTION TEST 



, 



08CA-2 
8 



0413 72FF 




MDX 


2 


-1 


0414 70F7 




MDX 




RSDDC 


0415 C08D 




LD 




TBL I 


0416 D0A1 




STO 




TBL 


0417 7001 




MDX 




RSDDLE1 


0418 6B9F 


RSDDL 


STX 


3 


TBL 


0419 C09E 




LD 




TBL 


041A 6700 0000 


RSDDA 


LDX 


L3 





041C 6600 0000 




LDX 


L2 





041E 1890 




SRT 




16 


041F COAF 




LD 




RSDDD 


0420 8092 




A 




RSSAM 


0421 DOAD 




STO 




RSDDD 


0422 OCOO 0168 




XIO 


L 


RSQAF 


0424 C400 016E 




LD 


L 


RSQAL 


0426 E400 03B1 




AND 


L 


RSSAK 


0428 4CA0 03CF 




BSC 


I 


RSDDD, Z 


042A C400 022A 




LD 


L 


RSQAN 


042C 2000 


RSDDJ 


LDS 







042D 300B 


WAITB 


DC 




/300B 


042E 4C80 03CF 




BSC 


I 


RSDDD 


0430 C086 


RSDDK 


LD 




RSSAQ 


0431 3006 


RSWSC 


WAIT 




6 


0432 4C40 0141 


BOSC 


L 


RSDKS 



INCREMENT RETURN ADDRESS 

TO SKIP CALL DC 

IF SW 14 OFF SET UP 

INDICATOR LAMPS AND WAIT 

RELOAD A REG AS PER ERROR 
SAVE CARYEOFLO STATUS 



TIONS 13E14 ON 8 OFF 
fv _ RESET INTER-RETURN START 

***************** s**************^^* ******** 

* LOG ROUTINE * 

***********************************„,„. .j.^.,,,^^ 

* 



0434 
0435 
0436 
0438 
043A 
043 B 



0000 

6B1C 

OCOO 0168 

C400 016E 

1009 

4C10 0457 



LOG 
L0G01 



043D C480 0434 
043F D052 

0440 084D 

0441 4C04 0447 

0443 1801 

0444 4C04 0449 

0446 7004 

0447 3007 

0448 70F7 

0449 3009 
044A 70F5 

044B 0846 

044C 0843 
044D 1002 
044E 4810 
044F 70FC 

0450 083D 



0451 6700 0000 
0453 7401 0434 

0455 4C80 0434 

0457 1010 

0458 D032 



DC 

STX 

XIO 

LD 

SLA 

BSC 

LD 

STO 



LOG02 XIO 
BSC 
SRA 

BSC 
MDX 



* 
L0G03 



WAIT 
MDX 



L0G04 WAIT 
MDX 

* 

LOG05 XIO 

* 

XIO 
SLA 
BSC 
MDX 
XIO 

* 

* 




1 L0G06E1 
RSQAF 
RSQAL 
9 
TWRTR,- 

LOG 
PRWRT 

PRSNS 

L0G03.E 

1 

L0G04.E 

L0G05 

7 
LOG02 

9 
LOG 02 

PRWRT 

PRSN 
2 

*-4 
PRSNS 



SAVE IX 3 



SE 



BRANCH IF 1053 OUTPUT 

GET MESSAGE ADDRESS 
SET IN IOCC 

CHECK PRINTER READY 
BRANCH IF NOT READY 

BRANCH IF BUSY 
READY AND NOT BUSY 



CHECK AGAIN 

CHECK AGAIN 
OUTPUT MESSAGE 
CHECK FOR CP COMPLT 

RESET DSW 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



L0G06 LDX 
MDX 

* 

BSC 

* 

TWRTR SLA 
STO 



14N0V69 
431319 



L3 
L 



PRINTING COMPLETE 

RESTORE IX 3 

L0G,1 BUMP RETURN 



PART NO. 2183320 
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I LOG 

16 

WRDSW 



RETURN TO USER 



SX 



8CA10220 

8CA10230 

8CA10240 

8CA10250 

8CA10260 

8CA10270 

8CA10280 

8CA10290 

8CA10300 

8CA1O310 

8CA10320 

8CA10330 

8CA10340 

8CA10350 

8CA10360 

8CA10370 

8CA10380 

8CA10390 

8CA10400 

8CA10410 

8CA10420 

8CA10430 

8CA10440 

8CA10450 

8CA10460 

8CA10470 

8CA10480 

8CA1049O 

8CA10500 

8CA10510 

8CA10520 

8CA10530 

8CA10540 

8CA10550 

8CA10560 

8CA10570 

8CA10580 

8CA10590 

8CA10600 

8CA10610 

8CA10620 

8CA10630 

8CA10640 

8CA10650 

8CA10660 

8CA10670 

8CA10680 

8CA10690 

8CA10700 

8CA10710 

8CA10720 

8CA10730 

8CA10740 

8CA10750 

8CA10760 

8CA10770 

8CA10780 

8CA10790 

8CA10800 

8CA10810 

8CA10820 

8CA10830 

8CA10840 

8CA10850 

8CA10860 

8CA10870 

8CA10880 

8CA10890 



PROG ID 
PAGE 



08CA-2 
8A 






r 

IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
f HI CORE FUNCTION TEST 



r 
r 
r 
r 



r- 



i 



r 



ki 



r 






r 
* 






cC 



cl 






cC 

/ DATE 
C-~ EC NO. 



0459 083A 
045A 1005 
045B 180F 
045C AC 18 0460 

045E 300A 
045F 70F9 

0460 C028 

0461 D02A 

0462 0833 

0463 0830 

0464 180B 

0465 4804 

0466 70FC 

0467 6301 

0468 C480 0434 
046A D001 

046B C7C0 0000 
0460 D400 04C8 
046F F01A 
0470 4C18 0451 



0472 4400 0498 



0474 C400 04C8 
0476 DO 15 



0477 081E 

0478 0*081B 

0479 180B 
047A 4804 
047B 70FC 



047C COOE 
047D 4804 
047E 7006 



047F COOC 

0480 1008 

0481 DOOA 

0482 7401 048B 
0484 70F2 



0485 7301 

0486 7401 048B 
0488 70E2 



0489 8103 
048A FFFF 
048B 0000 





XIO 




TWSNS 




SLA 




5 




SRA 




15 




BSC 


L 


TWROi.C- 


* 








WAITA 


DC 




/300A 




MDX 




TWRTR62 


* 








TWR01 


LD 




TWRTO 




STO 




IOARA 


* 










XIO 




"twwrt 


* 










XIO 




TWSNS 




SRA 




11 




BSC 




E 




MDX 




*-4 


* 










LDX 


3 


1 




LD 


I 


LOG 


^c 


STO 




TWR02G1 


THR02 


LD 


L3 







STO 


L 


COD WD 




EOR 




TWRT1 




BSC 


L 


L0G06.G- 



CHECK IF TYPEWRITER 
READY 



CARRAIGE RETURN AND 
LINE SPACE TO 10 ARA 

CARG RETURN/LINE SP 

HANG TILL NOT BUSY 



BYPASS 1443 WORD COUNT 
GET MESSAGE ADDRESS 



GET WORD TO PRINT 
SET IN CONVERSION RT 
CHECK IF TERMINATOR 
BRANCH IF TERMINATOR 

* 

********************************************* 

BSI L CODCV GO CONVERT 43 TO TW SRC 

********************************************* 

* 



01JUL66 
415178 



15MAY67 
411731 



LD 
STO 

* 

* 

XIOWR XIO 

* 

XIOSN XIO 
SRA 
BSC 
MDX 

* 

* 

LD 

BSC 

MDX 

* 

LD 

SLA 

STO 

MDX 

MDX 

* 

* 

* 

TWR03 MDX 
MDX 
MDX 

* 

* 

* 

TWRTO DC 

TWRT1 DC 

WRDSW DC 



14N0V69 
431319 



CCDWD 
IOARA 



TWWRT 

TWSNS 
11 
E 
XIOSN 



OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUSY 

BUSY 

CHECK IF 1ST 1/2 WORD 

WRDSW GET 1/2 WORD SWITCH 

E 

TWR03 GO SET UP NEXT WORD 

SET UP FOR 2ND 1/2 WORD 

POSITION 2ND 1/2 WD 



IOARA 
8 

IOARA 
WRDSW, 1 
XIOWR 



BUMP WORD SWITCH 
GO WRITE 2ND 1/2 WD 



SET UP FOR NEXT WORD 



3 1 

L WRDSW, 1 
TWR02 



/8103 
/FFFF 





NEXT WORD INDEX 
BUMP WORD SWITCH 
GO GET NEXT WORD 



LOG 



CONSTANTS 



LINE SP/CARRAIGE RTN 

TERMINATOR 

1/2 WORD SWITCH 
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8CA10900 
8CA10910 
8CA10920 
8CA10930 
8CA10940 
8CA10950 
8CA10960 
8CA10970 
8CA10980 
8CA10990 
8CA11000 
8CA11010 
8CA11020 
8CA11030 
8CA11040 
8CA11050 
8CA11060 
8CA11070 
8CA11080 
8CA11090 
8CA11100 
8CA11110 
8CA11120 
8CA11130 
8CA11140 
8CA11150 
8CA11160 
8CA11170 
8CA11180 
8CA11190 
8CA11200 
8CA11210 
8CA11220 
8CA11230 
8CA11240 
8CA11250 
8CA11260 
8CA11270 
8CA11280 
8CA11290 
8CA11300 
8CA11310 
8CA11320 
8CA11330 
8CA11340 
8CA11350 
8CA11360 
8CA11370 
8CA11380 
8CA11390 
8CA11400 
8CA11410 
8CA11420 
8CA 11430 
8CA11440 
8CA11450 
8CA11460 
8CA11470 
8CA11480 
8CA11490 
8CA11500 
8CA11510 
8CA11520 
8CA11530 
8CA11540 
8CA11550 
8CA11560 
8CA11570 



PROG ID 
PAGE 



V 



_r 



r 

C 



cC 



,r 



cfi 



cC 



r 



r 



r 



r 



r 



r 



08CA-2 
9 



f 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FCR THE 1800 SYSTEM 
HI CORE FUNCTION TEST 



048 C 





0000 


048 E 




0000 


048E 





0000 


048F 





3701 


0490 





0000 


0491 





3700 


0492 





0000 


0493 





3500 


0494 





0000 


0495 





0F01 


0496 





04 8C 


0497 





0900 



0498 0000 

0499 6927 
049A 6A28 
049B 6B29 

049C 1010 
0490 D02B 
049E 6300 

049F C028 
04A0 1890 
04A1 C027 
04A2 4820 
04A3 1088 

04A4 1010 
04A5 1084 
04A6 D023 
04A7 6580 04CA 

04A9 1010 
04AA 1084 
04AB D01E 
04AC 6680 04CA 

04AE C500 04CD 
04B0 D001 

04B1 C600 0000 
04B3 0700 04CB 



04B5 
04B6 
04B8 
04BA 
04BB 



C013 

4C20 04BC 

7401 04C9 

7301 

70E3 



04BC COOE 
04BD 1008 
04BE E80D 
04BF D008 



04C0 
04C2 
04C4 



C 65C0 0000 
6600 0000 
C 6700 0000 



04C6 4C80 0498 



OUTPUT AREA 

PRINTER SENSE IOCC 

NON RESET SENSE 

PRINTER feRITE IOCC 

TYPEWTR SENSE IOCC 

DSW RESET PM01 

TYPEWTR kRITE IOCC 

WR TYPEWRITER p H0 2 



IOARA DC 

BSS E 

* 

PRSNS DC /OOOO 

DC /3701 

PRSN DC 

DC /3700 

PRWRT DC /OOOO 

DC /3500 

TWSNS DC /OOOO 

DC /0F01 

TWWRT DC IOARA 

DC /0900 

* 

******* ************************************** 

* 1443 CODE TO 1316/1053 * 

* CODE CONVERSION "OUTINE * 

*****************************:, ^S^*^.^.^^^ 

CODCV DC 

STX 

STX 

STX 

* 

SLA 

STO 
LDX 

* 

C0DC1 LD 
SRT 



LD 

BSC 

SLT 

SLA 
SLT 
STO 
LDX 

SLA 
SLT 
STO 
LDX 

LD 
STC 



1 C0DC4C1 

2 C0DC4G3 

3 CCDC4C5 

16 

LHIND 
3 

CODWD 

16 

LHIND 

Z 

8 

16 

4 
CODOO 

11 CODOO 

16 

4 

CODOO 

12 CODOO 

LI ZONE 
C0DC2CI 



SAVE INDEX REGS 



CLEAR LEFT HALF WORD 
♦INDICATOR 



SE 



C0DC2 LD L2 

STO L3 C0D01 

* 



DATE 

iv. EC NO. 



01JUL66 
415178 



15MAY67 
411731 



LD 
BSC 

MOX 
MDX 
MDX 

* 

C0DC3 LD 
SLA 
OR 
STO 

* 

C0DC4 LDX 
LDX 
LDX 

* 

BSC 

* 



14N0V69 
431319 



LHIND 
L C0DC3.Z 
L LHIND, 1 
3 1 
C0DC1 

C0D01 
8 

COD 02 
CODWD 

LI 
L2 
L3 

1 CODCV 



GET WORD TO CONVERT 
SET IN C 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO ACCUM 
IX 1 I ZONE 

DIGIT TO ACCUM 

IX 2 # DIGIT 

GET ZONE TABLE ADDRS 
SET IN CONVERSION WD 

GET,, CONVERTED CODE 

BRNCH IF RIGHT HALF 

GO CONVERT RIGHT HLF 
PACK CONVERTED CODES 



RESTORE INDEX REGS 



RETURN TO USER 



SX 
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8CA11580 

8CA11590 

8CA11600 

8CA11610 

8CA11620 

8CA11630 

8CAU640 

8CA11650 

8CA11660 

8CAU670 

8CA11680 

8CA11690 

8CA11700 

8CA11710 

8CA11720 

8CA11730 

8CA11740 

8CA11750 

8CA11760 

8CA11770 

8CA11780 

8CA11790 

8CA11800 

8CA11810 

8CA11820 

8CA11830 

8CA11840. 

8CA11850 

8CA11860 

8CA11870 

8CA11880 

8CA11890 

8CA11900 

8CA11910 

8CA11920 

8CA11930 

8CA11940 

8CA11950 

8CA11960 

8CA11970 

8CAU980 

8CA11990 

8CA12000 

8CA12010 

8CA12020 

8CA12030 

8CA12040 

8CA12050 

8CA12060 

8CA12070 

8CA12080 

8CA12090 

8CA12100 

8CA12110 

8CA12120 

8CA12130 

8CA12140 

8CA12150 

8CA12160 

8CA12170 

8CA12180 

8CA12190 

8CA12200 

8CA12210 

8CA12220 

8CA12230 

8CA12240 

8CA12250 



PROG ID 
PAGE 



08CA-2 
9A 



> 



S* 
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cC 




* 
* 






CONSTANTS 


8CA12260 
8CA12270 




cC 




* 








8CA12280 




04C8 0000 


COCWD DC 





WORO LOCATION 


8CA12290 






04C9 0000 


LHIND DC 





LEFT HALF INDICATOR 


8CA12300 




cC 


04CA 0000 


CODOO DC 





WORK AREA 


8CA12310 




04CB 0000 


CODO] 


DC 





CONVERTED LH CHARACT 


8CA12320 






04CC 0000 


COD02 DC 





CONVERTED RH CHARACT 


8CA12330 




cC 




* 








8CA12340 






# 








8CA12350 




• 




* 




1443 


TO 1816/1053 CODE 


8CA12360 




cC 




* 




CONVERSION TABLES 


8CA12370 






* 








8CA12380 






04CD 04D1 


ZONE 


DC 


ZONEN 


NO ZONE 


8CA12390 




cC 


04CE 04DC 




DC 


Z0NE1 


ZONE 


8CA12400 




04CF 04E7 




DC 


Z0NE2 


11 ZONE 


8CA12410 






04D0 04F1 




DC 


Z0NE3 


12 ZONE 


8CA12420 




cC 


04D1 0021 


ZONEN 


DC 


/0021 


SPACE 


8CA12430 
8CA12440 






04D2 OOFC 




DC 


/OOFC 


1 


8CA12450 




cC 


04D3 00D8 




DC 


/00D8 


2 


8CA12460 




04D4 OODC 




DC 


/OODC 


3 


8CA12470 






04D5 OOFO 




DC 


/OOFO 


4 


8CA12480 




cC 


04D6 00F4 




DC 


/00F4 


5 


8CA12490 




04D7 OODO 




DC 


/OODO 


6 


8CA12500 






04D8 CODA 




DC 


/00D4 


7 


8CA12510 




^ter^te,!- 


0409 00E4 




DC 


/00E4 


8 


8CA12520 




040 A 00 EO 




DC 


/OOEO 


9 


8CA12530 






04D8 00C4 




DC 


/00C4 





8CA12540 




e r 


04DC 0000 


Z0NE1 


DC 







8CA12550 




c^ 


04DD 0000 




DC 







8CA12560 






04DE 009A 




DC 


/009A 


s 


8CA12570 




cC 


04DF 009E 




DC 


/009E 


T 


8CA12580 




04E0 00B2 




DC 


/00B2 


U 


8CA12590 






04E1 00B6 




DC 


/00B6 


V 


8CA12600 




cC 


04E2 0092 




DC 


/0092 


W 


8CA12610 




04E3 0096 




DC 


/0096 


X 


8CA12620 






04E4 00A6 




DC 


/00A6 


Y 


8CA12630 




c<: 


04E5 00A2 




DC 


/00A2 


Z 


8CA12640 




04E6 0021 




DC 


/0021 


SPACE 


8CA12650 






04E7 0000 


Z0NE2 


DC 







8CA12660 




£ 


04E8 007E 




DC 


/007E 


J 


8CA12670 




04E9 005A 




DC 


/005A 


K 


8CA12680 






04EA 005E 




DC 


/005E 


L 


8CA12690 




cC 


04EB 0072 




DC 


/0072 


M 


8CA12700 




04EC 0076 




DC 


/0076 


N 


8CA12710 






04ED 0052 




DC 


/0052 





8CA12720 




cC 


04EE 0056 




DC 


/0056 


P 


8CA12730, 




04EF 0066 




DC 


/0066 


Q 


8CA12740 






04F0 0062 




DC 


/0062 


R 


8CA12750 




cC 


04F1 0000 


ZONE 3 


DC 







8CA12760 




04F2 003E 




DC 


/003E 


A 


8CA12770 






04F3 001A 




DC 


/001A 


B 


8CA12780 




cC 


04F4 001E 




DC 


/001E 


C 


8CA12790 




04F5 0032 




DC 


/0032 


D 


8CA12800 






04F6 0036 




DC 


/0036 


E 


8CA12810 




r r 


04F7 0012 




DC 


/0012 


F 


8CA12820 




C^ 


04F8 0016 




DC 


/0016 


G 


8CA12830 






04F9 0026 




DC 


/0026 


H 


8CA12840 




t r 


04FA 0022 




DC 


/0022 


1 


8CA12850 




V »w 


04FB 0086 




DC 


/0086 


ERROR 


8CA12860 






04FC 0000 




DC 


/OOOO 


PERIOD 


8CA12870 




r^ 




* 








8CA12880 




C — 


04FD 0009 


MES01 


DC 


9 


WORD CT 


8CA12890 






04FE 1213 




DC 


/1213 


ST 


8CA12900 




V *■» 


04FF 3129 




DC 


/3129 


AR 


8CA12910 




0500 1300 




DC 


/1300 


T 


8CA12920 




f DATE 


0501 3839 




DC 


/3839 


HI 


8CA12930 




01JUL66 15MAY67 


14N0V69 
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PAGE 


10 





0502 0033 




DC 




0503 2629 




DC 




0504 3500 




DC 




0505 1335 




DC 




0506 1213 




DC 


» 


0507 FFFF 




DC 




0508 0008 


MES02 DC 




0509 3525 




DC 




050A C 3400 




DC 




0503 "0 3839 




DC 


\ 


050C 0033 




DC 




050D 2629 




DC 




050E 3500 




DC 




050F 1335 




DC 




0510 1213 




DC 




0511 FFFF 


* 
MES02 


DC 




0512 OOOB 


1 DC 




0513 3529 




DC 




0514 2926 




DC 




0515 2900 




DC 




0516 3925 




DC 




0517 1300 




DC 




0518 1213 




DC 




0519 2629 




DC 




051 A 3700 




DC 




051B 2729 




DC 




051C 2613 




DC 




051D FFFF 


* 
MFS04 


DC 




051E 0008 


DC 




051F 3529 




DC 




0520 2926 




DC 




0521 2900 




DC 




0522 3925 




DC 




0523 1300 




DC 




0524 2731 




DC 




0525 2939 




DC 




0526 1318 




DC 




0527 FFFF 


* 
MES05 


DC 




0528 OOOB 


DC 




0529 3529 




DC 




052A 2926 




DC 




052B 2900 




DC 




052C 3925 




DC 




052D 1300 




DC 




052E 3925 




DC 




052F 1500 




DC 




0530 2627 




DC 




0531 0033 




DC 




0532 2634 




DC 




0533 3500 




DC 




0534 FFFF 


* 
MES06 


DC 




0535 0002 


DC 




0536 3529 




DC 




0537 0001 




DC 




0538 FFFF 


* 
MES07 


DC 




0539 0002 


DC 




053A 3529 




DC 




053B 0002 




DC 




053C FFFF 


* 
MES08 


DC 




053D 0002 


DC 




053E 3529 




DC 


DATE 


01JUL66 15MAY67 


14N0V69 


EC NO. 


415178 411731 


431319 



/0033 


C 


/2629 


OR 


/3500 


E 


/1335 


TE 


/1213 


ST 


/FFFF 


TERM 


8 


WORD CT 


/3525 


EN 


/3400 


D 


/3839 


HI 


/0033 


C 


/2629 


OR 


/3500 


E 


/1335 


TE 


/1213 


ST 


/FFFF 


TERM 


11 


WD CT 


/3529 


ER 


/2926 


RO 


/2900 


R 


/3925 


IN 


/1300 


T 


/1213 


ST 


/2629 


OR 


/3700 


. G 


/2729 


PR 


/2613 


OT 


/FFFF 


TERM 


8 


WD CT 


/3529 


ER 


/2926 


RO 


/2900 


R 


/3925 


IN 


/1300 


T 


/2731 


PA 


/2939 


RI 


/1318 


TY 


/FFFF 


TERM 


11 


WD CT 


/3529 


ER 


/2926 


RO 


/2900 


R 


/3925 


IN 


/1300 


T 


/3925 


IN 


/1500 


V 


/2627 


OP 


/0033 


c 


/2634 


OD 


/3500 


E 


/FFFF 


TERM 


2 


WD CT 


/3529 


ER 


/OOOl 


1 


/FFFF 


TERM 


2 


WD CT 


/3529 


ER 


/0002 


2 


/FFFF 


TERM 


2 


WD CT 


/3529 


ER 



8CA12940 

8CA12950 

8CA12960 

8CA12970 

8CA12980 

8CA12990 

8CA13000 

8CA13010 

8CA13020 

8CA13030 

8CA13040 

8CA13050 

8CA13060 

8CA13070 

8CA13080 

8CA13090 

8CA13100 

8CA13110 

8CA13120 

8CA13130 

8CA13140 

8CA13150 

8CA13160 

8CA13170 

8CA13180 

8CA13190 

8CA13200 

8CA13210 

8CA13220 

8CA13230 

8CA13240 

8CA13250 

8CA13260 

8CA13270 

8CA13280 

8CA13290 

8CA13300 

8CA13310 

8CA13320 

8CA13330 

8CA13340 

8CA13350 

8CA13360 

8CA13370 

8CA13380 

8CA13390 

8CA13400 

8CA13410 

8CA13420 

8CA13430 

8CA13440 

8CA13450 

8CA13460 

8CA13470 

8CA13480 

8CA13490 

8CA13500 

8CA13510 

8CA13520 

8CA13530 

8CA13540 

8CA13550 

8CA13560 

8CA13570 

8CA13580 

8CA13590 

8CA13600 

8CA13610 



PROG ID 
PAGE 



08CA-2 
10A 



r 

i IBM MAINTENANCE DIAGNOSTIC PROGRAM FOP THE 1800 SYSTEM 

V HI CORE FUNCTION TEST 



r 

r 
r 
r 

r 

r 






c 



!cC 



5 cC 






cC 



cC 



CL 



cC 



cC 



/ OATE 
C - EC NO. 



053F 0003 
0540 FFFF 


DC 
OC 


/0003 
/FFFF 


0541 0002 


MES09 DC 


2 


0542 3529 

0543 0004 

0544 FFFF 


DC 

DC 
DC 

* 

MES10 DC 


/3529 
/0004 
/FFFF 


0545 0002 


2 


0546 3529 

0547 0005 

0548 FFFF 


DC 
DC 
DC 
* 

MES11 DC 


/3529 

/0005 
/FFFF 


0549 0002 


2 


054A 3529 
054B 0006 
054C FFFF 
0540 0000 


DC 

DC 

DC 

RSEND DC 


/3529 
/0006 
/FFFF 

o 


054E 0000 


DC 





RSDKR 
OVE ASS 


054F 0000 


DC 


0550 012D 
NO STATEMENTS 


END 
FLAGGED IN THE AB 



3 

TERM 

WD CT 
ER 
4 

TERM 



CT 



WD 
ER 
5 
TERM 



WD CT 
ER 
6 
TERM 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 
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8CA13620 

8CA13630 

8CA13640 

8CA13650 

8CA13660 

8CA13670 

8CA13680 

8CA13690 

8CA13700 

8CA13710 

8CA13720 

8CA13730 

8CA13740 

8CA13750 

8CA13760 

8CA13770 

8CA13780 

8CA13790 

8CA13800 

8CA13810 

8CA13820 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
HI CORE FUNCTION TEST 



PART NO. 2183320 
PAGE iu 






PROG ID 
PAGE 



08CA-2 
11 



CODCV 

C0DC1 

C0DC2 

C0DC3 

C0DC4 

CODWD 

CODOO 

COD01 

C0D02 

DAT El 

DATE2 

DATE3 

DATE4 

DATE5 

DATE6 

IOARA 

LHIND 

LOG 



0498 

049F 

04B1 

04BC 

04C0 

04C8 

04CA 

04CB 

04CC 

01A2 

01D4 

01F5 

026B 

02C6 

02F6 

04 8C 

04C9 

0434 



LOG01 

L0G02 

LOG03 

LOG04 

L0G05 

LCG06 

MES01 

MES02 

MES03 

MES04 

MES05 

MES06 

MES07 

MES08 

MES09 

MES10 

MESH 

NEXT 

PARE1 

PARE2 

PARE3 

PARE4 

PARE5 

PARE6 

PARE7 

PARE8 

PRSN 

PRSNS 

PRWRT 

RSAAB 

RSAAC 

RSAAD 

RSAAE 

RSAAH 

RSAAK 

RSAAL 

RSAAM 

RSAAN 

RSABA 

RSABB 

RSABC 

RSABD 

RSABE 

RSABF 

RSABG 

RSABH 

RSABI 

RSABJ 

RSABK 



0435 

0440 

0447 

0449 

044B 

0451 

04FD 

0508 

0512 

05 IE 

0528 

0535 

0539 

053D 

0541 

0545 

0549 

0340 

019D 

01 DO 
01F0 
0262 
02BA 
02C1 

02 EB 
02F2 
0490 
048E 
0492 
0153 
0158 
0159 
015A 
015B 
01 5C 
0160 
0164 
0166 
0171 
018E 
0190 
019A 
019C 
01AF 
01BD 
018D 
018B 
01E1 
0202 



0472 

04 BB 

04B0 

04B6 

0499 

046D 

04A6 

04B3 

04BE 

03C9 

03CA 

03CB 

03CC 

03CD 

03CE 

0461 

04 9D 

0188 

0455 



04C6 



049A 049B 
0474 049F 04BF 
04A7 04AB 04AC 
04BC 



0476 047F 0481 0496 

04A1 04B5 04B8 

0328 0357 036B. 0372 03E7 03EE 03F5 03FC 0403 0407 043D 0453 



044A 
3007 
3009 



C448 

0441 

0444 

0446 

0435 0470 

01 8A 

032A 

0359 

036D 

0374 

03 E9 

03F0 

03F7 

03FE 

0405 

0409 

033E 

03C1 

03C2 

03C3 

027C 03C4 

03C5 

03C6 

02FE 0308 0311 03C7 

03C8 

044C 

0440 

043 F 

014F 

0153 

0151 

0144 

013B 

0154 

0171 

0141 

013E 

0157 

01BE 

0199 

0195 

01AA 01B4 01BC 

01A2 

01B8 

01C5 0336 

0186 

01D4 

01F5 



0450 
044B 



0147 

0194 01B7 0211 0255 0286 02DF 030F 

0174 02A8 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



PROG ID 
PAGE 



08CA-2 
HA 
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r 
r 

S 
r 

r 
r 
r 
r 
r 

cC 
cC 



cC 



cC 



cC 
cC 






cC 






cC 



cC 



,r 
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RSABL 

RSABM 

RSABN 

RSABO 

RSABP 

RSABR 

RSACA 

RSACB 

RSACD 

RSACE 

RSACH 

RSACI 

RSACJ 

RSACK 

RSACL 

RSACM 

RSACN 

RSACO 

RSACP 

RSACR 

RSACS 

RSACT 

RSACU 

RSACV 

RSACH 

RSACX 

RSACY 

RSACZ 

RSAOA 

RSADB 

RSADC 

RSAOO 

RSAOE 

RSCCA 

RSCCB 

RSCCC 

RSCCD 

RSCCE 

RSCCG 

RSCCH 

RSCC1 

RSCCJ 

RSCCK 

RSCCQ 

RSDDA 

RSDDB 

RSODC 

RSDDD 

RSDDE 

RSDDF 

RSDOG 

RSDDH 

RSDDI 

RSDDJ 

RSDOK 

RSDDL 

RSDDX 

RSDKR 

RSDKS 

RSDKW 

RSEND 

RSFAA 

RSFAB 

RSFAC 

RSOAC 

RSQAD 

RSOAE 

RSOAF 



01 EB 

0210 

01CA 

0218 

01C8 

01C7 

0240 

02 3E 

0254 

026A 

0260 

022E 

022C 

0237 

025F 

02 D3 

02B7 

02BB 

0303 

02EC 

02AF 

0235 

02AE 

02A8 

02 8D 
023B 
0232 
0252 
031D 
0250 
032B 
024A 
0182 
0338 
035F 

03 6E 
0375 
039A 
035B 
039F 
039B 

03 8B 
0396 
0336 
041A 
040E 

04 OC 
03CF 
03 EB 

03 F2 
03F9 
0400 
0407 

04 2C 
0430 
0418 
04 C A 
01 2D 
0141 
013D 
054D 
015D 
015E 
015F 
01 6A 
016B 
01 6C 
0168 



01F0 0208 

020C 

01DC 01E7 0217 

0213 

0219 

0220 

0243 

02 5C 

C24C 

0266 

0273 0283 

02A5 

0222 
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) 



02 8C 
02 C6 
02CE 
02B2 
02F6 
02EA 
0314 
0231 
02AA 
02 A7 
023A 
0239 
02 A6 
024D 

02 AC 
0257 
0326 
0245 
0175 
016B 
034A 
0369 
0355 
033B 
C34D 

03 7F 
0339 
C392 
038E 
03 IF 
03D0 



02D8 02E1 
02DE 

030E 



031B 
0288 



0331 

035D 037A 038B 03A0 

035A 

0365 0370 



30C1 3002 3004 3008 
0380 0383 0387 



0395 
03D1 



0414 
01AC 
03 E5 
03 EC 
03F3 
03FA 
0401 
C3D2 
0346 
0410 
03E1 
0550 
0164 
013C 
02 BB 
01 8B 
018C 



01DE 01FF 0275 02D0 0300 03E3 040C 041F 0421 0428 042E 



03 D9 
0417 
03EA 03F1 03F8 03FF 0406 

0166 0432 

3003 

02 EC 

0310 



018E 019A 01C8 023B 025D 02AF 02E7 

0179 

0190 0191 0192 019C 019D 01A1 01B6 

0182 01A4 01AF 01BF 01D6 01E1 01F7 0202 021A 026D 027D 028D 02C8 



r DATE 
C - EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 
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08CA-2 
12 



RSQAG 
RSQAH 
RSQAI 
RSQAJ 
RSOAK 
RSQAI 



022B 
0225 
0226 
0227 
0228 
016E 



RSQAM 

RSOAN 

RSQAO 

RSQAP 

RSQAO 

RSQAR 

RSQAU 

RSQAV 

RSQAW 

RSRAA 

RSRAB 

RSRAC 

RSRAD 

RSRAE 

RSRAF 

RSRAG 

RSRAH 

RSRAI 

RSRAJ 

RSRAK 

RSRAX 

RSSAA 

RSSAC 

RSSAD 

RSSAE 

RSSAF 

RSSAG 

RSSAH 

RSSAI 

RSSAJ 

RSSAK 

RSSAL 

RSSAM 

RSSAN 

RSSAO 

RSSAP 

RSSAQ 

RSSAR 

RSWSC 

SPVE1 

SPVE2 

SPVE3 

SPVE4 

SPVE5 

SPVE6 

SPVE7 

SPVE8 

STGCK 

STGLP 

TBL 

TBL1 

TWRTR 

TWRTO 

TWRT1 

TWR01 

TWR02 

TWR03 

TWSNS 



0229 

022A 

0169 

016D 

0223 

0224 

016F 

0170 

0333 

02 9A 

02 9B 

02 SC 

02 A5 

029D 

029E 

029F 

02 AO 

02A1 

02A3 

02 A4 
02A2 

03 A4 
03A8 
03AA 
03AE 
03AB 
03AC 
03AD 
03AF 
03 BO 
03B1 
03B2 
03B3 
03 B4 
03B5 
03B6 
03 B7 
03A2 
0431 
0192 
01CE 
01EC 
0248 
0250 
0278 
02BF 
02F0 
0135 
0130 
03B8 

03 A3 
0457 
0489 

04 8 A 
0460 
046B 
0485 
0494 



02D3 

0436 

022D 

01CA 

01CD 

01E9 

01EA 

0168 

02CA 

0424 

0216 

019F 

0178 

0177 

0235 

0236 

017C 

017F 

3005 

0230 

0240 

0268 

0294 

0281 

02BE 

01C3 

03 2F 
01A8 
0260 
0261 
0184 
033A 
033C 
033D 
0349 
02B5 
02E3 
02 83 
0368 
036F 
0379 

04 OD 
0420 
037E 
0344 
0345 
0430 
0386 
3006 
03B9 
03BA 
020F 
03BC 
03BD 
0269 
03BF 
03C0 
012E 
0137 
03 8C 
0393 
C43B 
0460 
046F 
045C 
046A 
047E 
01 7D 



02F8 0303 0315 0320 032B 0340 034F 035F 0375 03D3 03DB 0422 

0292 0297 

01CB 01CE 01D0 01EC 01F0 0210 0215 

022C 

01EB 01EE 01F4 020A 020E 

0183 01A6 01B0 01C1 01D8 01E3 01F9 0204 021C 026F 027F 028F 

02D5 02FA 0305 0317 0322 032D 0342 0351 0361 0377 03D5 03DD 

0438 

02DB 030B 

01D2 01F2 0264 02C3 02F4 042A 



0237 



023E 0246 0248 024E 0250 0254 0259 025F 0262 

0242 

026A 02B7 02C5 

0298 

02B8 02BC 02BF 02C1 02DA 02DD 02E9 02ED 02F0 

02EF 

021E 0291 0319 



0278 0285 



02F2 030A 030D 



01B2 01DA 01E5 01FB 0206 0271 0281 02CC 02D7 02FC 0307 

027A 

0324 0353 0363 03DF 

0399 

0348 035B 0367 036E 037C 0381 0385 

035C 

02E5 034C 



0382 
0426 



03D7 
03D8 



03BB 



026B 03BE 



0394 0396 0397 040E 0416 0418 0419 

0415 

045F 



0488 

0459 0463 0478 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 
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r 
r 

r 
r 

r 



TWWRT 
WAITA 
WAITS 
WRDSW 



0496 
045E 
0*20 

048B 



XIOSN 0478 

XIOWR 0477 

ZONE 04CD 

ZONEN 04D1 



Z0NE1 04DC 

Z0NE2 

Z0NE3 

END OF ASSEMBLY 



04E7 04CF 
04F1 04D0 



0130 0*62 0477 

300A 

3008 

C458 C47C 0482 0486 

C478 

0484 

04AE 

04CD 

04CE 



LAST PAGE 



r- 

r 

r 
— 

r 

r 

f"' 
r 
r 

£**.. 

r 
r 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
41173X 



14N0V69 
431319 
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- IBM MAINTENANCE DIAGNCSTIC PRCGRAM FOR THE 1800 SYSTEM 
) °~ 9 C ° RE FUNCTI °N TEST 
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1 



c J 
c J 

a 

eO 



^3 

DOATE 
EC NO. 



3003 



ABS 
ORG 



/3003 



3003 0131 ^ DC RSDKWCl WAIT FOR SWITCHES. 



* 

* 

* 

* 

* 

* 

* 

* ■ 

* 

* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 

* 



INDEX REGISTER 1 (XI J 
CONTAINS THE CORE SIZE 
FOUND BY THE PROGRAM. 
SET DISPLAY REGISTER 
SWITCH TO XI IN ORDER 
TO DISPLAY THIS P/C 
CORE STORAGE SIZE. 

1. SET REQUIRED SWITCHES 

A. OPERATOR MONITOR-OFF 

B. DISABLE INTERRUPT-OFF 

C. CHECK STOP-OFF 

D. WRITE STORAGE 
PROTECT-YES 

E. ANY DESIRED DATA 
ENTRY SWITCHES. 

B14- BYPASS ERROR WAIT 
B13- BYPASS PRINTING 
Bll- LOOP SUBPROGRAM 
B 9- OUTPUT ON 1443 
B 8- LOOP ADDRESS 



3004 0000 



3005 020B 



2. PUSH START ^PROGRAM 
SHOULD LOAD< 
************************* ****„**„»„»„„„, <r „, <!i|[]> 

*. DC ° THIS WAIT IS NOT USED 

* IN THIS PROGRAM 
*«*************»*************„* w „ M „ w „ WlMMi 

^ DC RSQAWE1 PROGRAM END. 

SET SWITCHES TO LOAD 
0-9 CORE TEST. 



3006 0259 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

ILLEGAL COMBINATION 

OF DATA ENTRY SWITCHES. 



1. CHECK STOP-ON. 

2. PUSH START 20-9 CORE 
TEST SHOULD LOAD< 

NOTE 

IF NEXT PROGRAM IS TO BE 
LOADED BY A 1054, PLACE THE 
0-9 CORE TEST IN THE 1054 
BEFORE PUSHING START. 



DC 



RSWSCE1 



SSW 13 0N» SW 14 ON AND 
SW 8 OFF< 



3007 02A6 



01JUL66 
415178 



15MAY67 
411731 



PUSH START TO RERUN 

******** THE PROGRAM. 

*************»*******#**»*****« w ,„ WlWWWWiMi 

OC LOG0361 1443 NOT READY. 



14N0V69 
431319 



8CB00020 

8CB00030 

8CB00040 

8CB00050 

8CB00060 

8CB00070 

8CB00080 

8CB00090 

8CB00100 

8CB00110 

8CB00120 

8CB00130 

8CB00140 

8CB00150 

8CB00160 

8CB00170 

8CB00180 

8CB00190 

8CB 00200. 

8CB00210 

8CB00220 

8CB00230 

8CB00240 

8CB00250 

8C800260 

8CB00270 

8CB00280 

8CB00290 

8CB00300 

8CB00310 

8CB00320 

8CB00330 

8CB00340 

8CB00350 

8CB00360 

8CB00370 

8CB00380 

8CB00390 

8CB00400 

8CB00410 

8CB00420 

8CB00430 

8CB00440 

8CB00450 

8CB00460 

8CB00470 

8CB00480 

8CB00490 

8CB00500 

8CB00510 

8CB00520 

8CB00530 

8CB00540 

8CB0055O 

8CB00560 

8CB00570 

8C800580 

8CB00590 

8CB00600 

8CB00610 

8CB00620 

8CB00630 

8CB00640 

8CB00650 

8CB00660 

8CB00670 

8CB00680 

8CB00690 



PROG ID 
PAGE 
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6 

! 

D 
5 



i 



3008 0000 



3C09 02A8 



300A 02BD 



300B 0253 



* 

* MAKE 1443 READY AND 

PUSH STAPT 

*****************************„**„;„„„„„,„„„ 

* DC ° THIS WAIT IS NOT USED 

***************** * IN THIS PROGRAM 
*********************************♦•*****»*♦„,„„,„„„ 

^ DC LOG04G1 1443 BUSY. 

^ CLEAR 1443 AND PUSH 

: ************************* t !:l* s ** a :ll u *i* o * n ;^*****,* 

^ DC WAITAG1 1816 NOT READY. 

A MAKE 1816 READY AND 

***************************** JI**!;***^***..^^^ 

DC KAITBS1 DATA ERROR HAS BEEN 
DETECTED. 



08CB-2 
1 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



14N0V69 
431319 



USE THE Q REG TO FURTHER 
IDENTIFY THE ERROR. 



NOTE 



Q-REG 
0011 



0012 



0013 



DEPRESSING THE START BUTTON 
RETURNS THE PROGRAM TO THE 
TESTING SEQUENCE. ^NORMALLY 
AFTER THE ERROR WAIT OCCURS 
BIT SW 8 SHOULD BE TURNED ON TO 
LOOP ON THE ADDRESS THAT FAILED< 
*************************.**. ^^.I^ 

COMMENTS 

ROUTINE TO READ AND WRITE 
ADDRESS IN EACH CORE LOCATION 
FAILED. 

INDEX REGISTER 1 SHOWS THE 
CORRECT PATTERN AND THE CORE 
LOCATION WHICH FAILED. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 
*************** *********************.*. 

ATTEMPT TO SET CORE LOCATION 
TO ZEROS FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

*************************.**. *^*^ IM<]Mc#!![ 

BIT BY SIT ISOLATION TEST 
FAILED. 

INDEX REGISTER 2 SHOWS THE 
"*ECT PATTERN. 



8CB00700 

8CB00710 

8CB00720 

8CB00730 

8CB00740 

8CB00750 

8CB00760 

8CB00770 

8CB00780 

8CB00790 

8CB00800 

8CB00810 

8CB00820 

8CB00830 

8CB00840 

8CB00850 

8CB00860 

8CB00870 

8CB00880 

8CB00890 

8CB00900 

8CB00910 

8CB00920 

8CB00930 

8CB00940 

8CB00950 

8CB00960 

8CB00970 

8CB00980 

8CB00990 

8CB01000 

8CB01010 

8CB01020 

8CB01030 

8CB01040 

8CB01050 

8CB01060 

8C801070 

8CB01080 

8CB01090 

8CB01100 

8CB01110 

8CB01120 

8CB01130 

8CB01140 

8CB01150 

8CB01160 

8CB01170 

8CB01180 

8CB01190 

8CB01200 

8CB01210 

8CB01220 

8CB01230 

8CB01240 

8CB01250 

8CB01260 

8CB01270 

8CB01280 

8CB01290 

8CB01300 

8CB01310 

8CB01320 

8CB01330 

8CB01340 

8CB01350 

8CB01360 

8CB01370 
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/T\ 



C - IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



*v 0-9 CORE FUNCTION TEST 



cO 

cO 

cO 

cO 

cO 
cO 

%*--*.—/ 

C.J' 

cO 



PART NO. 2242271 
PAGE 2 



IBM MAINTENANCE DIAGNOSTIC PRCGRAM FOR THE 1800 SYSTEM 
0-9 CORE FUNCTION TEST 



cO 



KL^-.^F 



* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 
* 
* 
* 
* 
* 

* 



THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

0014 WORST CASE PATTERN ROUTINE 
FAILED. 

> 

THE CORRECT PATTERN IS EITHER 
0000 OR FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 

**********************************$;,,$. 

0015 WRITE ZEROS ON PROTECTED 
AREA OF FFFF ROUTINE FAILED. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

***********************************$$ 

0016 UNPROTECT AND CLEAR CORE OF 

ONES ROUTINE FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 



B-REG I-REG * PROG WAITS COMMENTS 

********* ********************************************, W „*„ #M[+<1!M . ]>]0(]C[:> 

* 

300C C 0181 OC WAITCE1 SET DISABLE INTERRUPT 

* SWITCH ON. 
***************************************** s^^.,,^^,,, 
* 

300D 01FD DC WAITDG1 SET DISABLE INTERRUPT 

* SWITCH OFF. 
********************************************* !M . $$,,,,,, 
* 

* MEMORY TEST- 0-9 CORE 

* 

.* SWITCH SETTING 

* 

* B14 

* B13 

* Bll 

* BIO 

* B9 

* B8 



* 
if 



OOATE 
EC NO. 



•^ 



01JUL66 
415178 



15MAY67 
411731 



BYPASS ERROR WAIT 
BYPASS PRINTING 
LOOP SUB PROGRAM 
LOOP ROUTINE 
OUTPUT ON 1443 

. LOOP AODRESS 

*********************************************$ +%1([ , ( „ (c 

***********************************************,,„,,,,.£ 
*******************************************„„ ( „ Mt , > . M[:<[ 



14N0V69 
431319 



8CB01380 

8CB01390 

8CB01400 

8CB01410 

8CB01420 

8CB01430 

8CB01440 

8CB01450 

8CB01460 

8CB01470 

8CB01480 

8CB01490 

8CB01500 

8CB01510 

8CB01520 

8CB01530 

8CB01540 

8CB01550 

8CB01560 

8CB01570 

8CB01580 

8CB01590 

8CB01600 

8CB01610 

8CB01620 

8CB01630 

8CB01640 

8CB01650 

8CB01660 

8CB01670 

8CB01680 

8CB01690 

8CB01700 

8CB01710 

8CB01720 

8CB01730 

8CB01740 

8CB01750 

8CB01760 

8CB01770 

8CB01780 

8CB01790 

8CB01800 

8CB01810 

8CB01820 

8CB01830 

8CB01840 

8CB01850 

8CB01860 

8CB01870 

8CB01880 

8CB01890 

8CB01900 

8CB01910 

8CB01920 

8CB01930 

8CB01940 

8CB01950 

8CB01960 

8CB01970 

8CB01980 

8CB01990 

8CB02000 

8CB02010 

8CB02020 

8CB02030 

8CB02040 

8CB02050 



PROG ID 
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012C 



ORG 



300 



012C 


CBOO 








DC 




/CBOO 


012D 


C850 




RSSTtt 


LDD 




RSAAN 


012E 


DC 00 


0000 






STD 


L 





0130 


3003 




RSDKW 


WAIT 




3 


0131 


C400 


0268 


RSSTA 


LD 


L 


RSNPP 


0133 


D400 


0267 






STO 


L 


RSPPC 


0135 


C400 


01CB 






LO 


L 


RSLAJ 


0137 


D400 


01C3 


♦ 




STO 


L 


RSLAA 








* 


DETERMINE 


MACHINE T 


0139 


C400 


01C6 






LD 


L 


RSLAE 


0133 


D400 


0003 






STO 


L 


3 


0130 


C 63C0 








LOX 


X3 





013E 


C400 


0003 






LD 


L 


3 


0140 


4C18 


0152 


* 




BSC 


L 


RS113.6- 








* 


1800 MODIFICATIONS 


0142 


C C033 








LO 




RSR18 


0143 


0400 


025F 






STO 


L 


RSRBSSl 


0145 


C032 








LO 




RSD18 


0146 


0400 


02F3 






STO 


L 


TWSNSE1 


0148 


C02E 








LD 




RST18 


0149 


D400 


02F5 






STO 


L 


TWWRTE1 


014B 


C02E 








LD 




WAITO 


014C 


D400 


0180 






STO 


U 


WAITC 


014E 


C400 


017B 






LD 


L 


WAIT1 


0150 


D400 


01FC 


£ 




STO 


L 


WAITD 








* 


LABEL TYPEOUT 


0152 


OCOO 


025E 


RS113 


XIO 


L 


RSRBS 


0154 


C400 


0260 






LD 


L 


RSBSB 


0156 


C E400 


G262 






AND 


L 


RSB10 


0158 


4C20 


015D 






BSC 


L 


RSOMStZ 


015A 


C 4400 


0292 






BSI 


L 


LOG 


015C 


03 5B 








DC 




MES12 



PID 



SET REQUIRED SWITCHE 



PR01 



PR02 



MEMORY 0-9 CORES 
*************** s********************************.,^ 

* * 

* CORE SIZE DETERMINER * 

* * 

*************************************************.,, 



08CB-2 
2 





015D 
015E 
015F 








6100 
C007 
D1FF 




RSDMS 

* 
STGLP 

* 
STGCK 

* 


LDX 

LD 

STO 


1 

1 




STGCKC1 

-I 




0160 
0162 
0163 
0164 









7500 
1000 
1010 
D1FF 


1000 


MOX 
NOP 
SLA 
STO 


LI 

1 


/1000 

16 
-1 




0165 
0167 






C400 
4C20 


FFFF 
0160 


LD 
BSC 


L 
L 


/FFFF 
STGLP, Z 




0169 





71FF 




* 

* 


MDX 


1 


-1 




016A 





1000 




* 
* 


NOP 









016B 
016C 
0160 
016F 








71FD 

1000 
6000 
6D00 


01C3 
01C4 


MDX 
NOP 
STX 
STX 


1 

LI 
LI 


-3 


RSLAA 
RSLAC 


DATE 
EC NO. 


01JUL66 15MAY67 
415178 411731 


14N0V69 
431319 







SET CONTROL INDEX 
GET CONSTANT FFFF 6 
IN MAXIMUM ADDRESS 



SET 



ADVANCE CONTROL INDEX 
SAFETY NOP FOR 32K CORE 
CLEAR ACCUMULATOR AND SET 
IN 4K CORE BLOCK MAX ADDR 

GET MAX CORE ADDRESS DATA 
CHECK IT FOR ZERO 
BRANCH LOOP IF NOT MAX 

DECREMENT XI TO ACTUAL 
MAXIMUM ADDRESS THIS CPU 

SAFTY NOP 

HI CORE ADDR -3 
SAFTY NOP 
SET CONTROL ADDR 
SET CONTROL AODR 



8CB02060 
8CB02070 
8CB02080 
8CB02090 
8CB02100 
8CB02110 
8CB02120 
8CB02130 
8CB02140 
8CB02150 
8CB02160 
8CB02170 
8CB02180 
8CB02190 
8CB02200 
8C802210 
8CB02220 
8CB02230 
8CB02240 
8CB02250 
8CB02260 
8CB02270 
8CB02280 
8CB02290 
8CB02300 
8CB02310 
8CB02320 
8CB02330 
8CB02340 
8CB02350 
. 8CB02360 
8CB02370 
8CB02380 
8CB02390 
8CB02400 
8CB02410 
8CB02420 
8CB02430 
8CB02440 
8CB02450 
8CB02460 
8CB02470 
8CB02480 
8CB02490 
8CB02500 
8CB02510 
8CB02520 
8CB02530 
8CB02540 
8CB02550 
8CB02560 
8CB02570 
8CB02580 
8CB02590 
8CB02600 
8CB02610 
8CB02620 
8CB02630 
8CB02640 
8CB02650 
8CB02660 
8CB02670 
8CB02680 
8CB02690 
8CB02700 
8CB02710 
8CB02720 
8CB02730 
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a J 

o 

tO 



9 t J 

h 

c -^ 



o 



DATE 
EC NO. 



0171 710E 

0172 1000 

0173 6D00 01C8 
0175 700A 



0176 
0177 
0178 
0179 
017A 
017B 
017C 
017E 



0240 
0902 
0F03 
0000 
300C 
300D 
0002 
4C00 0131 



0180 1000 



0181 
0182 
0184 
0186 
0188 
018A 
0188 



0180 
018E 
0190 
0192 
0193 
0195 
0196 
0198 
0199 



C043 

D480 01C4 
C480 01C4 
4C18 018B 
4400 0217 
70 F6 
4400 0274 



019B 
019C 
019E 
01A0 
01A1 
01A3 
01A4 
01A6 
01A7 



01A9 
01AA 
01AB 
01AC 
01AE 
01B0 
01B1 
01B3 



.C038 

D480 01C4 
C480 01C4 
F033 

4C18 0199 
F030 

4400 0217 
70F4 
4400 0274 



C028 

D480 01C4 
C480 01C4 
F023 

4C18 01A7 
F020 

4400 0217 
70F4 
4400 0274 



C020 
OOIC 
C01B 

D480 01C4 
C4 80 01C4 
F016 

4C18 01B7 
F013 



01JUL66 
415178 



15MAY67 
411731 



STORAGE FOR INITIALIZATIONS 



MDX 1 14 

NOP 

STX LI RSLAG 

MDX WAITC 
* 
* 
* 

RSR18 DC /0240 

RST18 DC /0902 

RSD18 DC /0F03 

RSZRO DC /OOOO 

WAITO DC /300C 

HAITI DC /300D 

BSS E 2 

RSAAN BSC L RSSTA 
* 

* WAIT TO TURN DISABLE 

* SWITCH TO ON POSITION 

* 

WAITC SLA 

* 

* MAIN ROUTINE 

* 

* LOAD ZEROS IN CORES 

* 



LOW 0-9 AODRESSES 
SAFTY NOP 

STORE MAX CORE SIZE 
BR TO CONTINUE 



1800 READ SWITCH 

1800 TYPE 

1800 TYPE DSW-RESET 

CONST ZERO 

WAIT INSTRUCTION 

WAIT INSTRUCTION 



INTERRUPT 
-1800 ONLY 

DISABLE INTERRUPTS 



RSR01 LD 

STO I 
LD I 
BSC L 

BSI L 
DATE1 MDX 
RS001 BSI L 

* 

* LOAD ONES 

RSR02 LD 

STO I 

LD I 

EOR 

BSC L 

EOR 

BSI L 
DATE2 MDX 
RSQ02 BSI L 

* 

RSR03 LD 

STO I 

LD I 

EOR 

BSC L 

EOR 

BSI L 
DATE3 MDX 
RSQ03 BSI L 
* 

* BIT ISOLATION ROUTINE 



RSLAD 

RSLAC 

RSLAC 

RSQ01.G- 

RSEOR 

RSR01 

RSLOP 

IN CORES 

RSLAE 

RSLAC 

RSLAC 

RSLAE 

RSQ02,£- 

RSLAE 

RSEOR 

RSR02 

RSLOP 



ACC#/0000 



ACC#/FFFF 



ADDRESSING ROUTINE 



RSLAC 

RSLAC 

RSLAC 

RSLAC 

RSQ03,C- 

RSLAC 

RSEOR 

RSR03 

RSLOP 



ACC#ADDRESS 



RSVBB LD 
STO 

RSR04 LD 
STO 
LD 
EOR 
BSC 
EOR 



14N0V69 
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RSLAI 

RSLAF 

RSLAF 

RSLAC 

RSLAC 

RSLAF 

RSQ04,£- 

RSLAF 



ACCUfBIT PATTERN 



8CB02740 

8CB02750 

8CB02760 

8CB02770 

8CB02780 

8CB02790 

8CB02800 

8CB02810 

8CB02820 

8CB02830 

8CB02840 

8CB02850 

8CB02860 

8CB02870 

8CB02880 

8CB02890 

8CB02900 

8CB02910 

8CB02920 

8CB02930 

8CB02940 

8CB02950 

8CB02960 

8CB02970 

8CB02980 

8CB02990 

8CB03000 

8CB03010 

8CB03O20 

8CB03030 

8CB03040 

8CB03050 

8CB03060 

8CB03070 

8CB03080 

8CB03090 

8CB03100 

8CB03110 

8CB03120 

8CB03130 

8CB03140 

8CB03150 

8CB03160 

8CB03170 

8CB03180 

8CB03190 

8CB03200 

8CB03210 

8CB03220 

8CB03230 

8CB03240 

8CB03250 

8CB03260 

8CB03270 

8CB03280 

8CB03290 

8CB03300 

8CB03310 

8CB03320 

8CB03330 

8CB03340 

8CB03350 

8CB03360 

8CB03370 

8CB03380 

8CB03390 

8CB03400 

8CB03410 



PROG ID 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
0-9 CORE FUNCTION TEST 



08CB-2 
3 



DATE 
' EC NO. 



01B4 
01B6 
01B7 
01B8 
01B9 
01BA 
01BC 
01BD 
01BE 
01C0 



01C1 
01C2 
01C3 
01C4 
01C5 
01C6 
01C7 
01C8 
01C9 
01CA 
01CB 



44C0 0217 

70F4 

COOF 

1801 

DOOD 

4C18 01BE 

70EE 

70EB 

4400 0274 

700B 



OOOD 
0003 
0800 
0000 
0000 
FFFF 
8000 
0000 
0001 
8000 
08 00 



01CC 

01CE 

01D0 

01D1 

0103 

01D5 

01D6 

01D8 

01D9 

01DA 

01DB 

01DD 

01DF 

01E1 

01E3 

01E4 

01E6 

01E7 

01E8 

01E9 

01EB 

01ED 

01EE 

01F0 

01F1 

01F3 

01F4 



C400 

D400 

6300 

C400 

4C18 

COEF 

D480 

2CC1 

01 C4 

COEB 

0480 

C480 

4C18 

4400 

70F1 

44C0 

2CC0 

01C4 

CODD 

D480 

C480 

F0D8 

4C18 

F0D5 

4400 

70F2 

4400 



01C6 
0003 

0003 
01F6 

01C4 



01C4 
01C4 
01E4 
0217 

0274 



01C4 
01C4 

01F4 

0217 

0274 



01F6 74FF 0*267 
01F8 7018 
01F9 C016 
01FA D400 0008 



01 FC 1000 
01FD 0860 
01FE C061 



01JUL66 
415178 



15MAY67 
411731 



BSI 
DATE4 MDX 
RSQ04 LD 
SRA 
STO 
BSC 
MDX 
MDX 
BSI 
MDX 



RSBIL 



STORAGE AREAS-1 



13 
3 

/0800 



/OOOO 

/FFFF 

/8000 



1 

/8000 

/0800 



STORAGE PROTECT TEST 



* 

* 

RSLAQ DC 
RSLAB DC 
RSLAA DC 
RSLAC DC 
RSLAD DC 
RSLAE DC 
RSLAF DC 
RSLAG DC 
RSLAH OC 
RSLAI DC 
RSLAJ DC 
* 
* 
* 

RSSPT LO 
STO 
LDX 
LD 
BSC 
RSR05 LD 
STO 
DC 
DC 
LD 
STO 
LD 
BSC 
BSI 
DATE5 MDX 
RSQ05 BSI 
RSR06 DC 
DC 
LO 
STO 
LO 
EOR 
BSC 
EOR 
BSI 
DATE6 MDX 
RSQ06 BSI 
* 

* PROGRAM 

* 

RSPER MDX 
MDX 
LD 
STO 

* 

* WAIT TO 

* TO OFF 

WAITD SLA 
RSPES XIO 
LD 



RSEOR 

RSR04 

RSLAF 

1 

RSLAF 

RSBILtt- 

RSR04 

RSVBB 

RSLOP 

RSSPT 



L RSLAE 

L 3 

X3 

L 3 

L RSPER, C- 

RSLAD 
I RSLAC 

/2CC1 

RSLAC 

RSLAE 
I RSLAC 
I RSLAC 
L RSQ05»C- 
L RSEOR 

RSR05 
L RSLOP 

/2CC0 

RSLAC 

RSLAE 
I RSLAC 
I RSLAC 

RSLAE 
L RSQ06.S- 

RSLAE 
L RSEOR 

RSR06 
L RSLOP 

ENO ROUTINE 

L RSPPC-1 

RSBTB 

RSRSX 
L /8 

TURN 01 SABLE 
P0SITI0N-1800 



RSRBS 

RSBSB 



NUMBER OF CORES TO TEST 
NUMBER OF CORES EELOW 
LOWEST ADDRESS TO TESTU-3 
ADDRESS UNDER TEST 



BIT PATTERN UNDER TEST 
HIGHEST ADDR TO TEST 9 

INITIALIZE BIT PATTERN 
INITIALIZE MEMORY SIZE 



ACC#/FFFF 

ACC#/0000 
STORAGE PRT-IA 
ACC # /FFFF 



CLEAR SP-IA 
ACC # /FFFF 



COUNT PRGM PASSES 



INTERRUPT SWITCH 
ONLY 

ENABLE INTERRUPTS 



PART NO. 2242271 
PAGE 3A 



14N0V69 
431319 



8CB03420 

8CB03430 

8CB03440 

8CB03450 

8CB03460 

8CB03470 

8CB03480 

8CB03490 

8CB03500 

8CB03510 

8CB03520 

8CB03530 

8CB0354O 

8CB03550 

8CB03560 

8CB03570 

8CB03580 

8CB03590 

8CB03600 

8CB03610 

8CB03620 

8CB03630 

8CB03640 

8CB03650 

8CB03660 

8CB03670 

8CB03680 

8CB03690 

8CB03700 

8CB03710 

8CB03720 

8CB03730 

8CB03740 

8CB03750 

8CB03760 

8CB03770 

8CB03780 

8CB03790 

8CBO3800 

8CB03810 

8CB03820 

8CB03830 

8CB03840 

8CB03850 

8CB03860 

8CB03870 

8CB03880 

8CB03890 

8CB03900 

8CB03910 

8CB03920 

8CB03930 

8CB03940 

8CB03950 

8CB03960 

8CB03970 

8CB03980 

8CB03990 

8CB04000 

8CB04010 

8CB04020 

8CB04030 

8CB04040 

8CB04050 

8CB04060 

8CB04070 

8CB04080 

8CB04090 



PROG ID 
PAGE 



08CB-2 
3A 



%*~J 



./"*< 



C IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
r 0-9 CORE FUNCTION TEST 

C J 



H-J 


01FF E062 




AND 




RSB10 




0200 4C20 0205 




BSC 


L 


RSBYP, Z 




0202 4400 0292 




BSI 


L 


LOG 


0204 0369 




DC 




MES13 




0205 0858 


RSBYP 


XIO 




RSRBS 




0206 C059 




LO 




RSBSB 


0207 E05E 




AND 




RSB14 




0208 4C20 0131 




BSC 


L 


RSSTA.Z 


,<"> 


020A 3005 


RSQAW 


WAIT 




5 


t _^ 


020B 64C0 0028 




LDX 


L 


/0028 


• 


020E 0000 




BSS 


E 







020E 0000 


RSSIC 


DC 







020F 0300 




DC 




/03C0 


■• 


0210 0213 


RSRSX 


DC 




RSRSI 


1« -w^ 


0211 6400 0181 


RSBTB 


LDX 


L 


RSR01 


0213 C 0000 


RSRSI 


DC 







1 


0214 08F9 




XIC 




RSSIC 


1 /""\ 


0215 4C40 01FD 


* 


BCSC 


L 


RSPES 


> 


- 


* ERROR ROUTINE 


t cD 


0217 C000 


* 
RSEOR 


DC 




/COOO 


t 


0218 6834 




STX 


3 


RSDDAE1 


,i %» -^h»*^ 


0219 6A35 




STX 


2 


RSDDAS3 


021A D046 




STO 




RSARB 


? 


0218 0842 




XIO 




RSRBS 


! CO 


021C C043 




LD 




RSBSB 


021D E045 




AND 




RSB11 


| 


021E 4C18 0222 




BSC 


L 


RSSBT, £- 


! cO 


0220 4C80 0?17 




BSC 


I 


RSECR 


0222 C03D 


RSSBT 


LD 




RSBSB 


i 


0223 E045 




AND 




RSKXA 


%* *-S 


0224 F045 




EOR 




RSKXB 


0225 4C18 0257 




BSC 


L 


RSILCE- 


, 


0227 7401 0217 




MDX 


L 


RSEOR.l 


t C-*^ 


0229 0834 




XIO 




RSRBS 


022A C035 




LD 




RSBSB 


- 


022B E036 




AND 




RSB10 


c «/ 


022C 4C20 0231 




BSC 


L 


RSS12.Z 


022E 4400 0292 




BSI 


L 


LOG 




0230 0376 




DC 




MES14 


(r%^ 


0231 082C 


RSS12 


XIO 




RSRBS 


0232 C02D 




LD 




RSBSB 


* 


0233 E030 




AND 




RSB12 




0234 4CC8 0238 




BSC 


L 


RSHOE, e 


0236 4C80 0217 




BSC 


I 


RSECR 




0238 691B 


RSHOE 


STX 


1 


RSERWS1 


cO 


0239 6580 01C4 




LDX 


11 


RSLAC 


023B 6311 




LDX 


3 


17 




023C 62FA 




LDX 


2 


-6 


%r-W? 


0230 CCD9 


RSDDC 


LD 




RSEOR 


023E 9400 01C9 




S 


L 


RSLAH 




0240 F6C0 0274 




EOR 


L2 


TBLS7 


(^■^r 


0242 4C18 024A 




BSC 


L 


RSDDL,£- 


0244 73C1 




MDX 


3 


1 




0245 7201 




MDX 


2 


1 


%*■**& 


0246 70F6 




MDX 




RSDOC 


0247 C024 




LD 




TBL1 




0248 0024 




STO 




TBL 


c3 


0249 7001 




MDX 




RSDDLG1 


024A 6B22 


RSDDL 


STX 


3 


TBL 




024B C021 




LD 




TBL 


«D 


024C 67C0 0000 


RSOOA 


LOX 


L3 





024E 66 CO 0000 




LDX 


L2 







0250 1890 




SRT 




16 


^3 


0251 COOF 




LD 




RSARB 


0252 300B 


HAITB 


WAIT 




/B 




0253 6500 0000 


RSERW 


LDX 


LI 





«D 












jrs DATE 
C^J EC NO. 


0UUL66 15MAY67 


14N0V69 






415178 411731 


431319 







PROG END 0-9 CORES 
LOOP PROG IF SW11 ON 



PROGRAM END 

LINK TO NEXT PROG 



RETURN ADDRESS FOR ERROR 



CK LCOP ON AODR SW 



CONTINUE IF 8 OFF 



CK BYPASS PRINT SW 



ERROR 

CK HALT ON ERR SW 14 



STORE INDEX REG 1 



CORRECT I REG 



PART NO. 2242271 
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8CB04100 

8CB04110 

8CB04120 

8CB04130 

8CB04140 

8CB04150 

8CB04160 

8CB04170 

8CB04180 

8CB04190 

8CB04200 

8CB04210 

8CB04220 

8CB04230 

8CB04240 

8CB04250 

8CB04260 

8CB04270 

8CB04280 

8CB04290 

8CB04300 

8CB04310 

8CB04320 

8CB04330 

8CB04340 

8CB04350 

8CB04360 

8CB04370 

8CB04380 

8CB04390 

8CB04400 

8CB04410 

8CB04420 

8CB04430 

8CB04440 

8CB04450 

8CB04460 

8CB04470 

8CB04480 

8CB 04490 

8CB04500 

8CB04510 

8CB04520 

8CB04530 

8CB04540 

8CB04550 

8CB04560 

8CB04570 

8CB04580 

8CB04590 

8CB04600 

8CB04610 

8CB04620 

8CB04630 

8CB04640 

8CB04650 

8CB04660 

8CB04670 

8CB04680 

8CB04690 

8CB04700 

8CB04710 

8CB04720 

8CB04730 

8CB04740 

8CB04750 

8CB04760 

8CB04770 



PROG ID 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
0-9 CORE FUNCTION TEST 



0255 


4C80 


0217 




BSC 


I 


RSEOR 


0257 


C013 




RSILC 


LD 




RSALT 


0253 


3006 




RSKSC 


WAIT 




6 


0259 


6400 


0131 


* 

* ST 

* 


LOX 


L 


RSSTA 








ORAGE 


AREAS-2 


025C 


00C2 




BSS 


E 


2 


025E 


0260 




RSRBS 


DC 




RSBSB 


025F 


3A40 






DC 




/3A40 


0260 


0000 




RSBSB 


DC 







0261 


0000 




RSARB 


DC 







0262 


0004 




RSB10 


DC 




/0004 


0263 


0080 




RSB11 


DC 




/0080 


0264 


0OC2 




RSB12 


DC 




/OO02 


0265 


0020 




RSB13 


DC 




/0020 


0266 


0010 




RSB14 


DC 




/0010 


0267 


0000 




RSPPC 


DC 







0268 


0032 




RSNPP 


DC 




50 


0269 


0086 




RSKXA 


OC 




/0086 


026A 


0086 




RSKXB 


DC 




/0086 


026B 


5555 




RSALT 


OC 




/5555 


026C 


FFFF 




TBL1 


DC 




/FFFF 


0260 


0000 




TBL 


OC 







026E 


018A 






DC 




DATE1 


026F 


0198 






DC 




DATE2 


0270 


01A6 






DC 




DATE3 


0271 


01B6 






DC 




0ATE4 


0272 


01E3 






OC 




0ATE5 


0273 


01F3 




* 


OC 




DATE6* 








* CH! 

* 

RSLOP 


ECK SWITCH 13 TO 


0274 


C 0000 




DC 







0275 


C400 


01C4 




LD 


L 


RSLAC 


0277 


F400 


01C8 




EOR 


L 


RSLAG 


0279 


4C18 


0285 




BSC 


L 


RSCSE, t- 


027B 


C400 


01C4 




LO 


L 


RSLAC 


027D 


8400 


01C9 




A 


L 


RSLAH 


027F 


D400 


01C4 




STO 


L 


RSLAC 


0281 


74FD 


0274 


" 


MDX 


L 


RSLOP, -3 


0283 


4C80 


0274 




BSC 


I 


RSLOP 


0285 


C400 


01C3 


RSCSE 


LD 


L 


RSLAA 


0287 


D400 


01C4 




STO 


L 


RSLAC 


0289 


0804 






XIO 




RSRBS 


028A 


C0D5 






LD 




RSBSB 


028B 


E0D9 






AND 




RSB13 


028C 


4C98 


0274 




BSC 


I 


RSLOP, E- 


028E 


74FD 


0274 




MDX 


L 


RSL0P,-3 


0290 


4C80 


0274 




BSC 


I 


RSLOP 



BIT SWITCH BUFFER 
SAVE A REG BUFFER 



CONSTANT 
STORAGE 



LCOP CN ROUTINE 



********************** 

* LOG 

******* *************** 



LOAD LCWEST ADDRESS 
CK LOOP RT SW 10 



*********************** 

ROUTINE * 

******* **************** 



0292 


0000 




0293 


6B1C 




0294 


OCCO 


025E 


0296 


C400 


0260 


0298 


1009 




0299 


4C10 


02B5 



LOG 



029B C480 0292 
0290 D052 

029E 0840 
029F 4C04 02A5 
02A1 1801 
02A2 4C04 02A7 



08CB-2 
4 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



DC 

STX 

XIO 

LD 

SLA 

BSC 

LD 
STO 



L0G02 XIO 
BSC 
SRA 
BSC 



14N0V69 
431319 





LOG06S1 

RSRBS 

RSBSB 

9 

TWRTR,- 

LOG 
PRWRT 

PRSNS 

LOG03,E 
1 

L0G04 f E 



SAVE IX 3 



SE 



BRANCH IF 1053 OUTPUT 

GET MESSAGE ADDRESS 
SET IN IOCC 

CHECK PRINTER READY 
BRANCH IF NOT READY 

BRANCH IF BUSY 



PART NO. 2242271 
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8CB04780 

8CB04790 

8CB04800 

8CB04810 

8CB04820 

8CB04830 

8CB04840 

8CB04850 

8CB04860 

8CB04870 

8CB04880 

8CB04890 

8CB04900 

8CB04910 

8CB04920 

8CB04930 

8CB04940 

8CB04950 

8CB04960 

8CB04970 

8CB04980 

8CB04990 

8CB05000 

8CB05010 

8CB05020 

8CB05030 

8CB05040 

8CB05050 

8CB05060 

8CB05070 

8CB05080 

8CB05090 

8CB05100 

8CB05110 

8CB05120 

8CB05130 

8CB05140 

8CB0515O 

8CB05160 

8CB05170 

8CB05180 

8CB05190 

8CB05200 

8CB05210 

8CB05220 

8CB05230 

8CB05240 

8CB05250 

8CB05260 

8CB05270 

8CB05280 

8CB05290 

8CB05300 

8CB05310 

8CB05320 

8CB05330 

8CB05340 

8CB05350 

8CB05360 

8CB05370 

8CB05380 

8CB05390 

8CB05400 

8CB05410 

8CB05420 

8CB05430 

8CB05440 

8CB05450 



PROG ID 
PAGE 



08CB-2 
4A 



C IBM 

f~s 0-9 



cO 



* tO 



cO 
cO 

cO 
cO 

cO 






cO 

cO 

cj 



MAINTENANCE DIAGNOSTIC 
CORE FUNCTION TEST 

02A4 7004 

02A5 3007 
02A6 C 70F7 

02A7 3009 
02A8 70F5 

02A9 0846 

02AA 0843 

02AB 1002 

02AC 4810 

02AD 70FC 

02AE 083D 



02AF 67C0 0000 
02B1 7401 0292 

02B3 4C80 0292 



PROGRAM FOR THE 1800 SYSTEM 



02B5 





1010 


02B6 





0032 


02B7 





083A 


02B8 





1005 


02B9 





18CF 


02BA 





4C18 02BE 


02BC 





300A 


02B0 





70F9 


02BE 





C028 


02BF 





D02A 


02C0 





0833 


02C1 





0830 


02C2 





180B 


02C3 





4804 


02C4 





70FC 


02C5 





63C1 


02C6 





C480 0292 


02C8 





D0C1 



MOX 

* 

L0G03 WAIT 

MDX 
* «#• 
L0G04 WAIT 

MDX 

* 

L0G05 XIO 

* 

XIO 
SLA 
BSC 
MDX 
XIO 

* 

LOG06 LDX 
MDX 

BSC 

* 

TNRTR SLA 
STO 

XIO 
SLA 
SRA 

BSC 

WAITA WAIT 

MDX 

* 

TWR01 LD 
STC 



L0G05 

7 
L0G02 

9 
LOG02 

PRWRT 

PRSN 
2 



READY AND NOT BUSY 

NOT READY 
CHECK AGAIN 

BUSY 

CHECK AGAIN 

OUTPUT MESSAGE 

CHECK FOR CP COMPLT 



*-4 
PRSNS 



RESET DSW 
PRINTING COMPLETE 



XIO 

XIO 
SRA 
BSC 

MDX 

LDX 
LD 

STO 



L3 

L L0G,1 

I LOG 

16 

WRDSW 
TWSNS 
5 

15 
L TWROltC- 

/A 

TWRTR£2 

TWRTO 
IOARA 

TWWRT 

TWSNS 
11 
E 
*-4 

3 1 
I LOG 

TWR02C1 



RESTCRE IX 3 
BUMP RETURN 

RETURN TO USER SX 



CHECK IF TYPEWRITER 
READY 



NOT READY 

CARRAIGE RETURN AND 
LINE SPACE TO 10 ARA 

CARG RETURN/LINE SP. 

HANG TILL NOT BUSY 



BYPASS 1443 «ORD COUNT 
GET MESSAGE ADDRESS 



02C9 C7C0 0000 
02CB D400 0326 
02CD F01A 
02CE 4C18 02AF 



02D0 4400 02F6 



L3 

L CODWD 
TWRT1 
L LOG06,£- 



GET WORD TO PRINT 
SET IN CONVERSION RT 
CHECK IF TERMINATOR 
BRANCH IF TERMINATOR 



*■■* ~**tlr 




02D2 C400 
02D4 D015 


0326 


LD L CODWD 

STO IOARA 

* 


cO 




02D5 08 IE 




* 
* 
XIOWR XIO 


TWWRT 


c3 




02D6 081B 
02D7 180B 
02D8 4804 
0209 70FC 




* 

XIOSN XIC 
SRA 
BSC 

HDX 

* 


TWSNS 
11 
E 
XIOSN 


«o 












/-s DATE 

C.V EC NO. 


01JUL66 15MAY67 
415178 411731 


14N0V69 
431319 





* 

TWR02 LD 

STO 

EOR 

BSC 

♦♦a****************************************** 

BSI L CODCV GO CONVERT 43 TO TW SRC 

*************************************** ****** 



OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUSY 



BUSY 
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8CB05460 

8CB05470 

8CB05480 

8CB05490 

8CB05500 

8CB05510 

8CB05520 

8CB05530 

8CB05540 

8CB05550 

8CB05560 

8CB05570 

8CB05580 

8CB05590 

8CB05600 

8CB05610 

8CB05620 

8CB05630 

8CB05640 

8CB05650 

8CB05660 

8CB05670 

8CB05680 

8CB05690 

8CB05700 

8CB05710 

8CB05720 

8CB05730 

8CB05740 

8CB05750 

8CB05760 

8CB05770 

8CB0578O 

8CB05790 

8CB05800 

8CB05810 

8CB05820 

8CB05830 

8CB05840 

8CB05850 

8CB05860 

8CB05870 

8CB05880 

8CB05890 

8CB05900 

8CB05910 

8CB05920 

8CB05930 

8CB05940 

8CB05950 

8CB05960 

8CB05970 

8CB05980 

8CB05990 

8CB06000 

8CB06010 

8CB06020 

8CB06030 

8CB06040 

8CB06050 

8CB06060 

8CB06070 

8CB06080 

8CB06090 

8CB06100 

8CB06110 

8CB06120 

8CB06130 



PROG ID 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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08CB-2 
5 



02DA COOE 
02DB 4804 
02DC 7006 



02DD COOC 
02DE 1008 
02DF DOOA 
02E0 74C1 02E9 
02E2 70F2 



02E3 7301 
02E4 74C1 02E9 
02E6 70E2 



* 
* 



* 
* 

* 



* 

* 



LD 
BSC 

MDX 



LD 

SLA 

STC 

MDX 
MDX 



WRDSW 

E 

TWR03 



CHECK IF rST 1/2 WORD 

GET 1/2 WORD SWITCH 
GO SET UP NEXT WORD 

SET UP FOR 2ND 1/2 WCRO 



IOARA 
8 

IOARA 
WRDSW, 1 
XIOWR 



POSITION 2ND 1/2 WD 

BUMP WORD SWITCH 
GO WRITE 2ND 1/2 WD 



SET UP FOR NEXT WORD 



02E7 





8103 


02E8 





FFFF 


02E9 





0000 


02EA 


G 


0000 


02EC 




0000 


02EC 


JOOOO 


02ED 





3701 


02EE 





OOCO 


02EF 





3700 


02F0 





OOCO 


02F1 





3500 


02F2 





0000 


02F3 





OF 01 


02F4 





02EA 


02F5 





0900 



3 I 

L WRDSW, 1 
TWR02 



/8103 
/FFFF 





E 



TWR03 MDX 

MDX 

MDX 
* 
* 
* 

TWRTO DC 
TWRT1 DC 
WRDSW DC 
IOARA DC 
* 

BSS 

* 

PRSNS DC 

DC 
PRSN DC 

DC 
PRWRT DC 

DC 
TWSNS DC 

DC 
TWWRT DC 

DC 
* 
♦fr*******************************^^.,.^.^.^^ 

* 1443 CODE TO 1816/1053 * 

* CODE CONVERSION ROUTINE * 
************************* fc********^,,.^^.^^.^ 



/OOOO 

/3701 



/37C0 

/OOOO 

/3500 

/OOOO 

/0F01 

IOARA 

/0900 



NEXT WORD INDEX 
BUMP WORD SWITCH 
GO GET NEXT WORD 

LOG CONSTANTS 

LINE SP/CARRAIGE RTN 

TERMINATOR 

1/2 WORD SWITCH 

OUTPUT AREA 



PRINTER SENSE IOCC 

NON RESET SENSE 

PRINTER WRITE IOCC 

TYPEWTR SENSE ICCC 

DSW RESET PH01 

TYPEWTR WRITE IOCC 

WR TYPEWRITER PCQ2 



02F6 
02F7 
02F8 
02F9 









OOCO 
6927 
6A28 
6B29 




CODCV 


DC 
STX 

STX 
STX 


1 
2 
3 




C0DC4E1 
C0DC4G3 
C0DC4S5 


02FA 
02FB 
02FC 







1010 
D02B 
6300 




* 
CODCl 

* 


SLA 
STO 
LDX 


3 


16 

LHIND 



02FD 
02FE 
02FF 
0300 
0301 









C028 
1890 
C027 
4820 
1088 




LD 

SRT 

LD 

BSC 

SLT 




CODWD 

16 

LHIND 

Z 

8 


0302 
0303 
0304 
0305 








1010 
1084 
D023 
6580 


0328 


SLA 
SLT 
STO 
LDX 


11 


16 

4 
CODOO 

COD 00 


0307 
0308 
0309 







1010 
1084 
D01E 




SLA 
SLT 

STO 




16 

4 
CODOO 


DATE 01JUL66 15MAY67 
EC NO. 415178* 411731 


14N0V69 
431319 







SAVE INDEX REGS 



SE 



CLEAR LEFT HALF WORD 
♦INDICATOR 



GET WORD TO CONVERT 
SET IN Q 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO ACCUM 
IX 1 * ZONE 

DIGIT TO ACCUM 



PART NO. 
PAGE 



8CB06140 

8CB06150 

8CB06160 

8CB06170 

8CB06180 

8CB06190 

8CB06200 

8CB06210 

8CB06220 

8CB06230 

8CB06240 

8CB06250 

8CB06260 

8CB06270 

8CB06280 

8CB06290 

8CB06300 

8CB06310 

8CB06320 

8CB06330 

8CB06340 

8CB06350 

8CB06 360 

8CB06370 

8CB06380 

8CB06390 

8CB06400 

8CB06410 

8CB06420 

8CB06430 

8CB06440 

8C806450 

8CB06460 

8CB06470 

8CB06480 

8CB06490 

8CB06500 

8CB06510 

8CB06520 

8CB06530 

8CB06540 

8CB06550 

8CB06560 

8CB06570 

8CB06580 

8CB06590 

8CB06600 

8CB06610 

8CB06620 

8CB06630 

8CB06640 

8CB06650 

8CB06660 

8CB06670 

8CB06680 

8CB06690 

8CB06700 

8CB06710 

8CB06720 

8CB06730 

8CB06740 

8CB06750 

8CB06760 

8CB06770 

8CB06780 

8CB06790 

8CB06800 

8CB06810 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
0-9 CORE FUNCTION TEST 





030A 6680 


0328 




LDX 


15 


' CODOO 


IX 2 * DIGIT 




8CB06820 










* 












8CB06830 




cO 


030C C500 


032B 




LD 


LI 


ZONE 


GET ZONE TABLE 


ADDRS 


8CB06840 




030E D001 






STO 




C00C2G1 


SET IN CONVERSION WD 


8CB06850 










* 












8CB06860 




o 


030F C6C0 


0000 


C0DC2 


LD 


L2 





GET CONVERTED 


CODE 


8CB06870 




0311 D700 


0329 




STO 


L3 


COD01 






8CB06880 










* 












8CB06890 




f*\ 


0313 C013 






LD 




LHIND 






8CB06900 




0314 4C20 


031A 




BSC 


L 


C0DC3.Z 


BRNCH IF RIGHT 


HALF 


8CB06910 






0316 74C1 


0327 




MDX 


L 


LHIND, 1 






8CB06920 






0318 73C1 






MDX 


3 


1 






8CB06930 




0319 70E3 


- 




MDX 




C00C1 


GO CONVERT RIGHT HLF 


8CB06940 










* 












8CB06950 




cO 


031A COCE 




C0DC3 


LD 




C0D01 


PACK CONVERTED 


CODES 


8CB06960 




0318 1008 






SLA 




8 






8CB06970 






031C E8CD 






OR 




C0002 






8CB06980 




<? 


031D D008 






STO 




CODWD 






8CB06990 








* 












8CB07000 




- 


031E 6500 


0000 


C0DC4 


LDX 


LI 





RESTORE INDEX REGS 


8CB07010 




cQ 


0320 66C0 


0000 




LDX 


L2 









8CB07020 




0322 6700 


0000 




LDX 


L3 









8CB07030 










* 












8CB07040 




^f-^mlf 


0324 4C80 


02F6 




BSC 


I 


CODCV 


RETURN TO USER 


sx 


8CB07050 








* 












8C807060 










* 












8CB07070 




cO 






* 








CONSTANTS 




8CB07080 








* 












8CB07090 






0326 0000 




CODWD 


DC 







WORD LOCATION 




8CB07100 




%&~*m*r 


0327 0000 




LHIND 


DC „ 







LEFT HALF INDICATOR 


8CB07110 




0328 0000 




CODOO 


DC 







WORK AREA 




8CB07120 






0329 00C0 




C0D01 


DC 







CONVERTED LH CHARACT 


8CB07130 




C* **r 


032A 0000 




C0D02 


DC 







CONVERTED RH CHARACT 


8CB07140 








* 












8CB07150 










* 












8CB07160 




cO 






* 






1443 


TO 1816/1053 CODE 


8CB07170 








* 






CONVERSION TABLES 




8CB07180 










* 












8CB07190 




cO 


032B 032F 




ZONE 


DC 




ZCNEN 


NO ZONE 




8CB07200 




032C 033A 






DC 




ZCNE1 


ZONE 




8CB07210 






032 D 0345 






DC 




Z0NE2 


11 ZONE 




8CB07220 




cO 


032E 034F 






DC 




Z0NE3 


12 ZONE 




8CB07230 








* 












8CB07240 






032F 0021 




ZONEN 


DC 




/0021 


SPACE 




8CB07250 






0330 OOFC 






DC 




/OOFC 


1 




8CB07260 




0331 00D8 






DC 




/00D8 


2 




8CB07270 






0332 OODC 






DC 




/OODC 


3 




8CB07280 






0333 OOFO 






DC 




/OOFO 


4 




8CB07290 




0334 00F4 






DC 




/00F4 


5 




8CB07300 






0335 OODO 






DC 




/OODO 


6 




8CB07310 




J*\ 


0336 0004 






DC 




/00D4 


7 




8CB07320 




Ikiujf 


0337 0OE4 

0338 OOEO 






DC 

OC 




/00E4 
/OOEO 


8 
9 




8CB07330 
8CB07340 




C«*^ 


0339 00C4 






DC 




/00C4 







8CB07350 




033A 0000 




Z0NE1 


DC 











8CB07360 






033B OOCO 






DC 











8CB07370 




^-^jjr 


033C 009A 






DC 




/009A 


s 




8CB07380 




033 D 009E 






DC 




/009E 


T 




8CB07390 






033E 00B2 






DC 




/00B2 


U 




8CB07400 




fp^ir 


033F 0CB6 






DC 




/00B6 


V 




8CB07410 




0340 0092 






DC 




/0092 


w 




8CB07420 






0341 0096 






DC 




/0096 


X 




8CB07430 




f^yr 


0342 00A6 






DC 




/00A6 


Y 




8CB07440 




0343 00A2 






DC 




/00A2 


z 




8CB07450 






0344 0021 






DC 




/0021 


SPACE 




8CB07460 




%«tr 


0345 0000 




ZONE 2 


DC 











8CB07470 




0346 007E 






DC 




/007E 


J 




8CB07480 






0347 005A 






DC 




/005A 


K 




8CB07490 




&J 




















. 


ys oate 


01JUL66 15MAY67 


14N0V69 
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%J EC NO. 


415178 411731 


431319 
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0348 


0.005E 


DC 


/005E 


L 


0349 


0C72 


DC 


/0072 


M 


034A 


0076 


DC 


/0076 


N 


034B 


0052 


DC 


/0052 





034C 


0056 


DC 


/0056 


P 


034D 


0066 


DC 


/0066 


Q 


034E 


0062 


DC 


/0062 


R 


034F 


0000 


Z0NE3 DC 







0350 


003E 


DC 


/003E 


A 


0351 


OOIA 


DC 


/OOIA 


B 


0352 


001E 


DC 


/001E 


C 


0353 


0032 


DC 


/0032 


D 


0354 


0036 


DC 


/0036 


E 


0355 


0012 


DC 


/0012 


F 


0356 


0016 


DC 


/0016 


G 


0357 


0026 


DC 


/0026 


H 


0358 


0022 


DC 


/0022 


I 


0359 


0086 


DC 


/0086 


ERROR 


035A 


0000 


DC 


/oooo 


PERIOD 


035B 


OOOC 


MES12 DC 


12 


WORD C 


035C 


1213 


DC 


/1213 


ST 


0350 


3129 


DC 


/3129 


AR 


035E 


1300 


DC 


/1300 


T 


035F 


OAOO 


DC 


/OAOO 





0360 


1338 


DC 


/1338 


TH 


0361 


2914 


DC 


/2914 


RU 


0362 


00C9 


DC 


/0009 


9 


0363 


0033 


DC 


/0033 


C 


0364 


2629 


DC 


/2629 


OR 


0365 


3500 


DC 


/3500 


E 


0366 


1335 


DC 


/1335 


TE 


0367 


1213 


DC 


/1213 


ST 


0368 


FFFF 


DC 


/FFFF 


TERM 


0369 


OOCB 


MES13 DC 


11 


WORO C 


036A 


0.3525 


DC 


/3525 


EN 


036B 


3400 


DC 


/3400 


D 


036C 


OAOO 


DC 


/OAOO 





036D 


1338 


DC 


/1338 


TH 


036E 


2914 


DC 


/2914 


RU 


036F 


00C9 


DC 


/0009 


9 


0370 


0033 


DC 


/0O33 


C 


0371 


2629 


DC 


/2629 


OR 


0372 


3500 


DC 


/3500 


E 


0373 


1335 


DC 


/1335 


TE 


0374 


1213 


DC 


/1213 


ST 


0375 


FFFF 


DC 


/FFFF 


TERM 


0376 


00C3 


MES14 DC 


3 


WD CT 


0377 


3529 


DC 


/3529 


ER 


0378 


2926 


DC 


/2926 


RO 


0379 


2900 


DC 


/2900 


R 


037A 


FFFF 


DC 

3f[ 


/FFFF 


TERM 


037C 


012D 


END 


RSSTB 




NO 


STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 
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8CB07500 

8CB07510 

8CB07520 

8CB07530 

8CB07540 

8CB07550 

8CB07560 

8CB07570 

8CB07580 

8CB07590 

8CB07600 

8CB07610 

8CB07620 

8C807630 

8CB07640 

8CB07650 

8CB07660 

8CB07670 

8CB07680 

8CB07690 

8CB07700 

8CB07710 

8CB07720 

8CB07730 

8CB07740 

8CB07750 

8CB07760 

8CB07770 

8CB07780 

8CB07790 

8CB07800 

8CB07810 

8CB07820 

8CB07830 

8CB07840 

8CB07850 

8CB07860 

8CB07870 

8CB07880 

8CB07890 

8CB07900 

8CB07910 

8CB07920 

8CB07930 

8CB07940 

8CB07950 

8CB07960 

8CB07970 

8CB07980 

8CB07990 

8CB08000 

8CB08010 

8CB08020 

8C808030 

8CB08040 

8CB08050 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



PROG ID 
PAGE 



08CB-2 
6A 
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..j ,.*._. 



a 
o 



<r~\ 






jcQ 



ID 
cO 
cO 

cO 



PART NO. 2242271 
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C3 



CCDCV 

CC0C1 

C0DC2 

CCDC3 

C00C4 

COOWD 

COOOO 

C0D01 

COD02 

DATE1 

DATE2 

0ATE3 

DATE4 

DATE5 

DATE 6 

IOARA 

LHIND 

LOG 

LOG02 

LCG03 

LOGO* 

LOG 05 

LOG 06 

MES12 

MES13 

MES14 

PRSN 

PRSNS 

PRWRT 

RSAAN 

RSALT 

RSARB 

RSBIL 

RSBSB 

RSBTB 

RSBYP 

RSB10 

RSBH 

RSB12 

RSB13 

RSB14 

RSCSE 

RSDDA 

RSODC 

RSDDL 

RSDKW 

RSOMS 

RSD18 

RSEOR 

RSERW 

RSHOE 

RSILC 

RSKXA 

RSKXB 

RSLAA 

RSLAB 

RSLAC 

RSLAD 
RSLAE 
RSLAF 
RSLAG 
RSLAH 
RSLAI 
RSLAJ 
RSLAQ 
RSLOP 
RSNPP 



02 F6 

02FD 

030F 

031A 

031E 

0326 

0328 

0329 

032A 

018A 

0198 

01A6 

01B6 

01E3 

01F3 

02EA 

0327 

0292 

029E 

02A5 

02A7 

02 A9 

02AF 

035B 

0369 

0376 

02EE 

02 EC 

02F0 

017E 

026B 

0261 

01EE 

0260 

0211 

0205 

0262 

0263 

0264 

0265 

0266 

0285 

024C 

023D 

G24A 

0130 

015D 

0178 

0217 

0253 

0238 

0257 

0269 

026A 

01C3 

01C2 

01C4 

01C5 
01C6 
01C7 
01 C8 
01C9 
01CA 
01 CB 
01C1 
0274 
0268 



02F8 02F9 
02D2 02FD 031D 
0305 0309 030A 
031A 



0200 0324 

0319 

030E 

0314 

02 F7 

02CB 

0304 

C311 

C31C 

026E 

02 6F 

0270 

0271 

0272 

0273 

02 BF 

02FB 

015A 

02 A6 

C29F 

02A2 

02 A4 

0293 

01 5C 

0204 

C230 

02AA 

029E 

C29D 

0120 

0257 

02 1A 

01SA 

0154 

01F8 

0200 

0156 01FF 022B 

0210 

0233 

0288 

0207 

C279 

0218 

0246 

0242 

3003 

0158 

C145 

0188 0196 01A4 01B4 01E1 01F1 0220 0227 0236 0230 0255 

0238 

0234 

C225 

0223 

0224 

0137 016D 0285 

016F 0182 0184 018E 0190 019B 019C 019E 01A0 01A3 01AC 01AE 01D6 

01D9 01DB 01DD 01E7 01E9 01EB 0239 0275 027B 027F 0287 

0181 01D5 

0139 018D 0192 0195 01CC 01DA 01E8 01E0 01F0 

01AA 01AB 01B0 01B3 0IB7 01B9 

0173 0277 

02 3E 0270 

01A9 

0135 

018B 0199 01A7 01BE 01E4 01F4 0281 0283 028C 028E 0290 
0131 
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0204 02DD 02DF 02F4 

02FF 0313 0316 

0202 022E 029B 02BI 02B3 02C6 

02A8 

3007 

3009 

02CE 



02AE 
02A9 



0251 

01FE 0206 021C 0222 022A 0232 025E 028A 0296 



0219 
0249 



cO 



DATE 
EC NO. 



01JUL66 
415178 



15MAY67 
411731 



14N0V69 
431319 



PROG 10 
PAGE 



RSPER 

RSPES 

RSPPC 

RSGAW 

RSQ01 

RSQ02 

RSQ03 

RSQ04 

RSQ05 

RSQ06 

RSRBS 

RSRSI 

RSRSX 

RSR01 

RSR02 

RSR03 

RSR04 

RSR05 

RSR06 

RSR18 

RSSBT 

RSSIC 

RSSPT 

RSSTA 

RSSTB 

RSS12 

RST18 

RSVBB 

RSWSC 

RSZRO 

RS113 

STGCK 

STGLP 

TBL 

TBLl 

TWRTR 

THRTO 

TVIRT1 

TWR01 

TWR02 

TWR03 

TWSNS 

TWWRT 

WAITA 

WAITB 

WAITC 

WAITD 

WAITO 

WAITl 

WROSW 

XIOSN 

XIOWR 

ZONE 

ZONEN 

Z0NE1 

Z0NE2 

ZCNE3 

END OF 



01 F6 

01FD 

0267 

020A 

01 8B 

0199 

01A7 

01B7 

01E4 

01F4 

02 5E 

0213 

0210 

0181 

0180 

019B 

01AB 

0105 

01 E6 

0176 

0222 

020E 

01CC 

0131 

0120 

0231 

0177 

01A9 

0258 

0179 

0152 

0165 

0160 

026D 

026C 

02B5 

02 E7 

02E8 

02BE 

02C9 

02E3 

02 F2 

02F4 

02 8C 

0252 

0180 

01FC 

01 7A 

01 7B 

02 E9 

02 D6 
02D5 
032B 
032F 

03 3A 
0345 
034F 



01BC 



0208 0259 



ASSEMBLY 



0103 

0215 

0133 01F6 

3005 

CI 86 

0193 

01A1 

01B1 

01DF 

OlEE 

C143 0152 01FD 0205 021B 0229 0231 0289 0294 

0210 

01F9 

01 8A 0211 

0198 

01A6 

01B6 

01E3 

01F3 

CI 42 

02 IE 

02X4 

01C0 

01 7E 

037C 

02 2C 

C148 

01BD 

3006 

0140 

01 5E 

0167 

0240 0248 024A 024B 

0247 

0299 02BD 

02BE 

02CD 

02BA 

02C8 02E6 

020C 

0146 02B7 02C1 02D6 

0149 02C0 02D5 
300A 
300B 
014C 0175 30CC 

0150 3000 
014B 
C14E 

02B6 02DA 02E0 02E4 
0209 
02E2 
030C 
032B 
032C 
0320 
C32E 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



ABS 
3001 ORG /3001 

***•?******•*******•*********** tit************************************* 

B-REG I-REG * PROG WMTS COMMENTS 

»«*««nt«t:«ttMM**»*MtMt«Mt <•••*•*************••******************* 

3001 7A60 DC RSCCH61 

* 
* 



3002 7A60 



CAR CHECK ERROP-A 
FALSE CAR CHECK HAS 
OCCURREO-RUN THE CA1 
CHECK PROGRAM. 

*************** ************************************ 

* 

OC RSCCH61 STORAGE PROTECT 
VIOLATION. 



* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 

» 
* 
* 
* 

* 
* 
* 
* 

* 
* 
* 
* 



USE THE REG TO FURTHER 
IDENTIFY THE ERROR. TC 
CONTINUE THE TEST, PRESS 
THE START BUTTON. 

********************* **»,t,*«,»*i!. 4 ****** 

O-REG COMMENTS 

0001 ROUTINE TO READ AND WRITE 

IN EACH CORE LOCATION FAILED. 

THE ACCUMULATOR AND INDEX 
REGISTER 1 SHOW THE ADDRESS 
BEING WRITTEN WHEN THE SPV 
OCCURRED. 

************************************* 

000? BIT BY BIT ISOLATION FAILED. 

THE ACCUMULATOR SHOWS THE 
CORRECT PATTERN. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

•it********************************** 

0003 BIT BY BIT ISOLATION FAILEO. 

THE ACCUMULATOR SHOWS THE 
CORRLuT PATTERN. 

INDEX REGISTER I SHOWS THP 

CORE LOCATION WHICH FAILFO. 

♦♦A********************************** 

0004 W0RS1 CASE PATTERN ROUTINE 
FAILED. 

INDEX REGISTER 2 SHOWS THE 
CORRFCT DAT\ PATTERN. 

INDEX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED. 

************ **«********** 4 *********** 

0005 WORST CASE PATTERN ROUTINE 
FAILED. 

INDEX REGISTER 3 SHOWS THE 
CORRECT PATTERN. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 
************************************* 
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8CC00020 

8CC00030 

8CC00040 

8CC00050 

8CC00060 

8CC00070 

BCC00080 

8CC00090 

8CC00100 

8CC00110 

8CC00120 

8Cc0013O 

8CC00140 

8CC00150 

8CC00160 

8CC00170 

8CC00180 

8CC00190 

BCC00?00 

8CC00210 

8CC0022O 

8CC00230 

8CC00.-40 

8CC00250 

8CC0026O 

8CC00270 

8CC00280 

8FC00290 

8CC00300 

8CC00310 

8CC00320 

8CC00330 

RCC00340 

8CC00350 

8CC00360 

8CC0C370 

8CC00380 

8CC00390 

8CC00400 

8CC00410 

8CC00420 

8CC00430 

8CC00440 

RCC00450 

8Cf 00460 

8CC00470 

8CC004BO 

8CC 00490 

8CC00500 

8CC00510 

8CC 00520 

8CC00530 

8CC00540 

8CC00550 

8^C00560 

8CC00570 

8CC00580 

8CC00590 

8CC00600 

8CC00610 

8CC00620 

8CC 00630 

8CC00640 

8CC00650 

8CC00660 

8CC00670 

8CC00680 

8CC 00690 
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IBM MAINTENANCE DIAGNOSTIC PROGPAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 












6 

i 



5 



******************** 

B-REG I-REG 
******* ** v *** ******* 

3003 7805 



08CC-1 
t 



• 






3004 7A60 



0006 WORST CASE PATTERN ><OJTINE 
FAILEO. 

THE CORRECT DATA PATTERN 
IS 0000. 

INDEX REGISTER I SHOWS THE 

CORE LOCATION WHICH FAILEO. 

***************** **********»*,»****,* 

0007 WRITE ZFROS IN PROTECTED 
AREA OF ONEj FAILEO. 

THE CORRECT DATA PATTERN 
IS FFFF. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 
************************************* 

0008 UNPROTFCT AND CLEAR CORE 
OF CNES ROUTINF FAILED. 

THE CORRECT PATTERN IS 0000. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 

********************** *************** 

NOTE 

IF THE REGISTER CONTAINS 
ANY OTHER VALUE, RUN THE 
HIGH CORE TEST. 

************** ********************»*,**,******,**** 

PROG WAITS COMMENTS 

♦ ♦♦♦♦♦♦♦♦♦♦••t^***************************^,^^^ 

OC RSDKWC1 WAIT FOR SWITCHES. 

1. SFT REQUIRED SWITCHES 

A. OPERATOR MONITOR-OFF 

B. DISABLF INTERRUPT-OFF 

C. CHECK STOP-OFF 

D. WRITE STORAGE 
PROTFCT-YES 

E. ANY DESIRED DATA 
ENTRY SWITCHES. 

B14- BYPASS ERROR WAIT 
B13- BYPASS PRINTING 
Bll- LOOP SUBPROGRAM_ 
BIO- LOOP ROUTINE 
BIO- LOOP ROUTINF 
B 9- OUTPUT ON 1443 
B B- LOOP ADDRESS 

2. PUSH START "SPROGRAM 
SHOULD LOAD< 

********************************* *****»*„******,„ 

DC RSCCH61 PARITY ERROR. 

*. DETERMINE CORE LOCATION 
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8CC00700 
8CC00710 
8CC00720 

8ccoono 

8CC00740 

8CC00750 

8CC00760 

8CC00770 

8CC00780 

8CC00790 

8CC00R00 

8CC 00810 

8CC00820 

8CC00830 

RCC00840 

8CC00*<50 

8CC00860 

8CC00R70 

8CC00880 

RCC 00890 

8CC00900 

8CC00910 

8CC00920 

8CC 00930 

8CC 00940 

8CC 00950 

8CC00960 

8CC00970 

8CC00980 

8CC00990 

8CC01000 

8CC01010 

8CC01020 

RCC01030 

8CC01040 

8CC01050 

8CC01060 

8CC01070 

RCC010R0 

8CC01090 

8CC01100 

8CC0U10 

8CC0U20 

8CC01130 

8CC0U40 

8CC0U5O 

8CC01160 

8CC01170 

8CC0U80 

8CC.01190 

8CC01200 

RCC01210 

8CC01220 

8CC0123O 

8CC01240 

8CC01250 

8CC01260 

8CC01270 

8CC01230 

8CC01290 

8CC01300 

RCC01310 

8CC01320 

8CC01330 

8CC01340 

8CC01350 

8CC01360 

8CC01370 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FCR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



THAT 
BY- 



CAUSEO PARITY ERROR 



1. SET CHECK STOP SWITCH 
TO ON. 

2. SET STORAGE PROTECT 
SWITCH TO NO. 

3. SET MODE SWITCH TO 
DISPLAY. 

4. HOLD CLEAR STORAGE 
BUTTON f > 0'-"« AND PRESS 
START BUTTON. 



B. 



Q-REG 
0009 



IF THE SYSTEM OOES NOT 
STOP A FALSE PARITY 
CONDITION OCCURRED. THIS 
INDICATES A PROBLEM IN 
THE PARITY DETEC T ION 
CIRCUITRY OR THE B 
REGISTFR. 

C. IF A PARITY ERROR IS 

DETECTED LOOK AT THE 
STORAGE ADDRESS REGISTER. 
IF IT IS BETWEEN LOCATIONS 
AND RUN THF HIGH CORE TEST. 

0. IF THE PARITY IS NOT IN 
HIGH CORE USE THE Q 
REGISTER TO F'iRTHFR 
IDENTIFY THE ERROR. 

E. TO PETURN TO THE TESTING 

SEQUENCE SET i HE I REGISTER 
TO THE ADRS OF WAIT 4 *ABOVE< 
AND PRESS START. 

************************************* 

COMMENTS 



ROUTINE 
ADDRESS 
FAILED. 



TO 
IN 



READ AND WRITE 
FACH CORE LOCATION 



THE ACCUMULATOR 
INCORRECT DATA. 



SHOWS THE 



OOOA 



INDEX REGISTER 1 SHOWS 
CORRECT DATA. 

******«.**************♦*»***#»»****♦*» 

ROUTINE TO SET ALL CORE 
LOCATIONS TO ZERO FAILED. 

THE CORREC" PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 
************************************* 



OOOB 



BIT BY BIT 
FAILED. 



ISOLATION TEST 



INDEX REGISTER 
CORRECT DATA. 



2 SHOWS THE 



THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

****!- ********************** ********** 



DATE 
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8CC01380 

8CC01390 

8CC01400 

8CC01410 

8CC01420 

8CC01430 

8CC01440 

eCC01450 

8CC01460 

8CC01470 

8CC01480 

8CC014O0 

8CC01500 

HCt 01510 

8CC01520 

RCC01530 

8CC01540 

8CC01550 

8CC01560 

RCC01570 

8CC01580 

8CC01590 

8CC01600 

8CC0I610 

8CC01620 

8CC01610 

8CC01640 

PCC01650 

8CC01660 

8CC01670 

8CC01680 

8CC01690 

8CC01700 

BCC01710 

8CC01720 

8CC01730 

8CC01740 

8CC01750 

8CC01760 

8CC01770 

8CC01780 

8CC01790 

8CC01800 

8CC01810 

8CC01820 

8CC01830 

8CC01840 

8CC0185C 

8CC01860 

8CC01870 

8CC01880 

8CC01890 

8CC01900 

8CC01910 

ECC01920 

8CC01930 

8CC01940 

8CC01950 

8CC01960 

8CC01970 

8CC01980 

8CC01990 

8CC02000 

8CC02010 

8CC02020 

8CC02030 

8CC02040 

8CC02050 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1300 SYSTEM 
LOW CORE FUNCTION TEST 



08CC-1 
2 



1 

€ 

i 



o 

© 
o 



% 



§> 



OATE 
O EC NO. 

c 



******************* 

B-REG I-REG 

******************* 

3005 79F4 



3006 7AF2 



OOOC 



WORST CASE PATTERN ROUTINE 
FAILED. 

THE CORRECT PATTERN IS 
EITHER 0000 OR FFFF. 



OOOD 



THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 
************************************* SCCC2150 

8CC 02160 
WRITE ZEROS ON STORAGE 
PROTECTED A\tA CF FFFF 
ROUTINE FAILED. 
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8CC02<J60 
8CC02070 
8CCO2OS0 
8CC02C9P 
8CC 02100 
RCC02110 
8CCC2120 
8CC02139 
8CC02I4G 



FAILURE OCCURRED WHILE 
EXECUTING A WRITE STORAGE 
PROTECT BIT INSTRUCTION. 

THE CORRECT PATTERN IS FFFF. 



»£C021?0 
8CC0?180 
8CCC2I9C 
8tCO«r?00 
BCC02210 
8CC02/20 
8CCO2230 
8CC 022*0 
8CC02250 
8CCQ2260 
8CC02270 
SfCG?2-50 



OOOE 



THE ACCUMULATOR IS 
MEANINGLESS. 
*************************** **** ****** RCC02290 

8CC02300 
WRITE ZEROS ON STORAGE 
PROTECTFD AREA OF FFFF 
ROUTINE FAILED. 



THE CORRECT PATTFRN IS FFFF. 



8CCC2310 
8CC02320 
8CC02330 
8Cf 02340 
8CC02350 

er.to?3so 

8CC02370 

8CCC2380 



OOOF 



THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 
*********************,**,************ ncc 02390 

8CC02400 
WRITE ZEROS ON STORAGE 
PROTECTED AREA OF FFFF 
ROUTINE FAILED. 



THE FAILURE OCCURRED WHILE 
EXECUTING A CLFAR STORAGE 
PROTECT BIT INSTRUCTION. 

THE CORRECT PATTERN IS FFFF. 



8CC 024 10 

RCC02420 
8CC02430 
BCC0244O 
8CC02450 
8CC07460 
8CCC24 70 
8CCC2480 
8CCV490 
8CC 02500 
8CC 025 10 
8CC0? C ,?O 



0010 



01JUL66 
415178 



14N0V69 
431319 



THE ACCUMULATOR IS 
MEANINGLFSS. 
************************************* pctC2530 

8CC02540 
UNPROTECT AND CLEAR MEMORY 8CC02550 
OF ONES ROUTINE FAILEO. 8CCC2560 

8CC0257O 
THE CORRECT PATTERN IS 0000. 8CC02580 

8CC02590 

THE ACCUMULATOR SHOWS THE 8CC02600 

INCORRECT DATA. 8CC07610 

****************** **♦♦«*♦*********♦*»*****,******* HCC02620 

PROG WAITS CTMMFNTS SCC02630 

************************************************** 8CC02640 

8CC02650 

DC RSQAWCl PROGRAM ENO. 8CC02C6O 

******************************* ***********,«****»* RCC 02670 

8CCC2680 

DC RSWSCtl ILLEGAL COMBINATION SCCC2690 

OF DATA ENTRY SWITCHES. 8CC02700 

8CC02710 
tSW 13 ONt SW 14 ON AND 8CC02720 
SW 8 OFF< 8CC02T30 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEH 
LOW CORE FUNCTION TEST 



300T 7B08 



3008 7A60 



3009 7B0A 



300A 7B1F 



3009 7AEE 



* 

* POSH START TO RERUN 

* THE PROGRAM. 
*************************************************** 

* 

OC L0G03E1 14*3 NOT READY. 

* 

* H«E 1443 READY AND 

* PUSH START. 
***************************** **************** ****** 

* 

DC RSCCHC1 INVALID CC CODE . 

* 

* THE C REGISTER SHOWS 

* OHE GREATER THAN THE 

* FAILING INSTRUCTION. 

* 

* RU»* THE HIGH CORE TEST 

* tASSUMING THE P-C 

* FU'CTION TEST HAS BEEN 

* PU«.< 

********* *************** »*.***«******************** 

* 

OC L0G04U 1443 BUSY. 

* 

* CLEAR 1443 AND PUSH 

* THE START BUTTON. 
********* ***♦*****************«.*****************,>** 

* 

DC WAITAG1 1616 NOT RE4DY. 

* 

* ***? 1816 READY AND 

* PUSH START. 

********<.»************<,*#***«******* ************** 
* 

WAITB61 OATA ERROR HAS BEEN 

DETECTED. 



OC 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 

* 

♦ 0012 

* 

* 



USE THE REG TO FURTHER 
IDENTIFY THE ERROR. 



NOTE 



O-RFG 
0011 



DEPRCSSIN THE START BUTTON 

RETURNS THE P»OGRAM TO THE 

TESTING SEQU^CE. ^NORMALLY 

AFTER THE E*>*CR WAIT OCCURS 

BIT SW 8 SHOULD BE TURNED ON TO 

LOOP ON THE ADDRESS THAT FAILED< 

*******•**•••*•*****************.;.**** 

COMMENTS 

ROUTINE TO READ AND WRITE 
ADDRESS IN FACH CORE LOCATION 
FAILED. 

INDEX REGISTER 1 SHOWS THE 
CORRECT PATTFRN AND THE CORE 
LOCATION WHICH FAILED. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

A****************************** ****** 

ATTEMPT 70 SET CORE LOCATION 
TO ZEROS FAILED. 

THE CORRECT PATTERN IS 0000. 
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8CC02740 

8CC02750 

RCC02760 

8CC02770 

8CC02780 

8CC02790 

8CC02800 

ACr02FiO 

8CC02820 

8CC02830 

8CC02840 

RCC02860 

3CC02860 

8CC02A70 

8CC02880 

BCC02890 

8CC02900 

8CC02910 

RCC02920 

8CC02930 

8CC07940 

8CC02950 

8CC02960 

8CC02970 

8CC02980 

RCC02990 

8CC03000 

8CC03010 

8CC03020 

8CC03030 

8CC 03040 

8CC03050 

8CC03060 

RCC03070 

8CC03080 

BCC03C90 

8CC03100 

8CC03110 

8CC03120 

8CC03130 

BCC03140 

8CC03150 

8CC03160 

8CC03170 

8CC03180 

8CC03190 

8CC03200 

8CC03210 

8CC03220 

8CC03230 

8CC03240 

8CC 03250 

8CC03260 

8CC03270 

8<-C03280 

8CC03290 

RrC03300 

8CC03310 

8CC03320 

8CC03330 

8CC03340 

8CC03350 

eCCO'360 

8CC03370 

BCC033RO 

8CC03390 

8CC03400 

8CC03410 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

*************** ********************** 

0013 BIT BY BIT ISOLATION TEST 
FAILED. 

INDEX REGISTER 2 SHOWS THE 
CORRECT PATTERN. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

*********************** ************** 

0014 WORST CASE PATTEPN ROUTl'.E 
FAILED. 

THE CORRECT PATTERN Ii EITHER 
0000 OR FFrF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 CONTAINS 
THE CORE LOCATION WHICH 
FAILED. 
***************************** ******** 

0015 WRITE ZEROS ON PROTECTED 
AREA OF FFFF ROUTINE FAILED. 

THE CORRECT PATTERN IS FFFF. 

THE ACCUMULATOR SHOWS THE 
INCORRECT DATA. 

INDEX REGISTER 1 SHOWS THE 

CORE LOCATION WHICH FAILED. 

***************** ******************** 

0°16 UNPROTECT AND CLEAR CORE OF 

ONES ROUTINE FAILED. 

THE CORRECT PATTERN IS 0000. 

THE ACCUMULATOR SHOWS THE 
INCORRECT OATA. 

INDFX REGISTER 1 SHOWS THE 
CORE LOCATION WHICH FAILED". 

****** *****♦******♦****♦*♦***»**«„» *******»» #%<lt4 

MEMORY TEST-LOW CORE 

SWITCH SETTING 

B14 * BYPASS ERROR WAIT 
B13 « BYPASS PRINTING 
Bll ill LOOP SUB PROGKAM 
BIO * LOOP ROUTINE 
B9 « OUTPUT ON 1443 
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8CC03420 

8CC03430 

8CC03440 

8CC03450 

8CC03460 

SCC03470 

8CC03480 

8CC03490 

8CC03500 

8CC03510 

8CC03520 

8CC03530 

8CC03540 

8CC03550 

8CC03560 

8CC03570 

8CC03530 

8CC03590 

8CC0360O 

8CC03610 

8CC03620 

8CC03630 

8CC 03640 

8CC03650 

8CC03660 

8CC03670 

8CC03680 

8CC03690 

81.C03700 

8CC03710 

8CC03720 

8CC03730 

RCC03740 

8CC03750 

8CC03760 

8CC03770 

8CC03780 

8CC03790 

8CC03800 

8CC03810 

8CC03820 

8CC0383O 

8CC03840 

8CC03«50 

RCC03860 

8CC03870 

BCC03fi80 

8CC03890 

8CC 03900 

8CC03910 

8CC03920 

8CC03930 

8CC03940 

8CC03950 

8CC 03960 

RCC03970 

8CC03980 

8CC 03990 

8CC04000 

8CC04010 

8CC04020 

8CC04030 

8CC04040 

8CC04050 

8CC04060 

8CC04070 

8CC04080 

8CC04090 



OATE 
EC NO. 



01JUL66 
415178 



14N0Y69 
431319 



PROG 10 
PAGE 



t 
f 

i 

§. 

i 



08CC-1 
3A 



t i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
LOW CORF FUNCTION TEST 



DATE 

ec no. 



7600 
7800 
7801 
7802 
780* 
7805 
7806 
7808 
7809 



780A 
780B 
78(0 
780F 
7811 
7813 
7814 
7815 
7816 
7817 
7819 



CCOO 
C82? 

DCOO 0000 

30C3 

C81t 

DCOO 0004 

C013 

1R90 



con 

04 00 0003 

67C0 FFFF 

COO 0003 

4C20 7815 

C007 

7001 

C004 

D007 

6 7 CO 0000 



7015 



781A 0001 
781B FFFE 
781C 0000 
781D 07FD 
781E 0000 
78\r 0003 
7820 0000 



7821 
7822 
7824 
7826 
7827 
7828 
7829 



7003 

0002 

4C00 7805 

782C 

3A40 

0009 

79F8 



7R2A 0000 
782B 0240 







782C 
7320 
782E 



0000 
OF 03 



0902 



782F 
7830 
7832 
7633 
7835 
7836 
7837 
7838 
783A 
763B 



C0F1 

0400 0000 
COFB 

4C04 7840 
C0F5 
OOFO 
C0F1 

D400 0008 
C0F2 
D400 7B55 



* B8 # LOOP AODRESS 

*#»«((,M»K(Ut»t»U*HH*»tfttK »tt>(tl>t*tttttn* 
tUt«*Mt»')K*44Mt*MM»*|.Hm) ***»»*««»*»» ****** 
*********************************»*****,»,»»*,*,„»,, 



ORG 
DC 
RSDKR LDD 
STD 
RSDKW WAIT 
RSDKS LDD 
STD 
LD 
SRT 



01JUL66 
415178 



/7800 

/CCOO 

RSAAH 



3 

RSAAM 

4 

RSAAE 

16 



PID 



CLEAR Q REGISTER 



MACHINE DETERMINATION ROUTINE 



LO RSAAE 

STO L 3 

LDX L3 / C FFF 

LO L 3 

BSC L RSAAB.Z 

LD RSAAD 

MOX X 1 
RSAAB LO RSAAC 

STO RSAAK 

LDX L3 /OOOO CLEAR XR 3 

MOX RSABA 

♦ 

* STORAGE AREAS FOR INITIALIZATION* 



RSAAC DC 1 
RSAAO DC -2 
RSAAE DC 
RSAAH DC 2045 
RSAAK OC 
RSFAA DC 3 
RSFAB DC 
♦ 
* 

* STORAGE AREAS PART 1 

• 

RSAAL MOX X 3 

BSS E 2 

RSAAM BSC L RSDKS 
RSOAF DC RSQAL 
RSQAO DC /3A40 
RSOAC DC 9 
RSQAD OC RSCCA 
RSOAE DC 
RSQAP OC /0240 
RSQA1 OC 
RSQAU DC /0F03 
RSQAV DC /0902 



1130 CONSTANT 

1800 CONSTANT 

CONSTANT ZE^O 

HIGHEST ADR TO TEST 

MACHINE TYPE 

NUMBER OF PROGRAM PASSES 

PROGRAM PASS BUFFER 



BOOTSTRAP BRA»»CH INS 
READ BIT SWI T CH IOCC 
SECOND HALF ICCC-113 
LOWEST AODRESS TC TEST 
INTERRUPT LEVEL ZERO VECT 
WORK AREA 

SECONO HALF IOCC-180 
BIT SWITCH BUFFER AREA 
2ND HALF IOCC-1800 DSW 
2ND HALF IOCC-1800 TYPE 



* 

* INITIALIZE MASKS Af>0 INTERRUPTS TO LEVEL ZERO 
1800 ONLY 



* 
* 
RSABA 



LO 

STO 

LO 

BSC 

LD 

STO 

LO 

STO 

LD 

STO 



RSAAL 



RSAAK 

RSAOt.E 

RSQAP 

RSQAO 

RSQAD 

8 

RSQAU 

TWSNS61 



STORE BOOTSTRAP BRANCH AT 
LOCATION ZERO 

IF 1130-GO TO FIRST ROUTIN 
CHANGE SECOND HALF IOCC 
FOR 1800 REAO BIT SW 
INTERRUPT LEVEL ERRO VECT 



OSW 1800 



PR01 
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8CC04100 

8CC04110 

8CC04120 

8CC04130 

8CC04140 

8CC04150 

8CC04160 

8CC04170 

8CC04180 

8CC04190 

8CC04200 

BCk.04210 

8Cf04220 

8CC04230 

8CC04240 

8CC04250 

8CC 04260 

RCC04270 

PCC04280 

8CCC4290 

BCC04 300 

8CC04310 

8CC04320 

8CC04330 

8CC04340 

8CC04350 

8CC04360 

8CC04370 

8CC04380 

8CC04390 

8CC04400 

8CC04410 

8CC04420 

8CC04430 

8CC04440 

8CC04450 

RCC04460 

8CC04470 

BCC04480 

8CC04490 

8CC04500 

8CC04510 

8CC04520 

8CC04530 

8CC04540 

8CCQ4550 

8CC04560 

8CC04570 

8CC04580 

BCC04590 

8CC04600 

8CC04610 

8CC04620 

8CC04630 

RCC04640 

8CC04650 

8CC04660 

8CC04670 

8CC046S0 

8CC04690 

8CC04700 

8CC04710 

8CC04720 

BCf04730 

8CC04740 

8CC04750 

8CC04760 

8CC04770 



14N0V69 
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IBM MAINTENANCE DIAGNOSTIC PRC^AH FOR THE 1300 SYSTEM 
LOW CORE FUNCTION TEST 



■■£■ 



08CC-1 

4 



C" 

e 

t 
* 



C 

c 

% 



ft 
© 

Q 
G 
C 
O 



o 

o 



DATE 
EC NO. 



783D 
783E 
7840 
7841 
7843 
7845 



COFO 

0400 7B57 
08E5 

C400 782C 
E400 7962 
4C20 784A 



7847 4400 7AF4 
7849 7BBD 



784A 

7848 

784C 

784D 

784F 

7850 

7851 

7853 

7854 

7856 

7857 

7858 

785A 

785B 

785D 

785F 

7860 

7862 

7864 

7866 

7868 

786A 

786C 

786D 

786E 

7B70 

7872 

7874 

7875 

7876 

7878 

7879 

787A 

787B 

787C 

787E 

7880 

7882 



C0D4 
00 D4 
62 04 
65R0 
69DA 
C009 
D460 
F0C9 
4C18 
7101 
70F7 
6580 
69CF 
C4 80 
0400 
FOCA 
4C18 
OCOO 
C400 
E400 
4C20 
4400 
FFFE 
0RB8 
C400 
F400 
4C?0 
C0B5 
F0A7 
4C1B 
7101 
70E0 
72FF 
70D1 
OCOO 
C400 
E400 
4C20 



782 8 

782A 
7858 

7828 

782A 
78EC 

7860 
7826 
782C 
7961 
785A 
7A8F 



782C 
7961 
785A 



787A 



7826 
782C 
795F 
784C 



7884 
7885 
7887 
7RR8 
78RA 
7B8B 
7BRD 
78RF 
7891 
7893 
7895 
7897 
7899 
789B 
789D 



63 C4 
C400 
D05F 
6580 
CO 50 
04 80 
C480 
0400 
4C18 
OCOO 
C400 
E400 
4C20 
4400 
FFFD 



7828 

78E7 

78E7 
78E7 
78FC 
789<= 
7826 
782C 
7961 
7888 
7APF 



LD 
STO 

RSAOfc XIO 
LD 
AND 
BSC 

* 

BSI 

DC 



RSQAV 
L TWWRTtl 

RSOAF 
L RSQAL 
L RSRAX 
L RSABI,Z 

L LOG 
MES15 
FIRST ROUTINE-READ 



XIO WRITE 1800 



PR02 



» 

*S*8t LD 

STO 
P^SBH LDX 
RSiiB LDX 
RSiBC STX 

LD 

SPrfFl STO 

EOR 

BSC 

MDX 

MOX 

RS180 LOX 

RSSSE STX 

PA5F1 

STO 

EOR 

nm bsc 

XIO 

LD 

AND 

BSC 

BSI 

OC 

RS49F XIO 
LO 
AND 
BSC 
LO 
EOR 
BSC 
MDX 
MOX 

RS49G MOX 
MOX 
XIO 
LD 
AND 
BSC 



01JUL66 
415178 



RSFAA 

RSFAB 

X2 4 

II RSQAC 

I RSQAF 

PSQAE 

RSQAE 

RSAAH 

RSABO.t- 

1 

RSABC 

II RSQAC 

1 RSQAE 

.ISQAF 

RSQAN 

RSQAE 

RSABF.t- 

RSQAF 

RSQAL 

RSRAI 

RSABE.Z 

RSDOD 

/FFFF 

RSQAF 

RSQAL 

RSRAI 

RSABE,Z 

RSQAF 

RSAAH 

RSABGtC- 

1 

RSABE 

-I 

RSABB 

RSQAF 

RSQAL 

RSRAG 

RSABH.Z 



BYPASS LABEL PRINTOUT 



MEMORY TEST-LOW CORE 
£ WRITE IS MEMORY 

INITIALIZE PROGRAM 
PASS ,OUN T ER 
ADDRESSING PASSES 



I 

L 
XI 



L 
XI 

X2 

L 
L 
L 
L 



« 
* 

PSABR LOX 
R'.ASP LD 
PSABN STC 
LDX 
LD 
5PVE2 STO 
PARF.2 LD 

STO 
CATE2 BSC 
XIO 
LD 
AND 
BSC 
BSI 
OC 



SECOND ROUTINE 

BIT ISOLATION TEST- 



X3 4 

L RSQAC 

RSQAH 
II RSQAH 

RSQAI 
1 RSQAH 
1 RSQAH 
L RSQAN 
L RSABJ.C 
L RSQAF 
L RSQAL 
L RSRAI 
L RSABNCl 
L RSODD 

/FFFD 



I NCR TO NEXT ADDRESS 

STORE ACCUM FOR ERROR ROU 
ERROR I OFTECTEO 



ERROR 1 CONSTANT 
REAO BIT SWITCHES 

ISOLATE SW 8 

IF SW g CN LOOP ADDR 



INCR TO NEXT ADDRESS 
COUNT PASSES 
REPEAT RT IF 10 ON 

REPEAT AODRESSING ROUTINE 

BIT BY 3IT-ADRESS BY ADDRESS 
BIT ISOLATION PASSES 



STORE ACC FOR ERROR OUTI 
ERROR 2 DETECTED 



PART NO. .183302 
PAGE 4A 



8CC04780 

8CC04790 

8CC04R00 

8CC04810 

8CC04820 

RCC04830 

8CC04840 

6CC04R50 

8CC04R60 

PCC04870 

BCC04880 

8CC04R90 

8CC04900 

8CC04"10 

BCC04920 

6CC04930 

8CC 04940 

BCC04950 

8CC04960 

8CC04970 

BC< 04980 

8CC 04990 

BCC05000 

8CC05010 

8CC05020 

BCC05030 

8CC05040 

8CC0i050 

8CC05060 

8CC05070 

8CC05080 

8CC05090 

8CC05100 

f«tC05110 

8CC05120 

8CC05130 

8CC05140 

8CC05150 

8CC05160 

8TC05170 

8CC051R0 

RCC05190 

8CC05200 

8CC0521O 

8CC05220 

8CC05230 

BCC05240 

8CC05250 

8CC05260 

8CC052T0 

8CC05280 

8CC05290 

RCC05300 

8CC05310 

8CC05320 

8CC05330 

8CC05340 

8CC05350 

8CC05360 

8CC05370 

8CC05380 

8CC05390 

8CC05400 

8CC05410 

8CC05420 

8CC05430 

6CC05440 

8CC05450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



PART NO. ?183302 
PAGE 5 





78«C OCOO 7826 


RSABJ 


XIO 


L 


RSOAF 


IF SW 8 ON LOOP ADDP 


8CC05460 






78A0 C40? 782C 




LD 


L 


RSQAL 




8CC05470 






78A2 E4CC 7961 




AND 


L 


RS4A! 




8CC05480 






78A4 4C20 7888 




BSC 


L 


RSABNU.Z 




8CC05490 






78A6 C042 




LD 




RSQAJ 




8CC05 500 






78A7 D042 




STO 




RSQAK 




8CC05510 






78A8 C04! 


RSABL 


LO 




RSQAK 




8CC05520 






78A9 D4?C 76E7 


SPVE3 


STO 


I 


RSQAH 




RCC05'i30 






78A8 66t0 78FA 




LDX 


12 


RSQAK 




8CC05540 






78A0 C4K> 78F7 


PARE3 


LO 


I 


RSQAH 




8CC05550 






78AF D4',0 78FC 




STO 


L 


RSQAN 




8CC05560 






78B1 F03S 




EOR 




RSQAK 




8CC 05570 






78B2 4CI«! 78C2 


DATE3 


BSC 


L 


RSABK,t- 


ERROR 3 DETECTED 


8CC05S80 






78B4 OCCO 7S26 




XIO 


L 


RS3AF 




8CC05590 






78P6 C403 782C 




LO 


L 


RSQAL 




RCC05600 






78B8 E40C 7961 




AND 


L 


RSRAI 




BCC05610 






7BRA 4C20 78A8 




BSC 


I 


RSA8L.Z 




8CC05620 






78BC C 69C», 




STX 


1 


TAGE1 




8CC05630 






78BD 65 El 78E7 




LDX 


11 


RSQAH 




8CC 056*0 






78B' : 4<C0 7A8F 




BSI 


L 


PSODD 




8CC05650 






78CI FFF? 




nc 




/TFrR 


ERROR 3 CONSTANT 


8CC05660 






78C2 OCSO 7826 


RSABK 


XIO 


L 


RSQAF 




8CC05670 






78C4 65C3 0000 


TAG 


LDX 


LI 







8CC05680 






78C6 C400 782C 




LO 


L 


RSQAL 




8CC 05690 






78C9 E4C0 7961 




AND 


L 


R3RAI 


ISOLATE BIT 8 


8CC05700 






78CA 4C? r J 78A8 




BSC 


L 


RSABL, Z 


IF SW 8 ON LOOP ADDS 


8CC05710 






78CC C01D 




LD 




RSCAK 




8CC05720 






78C0 4 '„*4 




BSC 




E 


IF OOD-BIT 15 IS REACHED 


8CC05730 






78CE T>~j~i 




MOX 




RSABM 


BRANCH TO INCRF ADR POUT! 


8CC05740 






78CF \*~A 




SRA 




1 


INCREMENT B'T 


8CC05750 






7800 D0i9 




STO 




RSQAK 


POSITION BY ONE 


8CC05760 






7BD1 70V7 




MDX 




SPVE3 




8CC 05770 






78D2 C011 


RSABM 


LO 




RSQAH 


TEST FOR MEMORY END 


8CC05780 






7803 F-.CO 7810 




EOR 


L 


RSAAH 




8CC05790 






7805 401^ 78DA 




BSC 


L 


RSABO, E- 




8CC05800 






7807 CCCF 




LO 




RSQAH 


INCREMENT TO TEST hEXT 


RCC05B10 






7808 8C12 

7809 7CA0 
7B0A 7^FF 


RSABO 


A 

MOX 
MDX 


X3 


RSQAK 
RSABN 
-I 


MEMORY LOCATION 
COUNT PASSES 


8CC05820 
8CC05830 
8CC05840 






780B 7CA9 
780C OtCO 7826 




MDX 
XIO 


L 


RSA8P 

RSQAF 




8CC05850 
8CC05860 






7BDE C4C0 7B2C 
78F0 T^oo 795T 




LD 

AND 


L 
L 


RSQAL 
RSRAG 




8CC05870 
8CC05880 






7BF2 4C?0 78B4 
78E4 7CC9 


* 


BSC 

MDX 


L 


RSABP.Z 
RSACJ 


REPEAT BIT ISOLATION 


8CC05890 
8CC05900 
















8CC05910 








♦ STORAGE 


AREAS PART 2 




8CC05920 






78F5 COW 


RSQAQ 


OC 




4 


WORST CASE PASSES 


8CC05930 
8CC059««0 






78F6 0000 


RSOAR 


DC 







WORST CASE PASS COU«fT 


8CC05950 






7BF7 OCSO 


RSOAH 


DC 







WORK AREA-ADR 


8CC05960 






78FB 0000 


PSOAI 


nc 







CONST ZERO 


8CC05970 






7BE9 PCCQ 


RSOAJ 


DC 




/8000 


BIT ZERO CONSTANT 


8CC05980 






78FA COCO 
78FB 0CC1 
78FC OCCO 


RSQAK 
RSOAM 
RSOAN 


OC 
D' 
DC 






1 



WORK AREA-BIT 

CONST 1 

STORAGE FOR ACCUM 


8CC05990 
8CC 06000 
8CC06010 






7BE0 0000 


RSOAG 

* 


DC 




/cooo 


PATTERN CONTROL WC»0 


8CC06020 
















8CC06030 








* ESTABLISH 


W0PS7 CASE 


PATTERN 


RCC06040 






78EE CCF9 
78FF DCFD 
78F0 6?C0 
78F1 67C0 FFFF 
7BF3 7CC3 
78F4 6600 FFFF 
78F6 C 6JC0 
78F7 COEO 


RSACJ 
RSAC1 

RSAOl 
RSACT 


LO 

STO 

LDX 

LDX 

MDX 

LDX 

LDX 

LD 


2 
L3 

LJ 

3 


RS'«AI 
RSOAG 
/OOOO 
/FFFF 
RSACT 
/FFFF 
/OOOO 
RSQAQ 


RESFT PTRN CONTROL 

COMPLIMENT PATTERN 
INITIALIZE WORST CASE 


8CC 0605 
8CC06060 
8CC06070 
8CC06080 
8CC 06090 
8CC06100 
8CC06110 
8CC06120 
8CC06130 




OATE 


01JU166 14N0V69 
















EC NO. 


-•15178 431319 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTFM 
LOW CORE FUNCUON TEST 



« 


* 


* 


t 


t 


% 


t 


S 



8 : 



€ 



3 

£5 

© 



-*' 



C? 



Ss 



DATE 
EC NO. 



78F8 DOEO 




STO 




RSOAR 


78F9 74FF 78E6 


RSACK 


MDX 


L 


RSQAR.-l 


78F8 7001 




MDX 




RSACX 


78FC 7050 




MDX 




RSACW 


78FD C400 7823 


RSACX 


LD 


L 


RSOAC 


78FF D05A 




STO 




RSRAA 


7900 C059 


RSACB 


LD 




RSRAA 


7901 1806 




SRA 




6 


7902 D058 




STO 




RSRAB 


7903 1802 




SRA 




2 


790* 8056 




A 




RSRAB 


7905 4C04 790F 




BSC 


L 


RSACA.E 


7907 6905 




STX 


1 


RSA0DE1 


7908 65 80 795 A 




LDX 


11 


RSRAA 


790A 6E80 795A 


SPVE4 


STX 


12 


RSRAA 


790C 6500 0000 


RSADD 


LDX 


LI 





790E 7007 




MDX 




RSACD 


790F 6905 


"SAC* 


STX 


1 


RSACZE1 


7910 6580 795A 




LDX 


11 


RSRAA 


7912 6F80 795A 


SPVE5 


STX 


13 


RSRAA 


79J4 6500 0000 


RSACZ 


LDX 


LI 





7916 C043 


RSACD 


LD 




RSRAA 


7917 F400 781D 




EOR 


L 


RSAAH 


7919 4C18 791F 




BSC 


L 


RSADB.E- 


791B 7401 795A 




K-1X 


L 


RSRAA.l 


7910 70E2 


f 


MDX 




RSACB 




* WORST CASE 


TFST LOAD 




» COMPLEMENT 


AND REPfcAT 


791E 6580 7828 


RSADB 


LDX 


11 


RSQAC 


7920 6939 


RSACL 


STX 


1 


RSRAA 


7921 C041 


RSACH 


LD 




RSRAJ 


7922 0041 




STO 




RSRAK 


7923 C480 795A 


PARE4 


LD 


I 


RSRAA 


7925 D400 78EC 




STP 


L 


RSQAN 


7927 4C20 792B 




BSC 


L 


RSACE, Z 


7979 F032 




EOR 




RSRAC 


792A 700E 




MOX 




SPVE6 


792B F030 


RSACE 


EOR 




RSRAC 


792C 4C18 7939 


DATE4 


BSC 


L 


SPVE6,E- 


792E OCOO 7826 




XIO 


L 


RSQAF 


7930 C400 782C 




LD 


L 


RSOAL 


7932 E400 7961 




AND 


L 


RSRAI 


7934 4C20 7921 




BSC 


L 


RSACH, Z 


7936 4400 7A8F 




BSI 


L 


RSDDD 


7938 FFF7 




DC 




/FFF7 


7939 0480 795A 


SFVE6 


STO 


I 


RSRAA 


793B 74FE 7964 




MDX 


L 


RSRAK, -2 


7930 70E5 




MDX 




PARE4 


793E OCOO 7826 




XIO 


L 


RSQAF 


7940 C400 782C 




LO 


L 


RSQAL 


7942 E400 7961 




AND 


L 


RSRAI 


7944 4C20 7921 




BSC 


L 


RSACH, Z 


7946 C013 




LD 




RSRAA 


7947 F400 7810 




EOR 


L 


RSAAH 


7949 4C18 794D 




BSC 


L 


RSACW, C- 


7948 7101 




MOX 


XI 


1 


794C 70D3 




MDX 




RSACL 


794D OCOO 7826 


RSACW 


X1C 


L 


RSQAF 


794F C400 782C 




LD 


L 


RSQAL 


7951 EOOO 




AND 




RSRAG 


7952 6680 78E0 




LDX 


12 


RSQAG 


7954 4EA0 7965 




BSC 


12 


RSRAD.Z 


7956 7201 




MDX 


2 


1 


7957 6A95 




STX 


2 


RSQAG 


7958 4E80 7965 




BSC 


12 


RSRAD 



PASS COUNTED 

COUNT WORST CASE PASSES 



RESET STARTING ADDR 



TEST FOR ME»3RY END 
AORHJADREl 

AND STORE THEN 

LOAD STARTIHS ACR IN XR1 
INITIALIZE COMPLEMENT CNTR 



ERROR 4 CC1STANT 



BRANCH FCP COMPLEMEM PAS 



ISOLATE BIT 8 

IF SW 8 CH LOOP ADDR 

TFST FOR MEMORY END 
BR IF END CF MEM 
MEM AOR*AC>U 



LOOP RT IF SW 10 ON 

BR IF LCOP RTN 
INDEX PATTERN CNTRL 



01JUL66 
415178 



14N0V69 
431319 



PART NO. 
PAGE 



8CC06140 

8CC06150 

8CC06160 

8CC06170 

8CC061R0 

8CC06190 

8CC06 200 

RCC06210 

8CCO6220 

8CC 06230 

8CC06240 

8CC06250 

8CC06 760 

8CC06770 

8CC06280 

8CC06290 

8CC06300 

8CC06 310 

8CC06320 

8CC06330 

8CC06340 

8CC06350 

8CC06S60 

8CC06370 

8CC06380 

8CC06 390 

flfC06400 

BCC06410 

8CC06420 

8CC 06430 

8CC06440 

8CC06450 

8CC06460 

8CC06470 

8CC 06480 

8CC06490 

6CC06500 

8CC06510 

8CC06520 

8CC06530 

8CC06540 

BCC06550 

8Cf 06560 

8Cf06570 

8CC06580 

8CC06590 

BCC06600 

8CC06610 

8CC06620 

8CC06630 

8CC06640 

8CC06650 

BCC06660 

8CC06670 

8CC066B0 

8CC06690 

8CC06700 

8CC06710 

8CC06720 

BCC06730 

8CC06740 

BCC06750 

8CC06760 

8CC06770 

8CC06780 

8CC06790 

8CC06800 

8CC06810 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



OATF 
fC NO. 



795A 





0000 


795B 





0000 


795C 





FFFF 


7950 





0000 


795E 





0000 


795F 





0020 


7960 





0010 


7961 





OOBO 


796? 





0004 


7963 





0003 


7964 





0000 


796'. 





78F0 


7966 





78F4 


7967 





7960 



7968 C400 781E 
796A 4C08 796E 
796C 6400 7900 



796E 

796t 

7971 

797? 

79/3 

797S 

797 7 

7978 

7<"7A 

7973 

797C 

797f 

797F 

7981 

7983 

798b 

7986 

7988 

798A 

79RC 

79BE 

7990 

7992 

799 3 

7995 

7997 

7998 

799A 

799B 

7990 

799E 

799F 

79A1 



6?04 
C400 
DOEB 
D008 
C400 
0400 
C0E4 
0480 
2C41 
7C11 
6580 
CODF 
04 80 
C480 
0400 
F006 
4C18 

ocoo 

C400 
E400 
4C20 
4400 
FFEF 
OCOO 
C400 
E0C9 
4C?0 
C0C2 
8400 
OOBF 
OOOC 
F400 
4C20 



7828 



7A60 
7AoB 



7950 



7950 

7950 
7951) 
78C.C 

799 3 
7826 
782C 
7961 
7977 
7A8F 

782o 
78?C 

7977 

78EB 



7810 
7977 



79A3 C400 7A6C 
79A5 0400 7A6B 
79A7 C400 7828 
79A9 00B3 



STORAGE AREAS PART 3 



* 
* 

RSRAA OC 
RSRAB OC 
RSRAC OC 
RSRAE 
RSRAF 
RSRAG DC 
RSRAH OC 
RSRAI DC 
RSRAX DC 
RSRAJ OC 
RSRAK DC 
* 

rsrad dc 

DC 

OC 



DC 
DC 





/FFFF 





/0020 

/0010 

/0080 

/0004 

3 



RSAC1 
RSACV 
RSACV 



WORK AREA-ADCRESS 

BUFFER AREA-WOPST CASE PA 

WORK AREA-ADDRESS 
CONST ZERO 
BIT 10 ISOLATION CON 
BIT 11 ISOLATION CON 
BIT 8 ISOLATION CON 
BIT 13 ISO' AT!ON CON 

COMPLEMENT PASS COUNTER 

CONTROL PRANCH 

ADDPESSES 
GO TO NEXT RTN 



STORAGE PROTECTION TEST ROUTINES 



* 

* 
* 
RSACV LD 

BSC 

LDX 
* 

* WRITE ZEROS ON PROTEC 



L RSAAK 
L RSACU, C 
L RSADA 



RSACU IDX 
RSACS ID 
STO 
STO 
LD 
STO 
RSACN LO 
SPVE7 STO 
PARE5 DC 
RSACO DC 
LDX 
LO 
STO 
PARE6 LD 
STO 
EOR 
DATE5 BSC 
XIO 
LD 
AND 
BSC 
BSI 
DC 
RSACM XIO 
LD 
AND 
3SC 
LO 
A 

STO 
STO 
EOR 
BSC 



<2 4 

. RSQAC 

RSRAE 

RSACO 
. RSSAH 
L RSSAF 

RSRAC 

I RSRAE 
/2C41 
RSEND62 

II RSRAE 
RSRAF 
RSRAE 
RSRAE 
RSQAN 
RSRAC 
RSACM.6- 
RSQAF 
RSQAL 
RSRAI 
RSACN, Z 
RSDDD 
/FFEF 
RSQAF 
RSQAl 
RSRAI 
RSACN, I 
RSRAE 
RSQAM 
RSRAE 
RSACO 
RSAAH 
RSACN, Z 



NOT 1800 BRANCH TO END 
TED AREA OF ONES 
STORAGE PRCTFCT PASSES 



INITIALIZE STS ADDRESS 
TELL INTERRUPT RCUTINE TO 
DISREGAPO iP ERROR 
ACC#/FFFF 

ADC SP BITS 



ACCUMIHO 

STO SHOULD NOT OCCUR 



UNPROTECT AND CLEAR 



LD 
STO 
LD 
STC 



RSSAG 
RSSAF 
RSQAC 
RSRAE 



ERROR 5 DECTECTED 



ERROR 5 CONSTANT 



ISOL VTE BIT 8 

IF SW 8 CN LOOP ADDR 



RETURN WITH ADR*ADR61 
MEMORY OF ONES 

SERVICE STORAGE PROT CT 



01JUL66 
415178 



14N0V69 
431319 
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8CC06820 

8CC06830 

8CC06840 

8CC06850 

8CC 06860 

8CC06870 

8CC068R0 

8CC06890 

8CC06900 

8CC06910 

8CC06920 

8CC069J0 

8CC06940 

8CC06950 

8CC06960 

8CC06970 

8CC069R0 

8CC06990 

RCC07000 

RCC07010 

8CC07070 

8CC07030 

8CC0"'040 

8CC07050 

8CC07060 

8CC07070 

8CC070R0 

8CC07090 

8CC07100 

8CC07U0 

8CC07120 

RCC07130 

8CC07140 

8CC07150 

8CC07160 

8CC07170 

8CC07180 

8CC07190 

8CC0720O 

8CC07210 

8CC07270 

8CC07230 

8CC07240 

8CC07250 

8CC07260 

8CC07270 

8CC07280 

8CC07290 

8CC07300 

8CC07310 

8CC07320 

8CCO7330 

8CC07340 

8CC07350 

CCC07360 

8CC07370 

8CC07380 

8CC07390 

8CC07400 

8CC07410 

8CC07420 

8CC07430 

8CC07440 

8CC07450 

8CC07460 

8CC07470 

8CC07480 

8CC07490 



PROG ID 
PAGE 



i 
6 



IBM MAINTENANCE OIACNOSTIC PROCRAM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



H 



If 

f 
f 



# 



% 



08CC-1 
6 





DATE 

© EC NO. 



© 



79AA 

79AB 

79AC 

79A0 

79AF 

79B0 

79B2 

79B4 

7986 

79B8 

79BA 

79BC 

79BE 

79C0 

79C2 

79C3 

79C5 

79C7 

79C8 

79CA 

79CP 

79CD 

79CE 

79CF 

79D1 

79D3 

79D4 

79D5 

79D7 

7909 

79DB 



D001 

2C40 

7C11 

6580 

COAE 

0480 

C480 

0400 

4C18 

OCOO 

C400 

E400 

4C20 

4400 

FFDF 

OCOO 

C400 

E099 

4C20 

C092 

8400 

D08F 

DODD 

F400 

4C20 

72FF 

709A 

CCOO 

C400 

E400 

4C20 



795D 

7950 
7950 
78EC 
79C3 
7826 
782C 
7961 
79AB 
7ARF 

7826 
782C 

79AB 

7REB 



781D 
79AB 



7826 
78?C 
795F 
796E 



79DD 
79DF 
79E0 
79F2 
79F4 
79F6 
79F8 
79EA 
79Eb 
79F0 
79FF 
79FI 
79F3 
79F4 
79F6 



74FF 
7016 
OCOO 
C400 
E400 
4C20 
4400 
7BC9 
OCOO 
C400 
E400 
4C20 
3005 
6400 
6400 



7820 

7826 
782 C 
7962 
79EB 
7AF4 

7826 
782C 

7960 
7840 

7805 
784C 



79F8 
79F9 
79FA 
79FB 
79FC 
79F0 
79FE 
7A00 
7A02 
7A04 
7A05 
7A06 
7A08 
7A09 
7A0A 
7A0C 



0000 

6B62 

D069 

285E 

086B 

D06C 

4C40 7A00 

OCOO 7826 

C400 782C 

E070 

F070 

4C18 7AF0 

C061 

E064 

4C18 7AIF 

C05E 



STO 
PAP.F7 DC 
RSACR DC 
I OX 
LD 
SPVE8 STO 
PARE8 LD 

STC 
0ATE6 BSC 
XIO 
LD 
AND 
BSC 
BSI 
DC 
RSACP XIC 
LD 
AND 
BSC 
LD 
A 

STO 
STO 
EOR 
BSC 
MDX 
MDX 
XIO 
LD 
AND 
BSC 



01JUL66 
415178 



RSACR 
/2C40 

RSEND62 
II RSRAE 

RSRAF 

RSRAF 

RSRAE 

RSQAN 

RSACP, E- 

RSQAF 

RSQAL 

RSRAI 

PARC7.Z 

RSOOD 

/FFDF 

RSQAF 

RSQAL 

RSRAI 
L PARE7.Z 

RSRAE 
L RSQAM 

RSRAE 

RSACR 
L RSAAH 
L PARE7.Z 
X2 -1 

RSACS 
L RSQAF 
L RSQAL 
L RSRAG 
L RSACU, Z 



INITIALIZE STS AOD"ESS 
CLEAR SP BIT" 



ACC#/0000 



ERROR 6 DFCTECTED 



ERROR 6 CONSTANT 

IF SW 8 ON LOOP ADDR 



LOOP ROUTINE FOR 5 PASSES 
LOOP RT IF SW 10 ON 



CCMMCN PROGRAM CNO 



* 
* 

RSACA MDX L RSF^B,-l 

MDX RSCCQ 

XIO L RSQAF 

LO L RSQAL 

AND L RSRAX 

BSC L RSAOCZ 

BSI L LOG 

OC MES16 

RSAOC XIO L RSQAF 

LO L RSQAL 

AND L RSRAH 

BSC L RSA0E.2 

RSQAW WAIT 5 

LDX L RSOKS 

RSCCQ LOX L RSABH 

* 

* INTERRUPT LEVEL ERROR 



REPEAT SP ROUTINE 



RSCCA DC 
STX 
STO 
STS 

x»o 

STO 

BOSC 

XIO 

LD 

AND 

EOR 

BSC 

LD 

AND 

BSC 

LO 



NEXT 





rsccui 

RSSAA 

RSCCE 

RSSAC 

RSSAD 

NEXT 

RSQAF 

RSQAL 

RSSAO 

RSSAP 

RSODK.C- 

RSSAO 

RSSAE 

RSCCB.C- 

RSSAF 



14N0V69 
431319 



CK BYPASS LOG 



PROGRAM ENO 

CK LOOP SUB °ROG SW 



LOOP PROG IF 11 ON 
PROGRAM COMPLETE 



PRESS START TO RE-RUN PROG 8CCO7970 
LOOP PROGRAM 



PART NO. 2183302 
PAGE 6A 



8CC07500 

8CC07510 

8CC0 7520 

HCC07530 

SCC07540 

8CC07550 

8CC 07560 

8CC07570 

8CC07580 

8CC07590 

8CC07600 

8CC076I0 

SCC07670 

8CC07630 

8CC 07640 

8CW650 

8CC07660 

8CC07670 

8CC07680 

8CC07690 

8CC07700 

8CC07710 

8CC07720 

8CC07730 

8CC07740 

8CC07750 

BCC07760 

8CC07770 

8CC07780 

8CC07790 

8CC07800 

8CC07810 

8CC07B20 

8CC07830 

8CC07840 

8CC07R50 

8CC07860 

8CC078 70 

8Cr07B80 

8CC07890 

8CC 07900 

8CC079I0 

8CC07920 

8CC079 30 

8CC07940 

8CC07950 

8CC07960 



ROUTINE 



RETURN ADOR TO MAIN INE 



8CC07980 
8CC07990 

eccoRooo 

8CC08010 
8CC0R020 
8CC08030 
8CC08040 
8CC0P050 



SAVE A 

STORE STATUS CARYtOFLO 

SENSE ILSW FOR LEVEL ERROR BCC08060 

8Cf 08070 
8CC08080 
8CC08090 
8CC08100 
8CC08110 
8CC08120 
8CCQR130 
8CC08140 
8CC08150 



TEST FOR THE ILLEGAL 
SW COMBINATIONS — 13, 
14 ON AND 8 OFF 



BRANCH IF ILLFGAL 
RESTORE STATUS OF ILSW 
ISOLATE STGE PRT ERRER 
TEST FOR STORAGE PROT VIOL 8CC08160 

8CC08170 



PROG ID 
PAGE 



t 

f 
I 
f 

4 
* 
{ 
I 
t 
f 
£ 
I 

4 



08CC-1 
6A 






I", ' 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR T*€ 1800 SYSTFM 
LOW CORE FUNCTION TEST 





7A00 4C10 7A1B 




BSC 


L 


RSCCG, - 




7A0F OCOO 7826 




XIO 


L 


RS3AF 




7*11 C4G0 78?C 




LO 


L 


RSOAL 




7A13 FAOO 7962 




AND 


I 


RSRAX 




7A15 AC20 7A35 




BSC 


L 


RSCCD.Z 




7A17 c AAOO 7AFA 




BS1 


L 


ICG 




7A19 7BD4 




DC 




MES17 




7A1A 7004 




MDX 




RSCCB 




7A1B C04E 


RSCCG 


LO 




RSSAO 




TA1C F051 




EOR 




RSSAF 




7A1D 4C98 79F8 




BSC 


I 


RSCCA, t- 




7A1F OCOO 7826 


RSCCB 


XIO 


I 


RSQAF 




7A21 C400 782C 




Lt> 


L 


RSQAL 




7A73 F400 7962 




AND 


I 


RSRAX 




7A25 4C?0 7A35 




BSC 


t 


PSCO.Z 




7A27 COA? 




LO 




RSSAD 




7A78 E0A6 




AND 




RSSAI 




7A79 AC 18 7A2E 




BSC 


I 


RSCCC, t- 




7A28 4400 7AF4 




BSI 


t 


LCG 




7 A/0 7BE0 




DC 




M C S18 




7A?E C03B 


RSCCC 


LO 




RSSAD 




7A2F fOAO 




AND 




RSSAJ 




7630 AC IB 7A3S 




BSC 


5 


RSCCD.t- 




7A32 AAOO 7AFA 




BSI 


L 


i or, 




7A3A TPtA 




or 




••^19 




7A35 OCOO 7876 


RSCCC 


XIO 


t 


PSQAF 




7A*/ CAOO 78<?C 




LO 


I 


RSQAL 




7A39 E037 




AND 




RSSAK 




7A3A ACAO 79F8 




bsc 


1 


FSCCA.Z 




7A3C C070 




ID 




RSSAD 




TA30 IROt 




SRA 




12 




TA3' F*35 




OR 




PSSAN 




7A3F f.OS' 




STC 




RSCCH 




7AA-5 t,t 10 




STX 


7 


RSCCI63 




TAAl C.J28 




10 




RSSAO 




7AA? F020 




AND 




RSSAJ 




7AA3 AC?0 7A5B 




BSC 


I 


RSCCI, Z 




TA4S C02A 




LO 




RSSAO 




7AA4 F01B 




AND 




RSSAR 




7AA7 AC 20 7A5B 




BSC 


I 


RSCCI, Z 




7AA9 6210 




LDX 


2 


16 




7A4I, 6301 




LOX 


3 


1 




7AA8 COAC 


RSCCJ 


LD 




RSCCA 




7AAC F700 7A78 




EOR 


13 


TBL 




7AA£ AC18 7A56 




BSC 


L 


RSCCK, C 




7A50 7301 




MDX 


3 


I 




7A51 7?FF 




MDX 


2 


-1 




7A52 70F8 




MDX 




RSCCJ 




7A53 COOF 




ID 




TBL I 




7A5A D023 




STO 




TBL 




7A55 7001 




MDX 




RSCCKtl 




7A56 6B?1 


RSCCK 


SIX 


1 


TBL 




7A5T C020 




LD 




TBL 




7A53 1890 




SRT 




16 




7A59 COOA 




1 D 




RSSA* 




7Aj» 2000 


RSCCE 


LDS 









7A53 67C0 0000 


RSCCI 


LDX 


f 







7A50 C 6600 0000 




L X 


12 







7A5F 3000 


RSCCH 


WAI1 








7A60 AC80 79F8 


* 
RSSAF 


BSC 


1 


RSCCA 




7A62 C 1000 


DC 




/1000 




7*63 FFFF 


TBL1 


OC 




/FFFF 






* SI 

* 
RSSA/ 


ORAGE MEAS FOR 




7A64 0000 


\ DC 









7A66 0002 




BSS 


c 


2 


DATE 


01 JUL 66 14N0V69 










EC NO. 


415178 431319 











BYPASS PRINTOUT IF IN S? 
SM 13 10 BYPASS PRNT 



BYPASS PRINTOUT IF BPANCH 

ERROR INT-STPRG PROT 

IF IN SP ROUTINE AN SP 

ERROR ONLY THEN RETURN TO 

MAINLINE 

SH 13 10 BYPASS PPNT 



BYPASS PRINTOUT IF BRAVCH 
LOAD ILSW FOP ERkOR lN^UP 
ISOLATE PARITY ERROR 



ERROR INT-PARITY 

TEST FOR INVALID OP C22E 

ISOLATE INV OP ERROR 



ERROR INT INV OP CODE 
IF SW 1A OFF, STTRE 

ACCUM, INS CTR, STATUS 
AW) WAIT 

10AD ILSW FOR ERROR 
PIACF BITS 0-A OF ILSW IN 
11-15 AND OR IN WAIT Oi» 
STORE IN WAIT 



BCH IF INV OP 



BCH IF CAR CHECK 



RFSTORE ACCUM CONTENTS 
RESTORE OFLOCCARRY IN3ICA 



RETURN TO MAINLINE 

ERROR ROUTINES 

SAVED ACCUMULATOR BUFFER 



PART NO. 2183302 
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8CC08180 

8CC0819C 

8CC 08200 

8CC08210 

8CC08720 

8CC08?30 

8CC0S240 

8CC08750 

8rr08260 

8CC08270 

8CCOR780 

8CC08290 

8CC08300 

6CC08310 

8CC08320 

8CC08330 

8CC08340 

8CC08350 

RCC08360 

8CC0S370 

8CC0a-«80 

RCC08390 

8CC08AO0 

8CC08A10 

8CC08470 

8CC08A30 

8CC0R440 

PCCC8A50 

8CC08A60 

8CC08A70 

8CC08A80 

8CC08A90 

8CC08500 

8CC08510 

8CCO8520 

8CC08530 

8CC085A0 

SCC0855P 

8CC08560 

8CC08570 

8CC08580 

BCC08590 

8CC08600 

8CC08610 

8CC08620 

8CC08630 

8CCO86A0 

8CCC8650 

8CC08660 

8CC08670 

8CC08680 

8CC08690 

8CC08700 

8CC08710 

8CC0R720 

8CC0P730 

8CC087A0 

BCC08750 

8CC08760 

8CC08770 

8CC08780 

8CC0B790 

8CC 08800 

8CC08810 

8CC08820 

8CC08830 

8CC088A0 

8CC08B50 



IBM MAINTENANCE DIAGNOSTIC PROG»AM FOR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



PROG ID 
PAGE 



I 

6. 
( 



6 
i. 



«, 



€ 



O 



08CC-1 

7 



§ 

c 
i 
t 
* 



s 

n 



C 
© 

o 



o 
o 
o 

o 





DATE 
EC NO. 



7A6R 
7A69 
7A6A 
7A63 
7A6C 
7A60 
7A6E 
7A6F 
7A70 
7A71 
7A72 
7A73 
7A7A 
7A75 
7A76 
7A77 
7A78 
7A79 
7A7A 
7A78 
7A7C 
7A7D 
7A7E 
7A7F 
7AR0 
7AB1 
7A8? 
7A83 
7A8A 
7A85 
7AP6 
7A87 
7A88 
7AR9 
7A8A 
7A88 
7A8C 
7A«D 
7A8E 



OOCO 
0300 
0000 
FFFF 
FFFF 
0002 
2000 
AOOO 
8000 
0002 
OOOC 
0001 
3000 
0086 
0006 
5555 
0000 
7853 
788D 
78AB 
790C 
791A 
793B 
797A 
79B2 
785D 
788F 
78AF 
7925 
797C 
7983 
79AD 
79BA 
7860 
7891 
78B2 
792C 
7986 
79 B6 



7A8F 
7A90 
7A<U 
7A92 
7A9 3 
7A95 
7A97 
7A9S 
7A99 
7A93 
7A9D 
7A9F 
7AA1 
7AA3 
7AA5 
7AA7 
7AA9 
7AAA 
7AAB 
7AAC 
7AAE 
7AB0 
7AB1 
7AB2 
7AB3 
7AB5 



0000 
6BAA 
6AAB 
2859 
OCOO 
CAOO 
EODO 
FODO 
AC I 8 
OCOO 
CAOO 
EAOO 
AC 20 
CA80 
ACOA 
AAOO 
7BF7 
701F 
1801 
ACOA 
AAOO 
7BFB 
7018 
1801 
ACOA 
AAOO 



7876 

787C 



7AF0 
7826 
787C 
796 2 
7 AC A 
7A8F 
7AAB 
7AFA 



7AB2 
7AFA 



7AB9 
7AFA 



RSSAC OC 
DC 
RSSAU DC 
RSSAF DC 
RSSAG DC 
RSSAH OC 
RSSAE 
RSSAI 
RSSAJ OC 
RSSAK DC 
RSSAL DC 
RSSAM DC 
riSSAN DC 
RSSAO DC 
RSSAH DC 
RSSAO DC 



01JUL66 
415178 



DC 

DC 



TBL 



DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
■ >C 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 



/OOOO 

/0300 



-1 

-1 

2 

/2000 

/AOOO 

/8000 

/OOO? 

12 

1 

/3000 

/0086 

/0006 

/5555 



SPVE1C2 

SPVE262 

SPVE362 

SPVFA&2 

SPVF5C2 

SPVE6C2 

SPVF762 

SPVE8C2 

PARFlt? 

PARF762 

PARF3E7 

PAREAE2 

PARF562 

PART6E2 

PARF7E2 

PARE8C2 

OAIEl 

DATF? 

0ATE3 

DATEA 

0ATE5 

DATF6 



YFS 



SENSE ILSW TOR 

LEVEL ZERO 

STORAGE FOR ILSW 

IN SP ROUTINE -INO, 

NOT IN SP ROUTINE 

IN STORAGE PROTECT ROUTINE 



ISOLATE SW 1A 



WAIT 1NSTPUCTI0N 
SWITCHES 8, 13, 14 
SWITCHES 13, 14 



ERROR ID 



* 
* 
* 

RSDOD OC 
STX 



ERROR ROUTINE TO SERVICE NON-INTERRUPT ERRORS 

STORAGE FOR RETURN AODRES 



RSDDE 



RSDDF 



STX 
STS 

XIO 

LD 

AND 

EOR 

BSC 

XIO 

LD 

AND 

BSC 

LD 

BSi 

BSI 

OC 

MOX 

SRA 

BSC 

BSI 

DC 

MDX 

SRA 

BSC 

BSI 



3 
2 

L 

L 





RSD0A61 

RS00Au3 

RSOOJ 

RSQAF 

RSQAL 

RSSAO 

RSSAP 

PSDDK.6- 

RSQAF 

RSOAL 

RSRAX 

RSDOX.Z 

RSOOD 

RSDDE, F 

LOG 

MES20 

RSDDX 

1 

RSDDF, E 

LCG 

MES71 

RSDDX 

1 

RSODG,E 

LOG 



<TORE STATUS OFLCGCARRY 
TEST FOR THF ILLEGAL 
SW COMBINATIONS— 13, 
14 ON AND 8 OFF 

BRANCH IF ILLEGAL 
SW 13 TO BYPASS PRNT 



BYPASS PRINTOUT IF BRANCH 
LOAD ERROR EXIT WORD 



ER 1 



ER 2 



14N0V69 
431319 



PART NO. ^183307 
PASE 7A 



8CC08860 

iCCOBSTO 

8CCCB9S0 

8CCOR890 

8CCOP900 

SCC08910 

8CCOR920 

8CC08930 

8CC0R9A0 

8CC0fi9«S0 

8CC08960 

8CC089-*0 

8CC0P980 

BCC0R990 

8CC09090 

8CC09110 

8CC 09020 

BCC09Q30 

8CC090A0 

8CC 09050 

8CC 09060 

8CC09070 

8CC0>?Qao 

8CC09090 

8CC09100 

8CCQ9110 

8Cf 09120 

8CC09 130 

8CC09140 

8CC09!«)0 

8CC09160 

8CC09170 

8CC0918O 

3CC 09190 

8CC09700 

8CC09?10 

8CC09?20 

8CC09?30 

BCC097AO 

8CC09250 

8CCQ9?60 

8CC09?70 

BCC09/10 

8CC09?90 

8CC09300 

PCC09310 

8CCQ93J0 

8CC09330 

"CC093A0 

8CC09 350 

BCC093&0 

8CC09370 

8CC09380 

8CC09390 

8CC094.Q0 

8CC09^10 

8CC 09420 

8CC09430 

8CC 09440 

8CC09450 

8CC09460 

8CC094 70 

8CCQ^480 

8CCOT490 

8CC09500 

8CC09510 

8CC09S20 

8CC09530 



PROG ID 

PA&E 



08CC-1 
7A 



( I ( 



I. ) 

t 



IBK MAINTENANCE DIAGNOSTIC PROGRAM FO» THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 
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• * IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1000 SYSTEM 

LOW CORE FW.CTION TEST 



PART NJ. .18330? 
PAGE 8A 



DATE 

EC WO. 



7AB7 

7AB8 

7AB9 

7ABA 

7ABC 

7ABE 

7ABF 

7AC0 

7AC1 

7AC3 

7AC5 

7AC6 

7AC7 

7AC9 

7ACA 

7ACB 

7ACC 

7AC0 

7ACE 

7A10 

7AD? 

7 AD 3 

7AD4 

7AD5 

7A06 

7AD7 

7AD8 

7AD> 

7ADA 

7A0C 

7ADE 

7ADF 

7AF0 

7AE1 

7AF2 

7AF4 

7AE6 

7At8 

7AFA 

7AEC 

7AfO 

7AEE 

7AF0 

7AFI 



7BFF 

7011 

1801 

4C04 

4400 

7C03 

700A 

lfiOl 

AC 04 

4400 

7C07 

7003 

4400 

7C0B 

6311 

62 06 

C0C2 

90A4 

F700 

4C1R 

7301 

7?rF 

70F7 

C08D 

D0A1 

7001 

6B9r 

C09F 

6700 

66C0 

1890 

COAF 

809? 

DOAD 

OCOO 

C400 

E400 

4CA0 

C400 

2000 

3008 

4C80 

C006 

3006 



7AC0 
7AF4 



7 AC 7 
7AF4 



7AF4 



7478 
7AD8 



0000 

0000 



7826 
782C 
7A71 

7A8F 
78EC 



7A8F 



7AF2 4C40 7805 



7AF4 
7AF5 
7Ar6 
7AF8 
7AFA 
7AFB 



0000 

681C 

OCOO 7826 

C400 782C 

1009 

4C10 7B17 



7AFD C480 7AF4 
7AFF D052 



7B00 
7B01 

7B03 
7B04 
7B06 



0840 

4C04 7B07 

1801 

4C04 7B09 

7004 



7B07 3007 



DC 
•Of 
RSODG S*A 
B% 

SSI 

DC 

T* 

RSOOH S*A 

8«C 
SSI 
DC 
*CM 
F-SDDI ESI 
DC 

rsoox t:< 



L3 

I. 

3 



L?X 

rsddc ir 
s 

RSDOB E'R 

*zn 

•CX 

•ex 
IT 

SFC 
•O/ 

Rsooi srx 

LI 
RSUOA llyt 

S*T 

t-s 

* 

SfO 
fEO 
13 

*«> 

sic 

1.7 

RSDOJ l« 
WAITB **IT 

RSDCK 13 
RSWSC *UT 

* 

ease 

************* 

* 

**•«********# 

"X 

%n 

no 

l "5 

SLA 
SSC 



L3 
L? 



I 



HES22 

RSDDX 

1 

RSDDH.E 

LOG 

MES23 

RSOOX 

1 

RSOOI ,E 

LOG 

MES24 

RSDDX 

LOG 

MES25 

17 

6 

RSDDD 

RSSAL 

TBL 

RSDDLtS- 

1 

-1 

RSOOC 

TBL I 

TBL 

RSDDLS1 

TBL 

TBL 





16 

RSOOD 

RSSAM 

RSDDD 

RSQAF 

RSOAL 

RSSAK 

RSOOD, Z 

RSOAN 



/B 

RSDDD 

RSSAO 

6 



ER 3 

ER 4 

ER 5 
ER 6 

CORRECT I REG 



L RSDKS 



INCREMENT RETURN MO ESS 

TO SKIP CAL'. OC 

IF SW 14 OFF SET iP 

INDICATOR LAMPS tm WAIT 

RELOAD A REG AS *"3» ERROR 
SAVE CARY60FL0 S'tT'JS 
DATA ERROR FOUND 



ILLEGAL SW COHB I MO- 
TIONS 13K14 ON 8 -.FF 
RESET INTER-RETUR* START 



*****************************,[** 

LOG ROUTINE * 

****************************.**** 



LOG 
LOG01 



STO 

LOG02 ffC 
SSC 
$«A 
fSC 
«RJX 

* 

LOGO? MIT 



I 





L0G06CI 

RSQAF 

RSQAL 

9 

TWRTR,- 

LOG 
PRWRT 

PRSNS 

L0G03.E 

1 

L0G04.E 

L0G05 



SAVE IX 3 

CK OUTPUT SELECTKN 

BRANCH IF 1053 OLTPU 

GET MESS4GE ADD*KS 
SET IN IOCC 

CHECK PRINTER REKTY 
BRANCH IF NOT REiOY 

BRANCH IF BUSY 
READY ANO NOT BUSf 

NOT READY 



SE 



01JUL66 
415178 



14N0V69 
431319 



# 



8CC09540 
8CC09550 


$ 


9 


7B08 7CF7 






MDX 




L0G02 


CHECK AGAIN 


8CC 10220 


i 


8CC09560 
8CC09570 
8CC09580 


• 


% 


7*09 3009 
780A 70F5 




LOG 04 


WAIT 

MDX 




9 

LCG02 


BUSY 

CHECK AGAIN 


8CC 10730 
8CC10240 
8CC 10250 


t 


8CC09590 
8CC09600 
8CC09610 
8CC09620 
8CC 09630 
8CC 09640 
8CC09650 
8CC09660 


8 

1 

8 


i 

% 
if 


T8-59 0846 
750C 0843 

Tjoa o ioo? 

7S0E 4810 
750F 70FC 
7*10 083D 




LOG05 

* 

* 
* 
* 
LOG06 

* 


XIO 

XIO 
SLA 
BSC 

MDX 
XIC 




PRWRT 

PRSN 
2 

*-4 
PRSNS 


OUTPUT MESSAGE 
CHECK FOR CP CPMPLT 

RESET OSW 


8CC10260 
8CC10?7O 
8CC19280 
8CC10290 
8CC 10300 
8CC10310 
8CC10320 
8CC 10330 


s 
s 


8CC09670 
8CC09680 










PRINTING COMPLETE 


8CC10340 
8CC10350 


f 


8CC09690 
8CC09700 
8CC09710 


8 


t 


7811 67C0 
7313 7401 


0000 
7AF4 


LDX 
MOX 


L3 
L 



L0G,1 


RFSTCRE IX 3 
BUMP RETURN 


8CC1C360 
8CC1CT0 
8CC10"^0 


ft 


8CC09720 
8CC09730 


t 


f 


7615 4C80 


7AF4 


BSC 


1 


LOG 


RETURN TO USER SX 


8CC 10390 
8CC 10400 


u 


8CC09740 
8CC09750 
8CC09760 
8CC 09770 
8CC097B0 
8Cf 09790 
8CC09ROO 


8 
6 


i 


7S17 1010 
7318 D032 
7S19 083A 
731A 1005 
7318 180F 
7S1C 4C18 


7B20 


* 
TWRTR 

* 
WAITA 

* 
TWR01 


SLA 
STO 
XIO 
SLA 
"RA 
BSC 


L 


16 

WRDSW 
TWSNS 
5 

5 
TWROl.t- 


CHECK IF TYPEWRITER 
READY 


8CC10410 
8CC 10420 
8CC10430 
8CC 10440 
8CC 10450 
8CC10460 
8CC 104 70 


i 
ft 


8CC09810 
8CC09820 
8CC 09830 
8CC09840 
8CC09850 
8C" 09860 


8 
• 




781 E 300A 
781F 70F9 

7820 C028 




WAIT 
MDX 

LD 




/A 

TWRTR62 

TWRTO 


CARRAIGE RETURN ANO 


8CC10480 
8CC10490 
8CC 10500 
CCC10510 
8CC10520 








7B21 D02A 






STO 




IOARA 


LINE SPACE TO 10 ARA 


8CC 10530 


8CC09870 
8CC09880 
8CC0989C 
8CC09900 
8CC09910 
8CC09920 
8CC09930 
8CC09940 
8CC09950 
8CC09960 
8CC09970 


• 

• 

8 


© 

9 
9 


7822 0833 

7823 0830 

7824 180B 
7325 4R04 
7S26 70FC 

7827 6301 




* 
* 

* 


XIO 

XIO 
SRA 
BSC 

MDX 

LDX 


3 


TWWRT 

TWSNS 
11 
E 
*-4 

1 


CARG RETURN/LINE SP 
HANG TILL NOT BUSY 

BYPASS 1443 WORD COUNT 


8CC 10*40 
8CC10550 
8CC10560 
8CC10570 
8CC10580 
8CC 10590 
8CC10600 
8CC1061Q 
8CC 10620 


f 

1 
t 


8 


8 


7828 C480 
7B2A DOOl 


7AF4 


* 
TWR02 


LD 

STO 


I 


LOG 
TWP0261 


GET MESSAGE ADDRESS 


8CC10630 
8CC 10640 


I 


8CC09980 






7B28 CfOO 


0000 


LO 


l: 





GET WORD TO PRSKT 


8CC 10650 
8CC 10660 




8CC09990 
8CC 10000 
8CC10010 
8Cf 10020 
8CC 10030 


ft. 


§ 


7620 D400 


7B88 




STO 


L 


COOWD 


SET IN CONVERsnH RT 


8CC 10670 


1 






782F F01A 






EOR 




TWRT1 


CHSCK IF TERMINtMR 


8CC10600 


e 


8 


7830 4C18 


7B11 


BSC L LOG06,£- BRANCH IF TERMINATOR 

* 

********** *********♦*♦*******#»*******«,***«*$ 


8CC10690 
8CC 10700 
8CC10710 


t 


8CC10040 
8CC10050 
8CC 10060 


9 


a 


7632 4400 


7B58 




BSI 


L 


COOCV 


GO CONVERT 43 T«J TW SRC 


8CC10720 








*****************♦*********************»»»,,„,» 

* 


8CC 10730 


*? 


8CC10070 






7634 C400 


7B88 




LO 


L 


CODWD 




8CC10740 
8CC 10750 




8CC10080 
8CC 10090 


8 


• 


7B36 D015 




♦ 
* 
* 
X10WF 


STO 




ICARA 




8CC 10760 


i 


8CC10100 
8CC10U0 
8CC10120 
8CC10130 


• 


• 


7B37 08 IE 




XIO 




TWWRT 


OUTPUT A CHARACTER 
WRITE CHARACTER 


8CC10770 
8CC10780 
8CC 10790 
8CC 10800 


% 


8CC 10140 
8CC10150 
8CC10160 
8CC 10170 
8CC10180 


• 


9 


7838 081B 
7B39 180B 
7B3A 4804 
7638 70FC 




XIOSN XIO 
SRA 
BSC 

MDX 




TWSNS 
11 
E 
XIOSN 


HANG ON BUSY 
BUSY 


8CC 10810 
8CC10R20 
8CC10830 
8CC 1084 
8CC10850 




8CC10190 
8CC 10200 
8CC10210 


• 


9 


763C COOE 




* 
* 


LO 




CHECK IF 1ST 1/2 WORD 
WROSW GET 1/2 WORD SWITCH 


8CC10860 
8CC10870 
8CC 10880 
8CC10B90 


i 




• 


8 


















c 
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• 
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PROG ID 08CC-1 
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• 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
tOW CORE FUNCTION TFST 



DATE 
EC NO. 



7B30 4804 




BSC 


E 




/B3E 7006 


* 


MDX 


TWR03 


GO SET UP NEXT WORD 




* 
* 




SET UP FOR 2ND 1/2 WORJ 


7B3F COOC 


10 


IOARA 




7B40 1008 




SLA 


8 


POSITION 2ND 1/2 WO 


7B41 OOOA 




STO 


IOARA 




7B4? 7401 7B4B 




MDX 


L WRDSW.l 


BUMP WORD SWITCH 


7B44 70F2 


* 


MDX 


XIOWR 


GO WRITE 2ND 1/2 WD 




• 
* 




SET UP FOR NEX1 WORD 


7B45 7301 


TWR03 


MDX 


3 1 


NFXT WORD INDEX 


7B46 7401 7B4B 




MDX 


L WRDSW.l 


BUMP WORD SWITCH 


7848 70E2 


* 
* 


MDX 


TWR02 


GO GET NEXT WORD 
LOG CONSTANTS 


7B4? 8103 


TWRTO 


DC 


/no3 


LINE SP/CARRAIGE RTN 


TB4A FFFF 


TWRTl 


DC 


/FFfr 


TERMINATOR 


7B4B 0000 


KRDSW 


DC 





1/2 WORD SWITCH 


7B4C 0000 


I OAR A 

* 


DC 





OUTPUT AREA 


7B4E 0000 


* 
PRSNS 


BSS 


E 




7B4E 0000 


DC 


/oooo 


PRINTER SENSE IOCC 


7B4F 3701 




DC 


/3701 




7B50 0000 


PRSN 


DC 





NON RESET SENSE 


7B51 37C0 




DC 


/3700 




7B52 0000 


PRWRT 


DC 


/OOOO 


PRINTER WRITE IOCC 


7B53 3500 




DC 


/3500 




7B54 C 0000 


TWSNS 


DC 


/OOOO 


TYPEWTR SENSE IOCC 


7B55 OS 01 




DC 


/0F01 


DSW RESET 


7B56 7B4C 


TWWRT 


DC 


IOARA 


TYPEWTR WRITE IOCC 


7B57 0900 


* 


DC 


/0900 


WR TYPEWRITER 




tt*tt*»ututt»» ***************************** 




* 




1443 


CODE TO 1816/1053 * 




* 




CODE 


CONVERSION ROUTINE * 




***** 

* 

COOCV 


****************************** ********** 


7858 0000 


DC 







7B59 6927 




STX 


1 C0DC4CI 


SAVE INOEX REGS 


TB5A 6A28 




STX 


2 C0DC4C3 




7B5B 6B29 


•ft 


STX 


3 CO0C4E5 




7B5C 1010 




SLA 


16 


CLEAR LEFT HALF WORD 


7B5D D02B 




STC 


LHIND 


♦INOICATOR 


7B5E 6300 


A 


LDX 


3 




7B5F C028 


CODC! 


LD 


CODWD 


GET WORD TO CONVERT 


7B60 1890 




SRT 


16 


SET IN Q 


7B61 C0?7 




10 


LHIND 




7862 4820 




e jc 


Z 


SKIP IF LEFT HALF 


7B63 10B8 


4 


SLT 


e 


POSITION RIGHT HALF 


7B64 1010 




SLA 


16 




7B65 1084 




SLT 


4. 


ZONE TO ACCUM 


7B66 0023 




STO 


CODOO 




7B67 6580 7B8A 


* 


LOX 


11 COOOO 


IX 1 * ZONE 


7B69 1010 


SLA 


16 




7B6A 1084 




SLT 


4 


DIGIT TO ACCUM 


7B6B D01E 




STO 


CODOO 




7B6C 6680 7B8A 


t 


LOX 


12 COOOO 


IX 2 * DIGIT 


7B6E C500 7B80 




LD 


LI ZONE 


GET ZONE TABLE ADDR! 



PM01 
PM02 



SE 



01JUL66 
415178 



14N0V69 
431319 



PART NO. 2183302 
PAGE 9 



8CC 10900 

8CC109I0 

8CC10920 

8CC10O30 

8CC10940 

8CC 10950 

8CC10960 

8CC10970 

8CC109S0 

8CC10990 

8CC11000 

8CU1010 

8CC11070 

81X11030 

8CC11040 

8CC11050 

8CC 11060 

8CC11070 

8CC11080 

8CC11090 

8CC11100 

8CC11110 

8CC11120 

8CCU130 

8CCU140 

8CC11130 

8CC1U60 

8CC11170 

8CC11180 

8CCU190 

8CC11200 

8CCll?10 

8CC11220 

8CC11230 

8CC11740 

8CC11250 

8CC11260 

8CC 11270 

8CCU280 

8CCU290 

8CC11300 

8CC11310 

8CCU320 

8CCU330 

8CCU340 

8CC11350 

8CC11360 

8CC11370 

8CC11380 

8CC11390 

8CC11400 

8CC11410 

BCC11420 

8CCH430 

8'X11440 

8CCU450 

8CCH460 

8CC11470 

8CCU480 

8CC11490 

8CCU500 

8CC11510 

8CC11520 

8CC11530 

8CC11540 

8CC11550 

8CCU560 

8CC11570 
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f 
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f 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FCR THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 



a 



if 



a 



08CC-1 
9 



f 

e 
t 
« 

e 

t 

i 
• 



9 
O 



7B70 D001 

7B71 C600 OOOO 
7B73 D700 7B8B 

7B75 C013 
7B76 4C20 7B7C 
7B78 7401 7B89 
7B7A 7301 
7B7B 70E3 

7B7C COOE 

7B7D 1008 

7B7E E80D 

7B7F 0008 

7B80 6500 OOOO 
7B82 C 66C0 OOOO 
7B84 6700 OOOO 

7B86 4C80 7t<58 



7B88 OOOO 
788 c% OOOO 
7B8A OOOO 
7B8B OOOO 
7BBC OOOO 



OATE 
EC NO. 



7B8D 7B91 
7B0E 7B9C 
7B8F 7BA7 
7B90 7BB1 



7B91 

7B92 

7B93 

7B94 

7B95 

7B96 

7B97 

7B98 

7B99 

7P9A 

7B9B 

7B9C 

7B9D 

7B9E 

7B9F 

7BA0 

7BA1 

7BA2 

7BA3 

7BA4 

7BA5 

7BA6 

7BA7 

7BA8 

7BA9 

7BAA 

7BAB 

7BAC 



0021 

OOFC 

00D8 

OODC 

OOFO 

00F4 

OODO 

00D4 

00E4 

OOEO 

00C4 

OOOO 

OOOO 

009A 

009E 

00B2 

00B6 

0092 

0096 

00A6 

00A2 

0021 

OOOO 

J07E 

005A 

005E 

0072 

0076 



STO 

C0DC2 LO 
STO 

* 

LO 

BSC 

MOX 

MOX 

MDX 

* 

C0DC3 LO 
SLA 
00 
STC 

* 

fODC4 LOX 
LOX 
LOX 

* 

ssc 

* 

* 

* 

* 

CODWD DC 

LHIND DC 

CODOO DC 

CODOl OC 

COD02 DC 

• 

* 

* 

* 

* 

ZONE OC 
OC 
OC 
OC 

* 

ZONEN OC 
OC 
DC 
OC 
OC 
DC 
DC 
OC 
OC 
OC 
OC 
ZONEI OC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
Z0NE2 OC 
OC 
OC 
OC 
OC 
DC 



01JUL66 
415178 



14N0V69 
431319 



C00C261 

L2 

L3 CC001 

LHIND 
L C00C3.Z 
L LHIND, 1 
3 1 

C0DC1 

CODOl 
8 

C0D02 
CODWD 

LI 
L2 
L3 

I COOCV 











SET IN CONVERSION WD 
GET CONVERTED CODE 

BRNCH IF RIGHT hALF 

GO CONVERT RIGHT HLF 
PACK CONVERTEO CODES 

RESTORE INDEX REi,S 
RETURN TO USER 



CONSTANTS 

WORD LOCATION 

LEFT HALF INDICATOR 

WORK AREA 

CONVERTED LH CHARACT 

CCNVERTEO RH CHARACT 



1443 TO 1816/1053 
CONVERSION TABLES 



COOE 



ZONEN 
ZONEI 
ZCNE2 
Z0NE3 

/0021 

/OOFC 

/00D8 

/OODC 

/OOFO 

/00F4 

/OODO 

/0004 

/00E4 

/OOEO 

/00C4 





/009A 

/009E 

/00B2 

/00B6 

/0092 

/0096 

/00A6 

/00A2 

/0021 



/007E 

/005A 

/005E 

/0072 

/0076 



NO ZONE 
ZONE 

11 ZONE 

12 ZONE 

SPACE 
1 
2 
3 

4 
5 
6 
7 
8 
9 




S 
T 

U 
V 

w 

X 
Y 

z 

SPACE 

J 
K 
L 

M 
N 



PART NO. i. 183302 
PAGE 9A 



8CC11580 
8CC11590 
8CCU600 
8CC11610 
8CC11620 
8CC11630 
8CC11640 
BCC11650 
8CC 11660 
8CC11670 
ACCU680 
8CC 11690 
8CC11700 
8CC11710 
8CC11720 
8CC11730 
8Cfll740 
8CC11750 
8CC11760 
8CC11770 
SX 8CC11780 
6CC11790 
8CC11800 
8CC11810 
8CC11820 
8CCUP30 
8CC11840 
8CC11850 
8CCU860 
8CC11870 
8CC11880 
8CC11890 
8CCU900 
8CC11910 
8CC11920 
8CC11930 
8CC11940 
8CC 11950 
8CCI1960 
8CCU970 
8CCU980 
BCC11990 
8CC12000 
8CC12010 
8CC12020 
8CC 12030 
8CC 12040 
8CC 12050 
8CC12060 
8CC12070 
8CC120B0 
8CC12090 
8CC12100 
8CC12110 
8CC12120 
8CC12130 
8CC12140 
8CC12150 
8CC12160 
8CC12170 
8CC12180 
8CC12190 
8CC12200 
8CC12210 
8CC12220 
8CC12230 
8CC12240 
8CC12250 



PROG ID 
PAGE 



€ 
ft 

ft 

4 
t 

t 

i 

i 

t 
l 
* 

€ 



08CC-1 
9A 



i J 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOP THE 1800 SYSTEM 
LOW CORE FUNCTION TEST 





7BA0 0052 




OC 


/0052 







7BAE 0056 




DC 


/0056 


P 




7BAF 0066 




OC 


/0066 


Q 




7BB0 0062 




OC 


/0062 


R 




7BB1 0000 


Z0NE3 


DC 









7BB? 003E 




DC 


/003E 


A 




7BB3 OOIA 




DC 


/OOIA 


B 




7BB4 001E 




DC 


/001E 


C 




7BB5 0032 




DC 


/0032 


D 




7BB6 0036 




DC 


/0036 


E 




7BB7 0012 




DC 


/0012 


F 




7BBB 0016 




OC 


/0016 


G 




?BR9 0026 




DC 


/0026 


H 




7BBA 00?? 




DC 


/0022 


I 




7BBB 0086 




DC 


/0086 


ERROR 




7BBC 0000 


MFS15 


DC 


/oooo 


PERIOD 




7BB0 OOOA 


DC 


10 


WORD CT 




7BBE 1213 




DC 


/1213 


ST 




7Dl>F 3129 




DC 


/3129 


AR 




7BC0 1300 




DC 


/UCO 


T 




7BC1 2326 




DC 


/2326 


10 




7BC2 1600 




DC 


/1600 


W 




7BC3 3326 




OC 


Z3326 


CO 




7BC4 2935 




DC 


Z2935 


RE 




7BC5 0013 




DC 


/0013 


T 




7BC6 3512 




DC 


/3512 


ES 




7BC7 1300 




DC 


/1300 


T 




7BC8 FFFF 


MES16 


DC 


/FFFF 


TERM 




7BC9 00C9 


DC 


9 


WORD CT 




7BCA 3525 




DC 


Z3525 


EN 




760 9 34 00 




DC 


/3400 


D 




7BCC 2326 




DC 


/2326 


10 




7BC0 1600 




DC 


/1600 


H 




7BCE 3326 




OC 


/3326 


CO 




7BrF 2935 




DC 


/2935 


RE 




7BD0 0013 




DC 


/0013 


T 




7B01 3512 




DC 


/351? 


ES 




7B02 1300 




DC 


/1300 


T 




7B03 FFFF 


* 

MEsr 


DC 


/FFFF 


TERM 




7BD4 OOOA 


7 DC 


10 


WD CT 




7BD5 3529 




DC 


/3529 


ER 




7BD6 2926 




OC 


/2926 


RO 




7B07 2900 




OC 


/2900 


R 




7B08 3925 




OC 


/3925 


IN 




7B09 1300 




DC 


/1300 


T 




7B0A 1213 




DC 


/1213 


ST 




7B0B 2629 




DC 


/2629 


OR 




7BDC 3700 




DC 


/3700 


G 




7BD0 2729 




DC 


/2729 


PR 




7BDE 2613 




DC 


/2613 


OT 




7B0F FFFF 


* 

MESl 


nc 


/FFFF 


TERM 




7Bi 0008 


8 DC 


8 


WD CT 




7BFI T 3529 




DC 


Z3529 


ER 




7BF2 2926 




DC. 


Z2926 


RO 




7BF3 2900 




DC 


/?900 


R 




7BF4 3925 




DC 


/3925 


IN 
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3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 



1'. PURPOSE 



THE CORE FUNCTION TEST PROGRAM VERIFIES THE PROPER OPERATION 
OF THE CORE MEMORY OF AN 1800. THE PROGRAM EXERCISES THE 
READ/WRITE, SENSE/ INH IRIT , ADDRESSING AND STORAGE PROTECT 
CIRCUITRY. POSITIONS THAT DO NOT FUNCTION CORRECTLY ARE 
INDICATED BY ERROR LOGS OR ABNORMAL WAITS. 

REQUIREMENTS 

2.1 PROGRAM 

THE 1800 RELOCATABLE DIAGNOSTIC LOADER IS USED TO LOAD THE 
OBJECT DECK OR PAPER TAPE OBJECT PROGRAM. 

2.2 EQUIP. iENT 

AM 1PO0 PROCESSOR-CONTROLLER WITH 8 - 65K OF MEMORY. (1801, 
1802, 1803) ■ - .;••.. 

A 144 2 CARD READ PUNCH O.R 1054 PAPER TAPE READER. 

A 1443 OK 1816 OR 1053 PRINTER FOR DIAGNOSTIC MESSAGES. 



THE CORE FUNCTION TEST CAN BE LOADED AND EXECUTED ON ANY 4K WORD 
BOUNDARY. NORMALLY THE PROGRAM IS INITIALLY LOADED AND EXECUTEO IN 
THE HI 4K OF THE FIRST BSM, HOWEVER, IF THE FIRST BSM IS SUSPECT, IT 
IS POSSIBLE TO LOAD THE CORE FUNCTION TEST IN THE HI 4K OF ANY BSM BY 
PATCHING THE RELOCATABLE LOADER. 

IF THE OBJECT PROGRAM IS ON CARDS, THE LOADER SHOULD BE PATCHED WITH 
ONE OF THE FOLLOWING CARDS TO ACCOMPLISH RELOCATION. 



BSM 


ADDRESS RANGE 
OF BSM 


PATCH 
COLS. 


CARD 
1-10 


1 


/0000-/1FFF 


£0125 


17FF 


2 


/2000-/3FFF 


£01 2b 


37FF 


3 


/4000-/5FFF 


£0125 


57FF 


4 


/6000-/7FFF 


£0125 


77FF 


5 


/8000-/9FFF 


£0125 


97FF 


6 


/A000-/BFFF 


£0125 


B7FF 


7 


/CO00-/DFFF 


£012 5 


D7FF 


8 


/E0O0-/FFFF 


£0125 


F7FF 



* IMPORTANT OPERATING INSTRUCTION 

*********** ******* ***************»********,;,,*,;„;, ;;;£££ ........... 



* 

* 
* 
* 
* 
* 
* 
* 
* 
***********************#******; 



THE 8 PATCH CARDS SHOWN ABOVE ARE SENT TO THE FIELD * 

IN FRONT OF THE OBJECT DECK. THE CUSTOMER ENGINEER * 

SHOULD SELECT ONE FOR USE AND REMOVE AMD SAVE THE * 

OTHER SEVEN DURING OPERATION. THE SELECTED PATCH * 

CARD IS PLACED BETWEEN THE OBJECT AND LOADER DECKS. * 

**NOTE - THE PATCH CARDS AFFECT THE LOADER. THEY * 

ARE NOT SHOWN IN THE OBJECT DECK LISTING. * 



*********************** ******* 



IF THE OBJECT PROGRAM IS ON PAPER TAPE, THE RELOCATABLE PAPER TAPE 
LOADER (PROGRAM 08R0) WILL HAVE TO BE PATCHED AFTER if HAS BEEN 
LOADED. 

OF COURSE, IF THE 1800 HAS ONLY ONE BSM, THE OPFRATOR WILL 
HAVE TO ATTEMPT TO LOAD THE CORE FUNCTION TEST IN THE NORMAL 
MANNER OR ATTEMPT TO TROUBLESHOOT THE MEMORY WITH SOf.E OTHER 
METHOD. " 
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TO LOAD THE CORE FUNCTION TEST OBJECT DECK OR PAPER TAPE OBJECT 
PROGRAM - 

1, CLEAR THE MEMORY, RESET THE MACHINE. 

2. A) CARD - PLACE TEST DECKS IN CARD READER, PRESS READER 

START BUTTON. 

B) PAPER TAPE - PUT PAPER TAPE LOADER PROGRAM, 08B0, IN THE 
PAPER TAPE READER AND LOAD THE PROGRAM. WHEN IT COMES 
TO WAIT /30F'f AND THE IAR IS AT /0083, PATCH WORD /0125 
USING THE DATA ENTRY SWITCHES - 





ADDRESS RANGE 


HEX PATCH 


BSM 


OF BSM 


IN WORD /0125 


1 


/0000-/1FFF 


/17FF 


2 


/2000-/3FFF 


/37FF 


3 


/4000-/5FFF 


/57FF 


4 


/6000-/7FFF 


/77FF 


5 


/8000-/9FFF 


/97FF 


6 


/AOOO-/BFFF 


/R7FF 


7 


/C000-/DFFF 


/D7FF 


8 


/E000-/FFFF 


/F7FF 



WHEN THE PATCH. IS COMPLETED, RETURN TO WAIT V30FF AT 
LOCATION /0082. PUT THE OBJECT PROGRAM TAPE INTO THE 
PAPER TAPE READER AND READY IT. 

3. SET DATA ENTRY SWITCH 9 TO INDICATE PRINTER FOR 
MESSAGE LOGGING. 

SWITCH 9 OFF, LOG ON 1443. 
SWITCH 9 ON, LOG ON 1816 OR 1053. 

READY INDICATED PRINTER. 

4. A) CARD - PRESS THE PROGRAM LOAD BUTTON. THE PROGRAM WILL 

BE LOADED, A HEADING PRINTED AND THE PROGRAM WILL WAIT 
FOR THE DATA ENTRY SWITCH SETTINGS. 

B) PAPER TAPE - PRESS THE START BUTTON AND THE PROGRAM WILL 
BE LOADED, A HEADING PRINTED AND THE PROGRAM WILL WAIT 
FOR DATA ENTRY SWITCH SETTINGS. 

ftftftft ft ft ftftft ftftftft ftftftft ftft ft ft ft ftft ft ftftftftft ftftftftft ftft ft ft ftftftftft ftftftftft ftftftftft ft ft ftftftft 
ft ft 

* IMPORTANT OPERATING INSTRUCTION * 

ft ft 
*ftftftftftft#ftftft**ftftftftft#ft*ftftftftftftftftft«*ft*ft*****ftftft*ftft»#*ftft*ft**ft«»ft# 

ft ft 

* 5. SET WRITE STORAGE PROTECT BITS SWITCH TO YES. « 

* SET CHECK STOP SWITCH TO OFF. * 
ft ft 

ft ftft ft ftftftftftftftftftft*ft*ftftftft*ft ftftftft ftftft ftftftftftft ftftftft ftftftftftftftftftftft ftft ftftftft ftftft 

THE CORE FUNCTION TEST IS LOADED AND READY TO RUN. 



3.2 PROGRAM OPERATION 

THE CORE FUNCTION TEST CONSISTS OF EIGHT PATTERN TESTS. 
THEY CAN ALL BE RUN TOGETHER OR ONE CAN BE SELECTED. THE 
TEST CAN BE RUN IN ALL BASIC STORAGE MODULES OF A MACHINE 
OR IT CAN BE RUN IN A SELECTED BASIC STORAGE MODULE. IT IS 
ALSO POSSIBLE FOR THE CORE FUNCTION TEST TO BE RESIDING 
IN ONE BASIC STORAGE MODULE AND RUNNIIvG PATTERN TESTS IN 
ANOTHER BASIC STORAGE MODULE (EXTERNAL TEST.) THERE ARE 
PROVISIONS FOR LOOPING ON A PATTERN TEST AND LOOPING ON THE 
ENTIRE PROGRAM. 

PATTERN TEST SELECTION IS MADE BY SETTING DATA ENTRY 
SWITCHES 0-3. SETTINGS ARE INDICATED BELOW - 



DATA ENTRY SWITCHES 
0123 

0000 



0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 

1111 



PATTERN TFST SELECTED 

ALL EIGHT PATTERN TESTS ARE TO BE 
EXECUTED. 

1 - READ/WRITE ADDRESSES 

2 - BIT ISOLATION 

3 - FLOATING ZERO 

4 - WORST CASE 

5 - ALTERNATE AND 1 

6 - ALTERNATE 1 AND 

"7 - ADD TO MEMORY 

8 - STORAGE PROTECT AND RESET 
STORAGE PROTECT 

15 - SUMMARY LOG 



* NOTE - ALL SWITCH SETTINGS FOR OES. 0-3 BETWEEN 
1000 AND 1111 ARE INVALID AND IF SELECTED 
WILL RESULT IN AN ERROR LOG. 



c 
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STORAGE MODULE SELECTION IS INDICATED BY DATA ENTRY SWITCHES 
4-7. SETTINGS ARE INDICATED BELOW - 



DATA ENTRY 


SWITCHES 


BSM 


SELECTED 


ADDRESS RANGE 


4567 




FOR 


TESTING 


OF BSM 


0000 






ALL 




0001 






1 


/0000-/1FFF. 


0010 






>2 ■ ■■ , 


/2000-/3FFF 


0011 






3 


/40O0-/5FFF 


0100 






4 


/6000-/7FFF 


0101 






5 


/8000-/9FFF 


0110 






6 


/A000-/6FFF 


0111 






7 . 


/COOO-/DFFF 


1000 






8 


/E0O0-/FFFF 


* NOTE - ALL 


OTHER SWITCH SETTINGS 


FOR DES. 4-7 



INVALID AMD I F .SELECTED . W I LL RESULT IN AN 
ERROR LOG. ALSO, SELECTING A BSM NOT IN THE 
RANGE OF THE PART ICULAR I'iACH INE WILL RESULT 
IN AN ERROR LOG. 

DATA ENTRY SWITCH 8 DETERMINES WHEATHER THE BSM 
SELECTED BY DES. 4-7 WILL BE EXERCISED INTERNALLY- 
OR EXTERNALLY. • ' 

BELOW ARE THE FUNCTIONS OF DATA ENTRY SWITCHES 8 - 15. 



DES 
8 



10 
11 
13 
14 
lb 



FUNCTION 

(OFF) THE BSM SELECTED BY DES. 4-7 IS TO BE 

EXERCISED INTERNALLY. •■' 
(ON) THE RSM SELECTED BY DES. 4-7- IS TO BE 

EXERCISED EXTERNALLY. 

(OFF) LOG ON 1443. ' : 
(ON) LOG ON 1816 OR 1053. 

(ON) LOOP ON PATTERN TEST. 

(ON) LOOP ON PROGRAM. 

(ON) BYPASS IMMEDIATE ERROR LOG. ' 

(ON) WAIT ON ERROR. 

(ON) WAIT BEFORE STARTING PATTERN TEST. 



WHEN THE DATA ENTRY SWITCHES HAVE BEEN SET, PRESS THE START 
BUTTON AND THE CORE FUNCTION TEST WILL BE EXECUTED. WHEN 
ERRORS ARE DETECTED, AN IMMEDIATE' ERROR LOG IS PRINTED, 
UNLESS DES. 13 IS ON. (SEE SECTION 4.2 FOR DESCRIPTION OF 
ERROR LOGS.) WHEN THE CORE FUNCTION TEST IS COMPLETE, THE 
SUMMARY tOG Will BE PRINTED. IT" CANNOT BE BY'PASSfe'D. (SEE 
SECTION 4.3 FOR A DESCRIPTION OF THE SUMMARY LOG.) 



* * 

* IMPORTANT OPERATING MOTE * 

* * 
******#********************#*##*##*#* *#**#&>:<###***>;o;i***s:(# >;<!::#*;:###>;<** 

* * 

* AT ANY TIME THE OPERATOR MAY RETURN TO THE BEGINNING OF * 

* THE PROGRAM BY PRESSING THE IMMEDIATE STOP AND START * 

* BUTTONS. DATA ON ERRORS, FOR THE SUMMARY LOG, IS NOT LOST.* 

* $ 

* CAUTION - STOPPING AND RESETTING THE MACHINE DURING PATTERN* 

* TEST 6 OR 8 CAN LEAVE STORAGE PROTECT BITS SET IN MEMORY * 

* AND IT WILL BE IMPOSSIBLE TO RUN OTHER PATTERN TESTS. * 

* * 

3.3 WAITS 

ALL WAITS ARE DESCRIBED IN THE WAIT SECTION AT THE BEGINNING 
OF THE PROGRAM. 

3.4 TERMINATIONS 

CERTAIN CONDITIONS CAN CAUSE THE ABNORMAL TERMINATION OF THE 
CORE FUNCTION TEST. THESE TERMINATIONS ARE SPECIAL WAITS 
WITHOUT LOGS. SEE THE WAIT SECTION AT THE BEGINNING UF THE 
PROGRAM. 

4. PRINTOUTS 

4.1 STATUS MESSAGES , 

ALL STATUS AND ERROR MESSAGES ARE PRECEEDED BY A FOUR DIGIT 
DECIMAL CODE. THE FIST TWO DIGITS INDICATE THE ROUTINE 
THAT CAUSED THE MESSAGE. THE LAST TWO DIGITS ARE THE 
MESSAGE CODE. 



ROUTINE .IDENTIFICATIONS ARE LISTED BELOW 



CODE 
00 
01 
02 
03 
04 
05 
06 
07 
08 

15 



ROUTINE . . 

INITIALIZATION AND HOUSEKEEPING 

READ/WRITE ADDRESS PATTERN TEST 

BIT ISOLATION PATTERN TEST 

FLOATING ZERO PATTERN TEST 

WORST CASE PATTERN TEST 

ALTERNATE AND 1 PATTERN TEST 

ALTERNATE 1 AND PATTERN TEST 

ADD TO MEMORY PATTERN TEST 

STORAGE PROTECT ANO RESET STORAGE PROTECT 
PATTERN TEST 

SUMMARY LOG 



DATE 
EC NO, 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



04DEC70 
421284 



PROG ID 


08CF-* 


DATE 


14N0V69 


30JAN70 


17APR70 


04DEC70 


PAGE 


3 


EC NO* 


,431319 


43I319A 


431321 


421284 



PROG ID 
PAGE 



08CF-* 
3A 



.w 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 08CF _ 



PART NO. 22719*86 
PAGE '?* 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR. THE 1800 SYSTEM 
CORE FONCTfON TEST 0»CF v 



PART NO. 2279486 
PAGE 4A 



( 
( 



( 

( 



MESSAGE COOES ARE GROUPED INTO GENERAL AREAS - 

00 - 09 GENERAL MESSAGES 

10 - 19 DATA ENTRY SWITCH SETTING ERRORS 

20 - 29 TEST PATTERN ERRORS 

30 - 39 ERRORS DETECTED BY INTERNAL INTERRUPT 



BELOW IS A LIST OF GENERAL MESSAGES AND DATA ENTRY SWITCH 
ERROR LOGS WITH ACTION REQUIRED 1 «■*' I 



MESSAGfc 

0000 08CF CORE TEST 

0001 SET DES 

OOOfi PASS COMPLETE 
0010 DES 8 



0011 DES 4-7 



0012 ONE BSM 



0014 DES 0-3 



0X00 WAIT 



0X08 PASS COMPLETE 



1509 END CORE TEST 



ACTION 

HEADING, NO ACTION REQUIRED. 

SET DATA ENTRY SWITCHES FOR 
PROGRAM OPTIONS. PRESS START TO 
EXECUTE CORE FUNCTION TEST. 

THE LOOP ON PROGRAM SWITCH, DES. 
II, IS ON. A PASS OF THE 
PROGRAM HAS BEEN EXECUTED. 

SWITCH 8 IS ON INDICATING AN 
EXTERNAL TEST, BUT NO BSM HAS 
BEEN IDENTIFIED BY DES. 4-7. 
EITHER RESET SWITCH 8, OR SET 
DES. 4-7 TU A VALID COMBINATION 
AND PRESS START TO RE- 
INITIALIZE.. 

A BSM HAS BEEN SPECIFIED BY 
DES. 4-7 WHICH IS OUT OF RANGE 
FOR THIS MACHINE. RESET DES. 
4-7 TO A VALID COMBINATION AND 
PRESS START TO .RE-INITIALIZE. 

THIS 1800 HAS ONLY ONE BSM. IT 

IS NOT POSSIBLE TO RUN AN 

EXTERNAL TEST ON AN 8K MACHINE. 

RESET DES. 8 AND PRESS START TO 
RE-INITIALIZE. 

AN INVALID PATTERN TEST HAS BEEN 
SPECIFIED BY DES. 0-3. RESET 
THE SWITCHES TO A VALID 
COMBINATION AND PRESS START 
TO RE-INITIALIZE. 

X IS THE ROUTINE IDENTIFICATION. 
THIS IS THE PREPROCESSING WAIT, 
DATA ENTRY SWITCH 15 IS ON. 

X IS THE ROUTINE IDENTIFICATION. 
THE LOOP ON ROUTINE SWITCH, DES. 
10, IS ON. A PASS OF THE PAT- 
TERN TEST HAS BEEN EXECUTED. 

HEADING, NO ACTION REQUIRED. 



4.2 ERROR LOGS 

THE IMMEDIATE ERROR LOG IS A ONE LINE MESSAGE THAT HAS AN 

ERROR CODE TO IDENTIFY THE TYPE OF ERROR, AND THE BINARY 

CODING OF THE ERROR ADDRESS, TEST PATTERN AND FAILURE 
PATTERN. 



CODE ADDRESS TEST PATTERN SP 

XXYY AAA BBB CCC ODD EEEE TTTT TTTT TTTT TTTT TT 

.W.HERE - , ? , v , ,'.. ,, >.. ...j ,..,;,; „;.. .. , . 

XX - TEST ROUTINE ID., 00 - Ob. 
YY - MESSAGE ID., 00 - 99. 

AAA - BSM NUMBER 

BBB - HI X BIT PATTERN 

CCC - LO X BIT PATTERN 

DDD - HI Y BIT PATTERN 

EEEE - LO Y BIT PATTERN 



TTTT - TEST PATTERN 
FFFF - FAILURE PATTERN 
SP - STORAGE PROTECT BIT, PARITY BIT 



fail, pattern sp 
ffff ffff ffff ffff ff 



* NOTE - THESE MESSAGES CANNOT BE BYPASSED BY SETTING DATA 
ENTRY SWITCH 14. 



MESSAGE IDENTIFICATION CODES ARE LISTED BELOW - 
21 - BIT PATTERN ERROR DETECTED BY PATTERN TEST. 

31 - OP CODE CHECK. 

32 - PARITY CHECK IN PATTERN. 

33 - PARITY CHECK IN CORE FUNCTION TEST PROGRAM. 

34 - TWO OR MORE PARITY CHECKS. 

35 - TWO OR MORE PARITY CHECKS, IN CORE FUNCTION TEST 

PROGRAM. 

36 - INVALID STORAGE PROTECT CHECK. 

37 - FALSE CAR CHECK. 

38 - FALSE INTERRUPT. 

39 - AUX CORE ERROR INTERRUPT. 
* NOTE - 

ERROR 31 - DOES NOT PRINT A TEST PATTERN OR FAILURE 

PATTERN IN THE ERROR LOG. 
ERROR 33 - THE TEST PATTERN IS UNKNOWN, FOUR ASTERISKS 

(****) ARE PRINTED INSTEAD. 
ERROR 35 - THE TEST PATTERN IS UNKNOWN, FOUR ASTERISKS 

(****) ARE PRINTED INSTEAD. 

ERROR 36 - 

ERROR 37 - 

ERROR 38 - 

. ERROR 39 - ARE ENGLISH LANGUAGE ERROR LOGS. 
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4.3 SUMMARY LOG 

WHEN THE GORE FUNCTION TEST HAS COMPLETED ALL DESIGNATED 
PATTERN TEST EXERCISES, IT WRITES A SUMMARY LOG. ALSO BY 
SETTING DES. 0-3 ON AT INITIALIZATION AND PRESSING START, 
THE SUMMARY LOG WILL BE PRINTED. 

A SUMMARY LOG IS WRITTEN FOR EACH. BASIC STORAGE MODULE THAT 
WAS EXERCISED. IF NO ERRORS WERE DETECTED, ONLY THE FAILURE 
BY PATTERN TEST SUMMARY IS LOGGED SO THE OPERATOR WILL KNOW 
HOH MANY LOOPS WERE MADE ON AN EXERCISE. 

SUMMARY FOR BSM X . (X IS THE BSM NUMBER, 1 -8.1 

BIT FAILURES 

BIT DROP PICK 

1 56 

2 9 

3 153 

4 68 

b 

7 508 432 . 

f) 12 . ■ 

10 1 

1 1 

13 3 

5 ' ' ■'...'' 

R — 108 

(S INDICATES THE STORAGE PROTECT BIT, P INDICATES THE 
PARITY BIT. THE VALUES INDICATED ARE ONLY FOR 
ILLUSTRATION.) 



FAIL. BY ADDR. LINE 





HI 


LO 


HI 


LO 




X 


X 


Y 


Y 


000 


_ 


_ 


- 


- 


001 


1 


- 


- 


- 


010 


- 


2 


- 


- 


Oil 


- 


1 


- 


- 


100 


- 


4 


- 


- 


101 


- 


- 


2 


- 


110 


- 


- 


- 


- 


111 


5 


— 


- 


- 


1000 


* 


* 


# 


_ 


1001 


* 


* 


* 


9 


1010 


* 


* 


# 


- 


1011 


* 


* 


* 


- 


1100 


* 


# 


# 


- 


1101 


* 


* 


* 


- 


1110 


* 


* 


* 


- 


1111 


* 


* 


* 


- 


SCALE 


FACTOR = 




5 



(EACH ENTRY IN THE TABLE IS SCALED IN THE RANGE 1-9, TO 
MAKE THE TABLE CONCISE AND EASY TO INTERPRET. A (-) 
INDICATES THAT NO FAILURES OCCURRED FUR THAT LINE. THE 
ASTERISK DENOTES THAT THERE ARE NO X OR Y ADDRESS LINES 
WITH THAT CORRESPONDING VALUE. 

THE SCALE FACTOR IS THE DIVISOR USED TO REDUCE THE NUMBER 
OF ERRORS FOR EACH LINE TO A SINGLE VALUE IN THE RANGE OF 
1-9. BY MULTIPLYING EACH ENTRY IN THE TABLE BY THE SCALE 
FACTOR, A CLOSE APPROXIMATION OF THE ACTUAL NUMBER LIE ERRORS 
CAN BE DETERMINED FOR EACH ADDRESS LIME. 

THE VALUES INDICATED ARE ONLY FOR ILLUSTRATION.) 



FAILURE BY 4K SEGMENT 

LO 4K = : — HI 4K 



387 
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FAILURE BY PATTERN TEST 
TEST FAILURES LOOPS 





1 

2 




2 
2 





3 


376 


10 


4 




2 


6 


8 


2 


6 




2 


7 


1518 


2 


8 


9 


2 



(THE ENTRY INDICATES ERRORS DETECTED BY THE INTERRUPT 
SUBROUTINE THAT DID NOT OCCUR DURING A PATTERN TEST. 
THERE WILL NEVER BE A LOOP COUNT DISPLAYED FOR THIS ENTRY. 

FOR INTERNAL TESTING THE LOOP COUNTER WILL BE SOME MULTIPLE 
OF TWO, BUT FOR EXTERNAL TESTS THE LOOP COUNTER WILL BE A 
MULTIPLE OF ONE. THE LOOP COUNTER INDICATES THE RELATIVE 
AMOUNT OF TESTING DONE WHEN THE LOOP ON ROUTINE OR LOOP ON 
PROGRAM OPTIONS ARE SELECTED. 

THE VALUES INDICATED ARE ONLY FOR ILLUSTRATION.) 

* NOTE - THE FAILURE BY PATTERN TEST SUMMARY IS PRINTED FOR 
EACH BSM TESTED. IF THERE WERE NO ERRORS DETECTED 
FOR A BSM, THE OTHER SUMMARIES ARE NOT WRITTEN. 



5.1.4 FLOATING ZERO PATTERN TEST 

ROUTINE DA010 IS THE FLOATING ZERO PATTERN TEST. A SINGLE 
ZERO IS SET IN A WORD WITH ALL OTHER BITS SET TO ONE, THE 
ZERO STARTS IN BIT 15 AND IS SHIFTED LEFT ONE POSITION UNTIL 
IT REACHES BIT POSITION ZERO. THE PATTERN IS WRITTEN/READ/ 
WRITTEN AND CHECKED IN EACH WORD, THE THE NEXT WORD IS 
TESTED AND SO ON, UNTIL ALL CORE POSITIONS HAVE BEEN TESTED. 
FOUR PASSES ARE MADE, RIPPLING UP CORE, THEN RIPPLING DOWN 
CORE ON ALTERNATE PASSES. THEN THE FLOATING ZERO IS SHIFTED 
LEFT ONE POSITION AND THE TEST REPEATED. 

5.1.5 WORST CASE PATTERN TEST 

ROUTINE DC010 IS THE WORST CASE PATTERN TEST. A WORST CaSE 
PATTERN IS BLOCKS OF 64 WORDS OF ONES AND 64 WORDS OF ZEROS 
WRITTEN IN CORE IN THE PATTERN - ' 



64 


WOROS 


/FFFF 


64 


WORDS 


/OOOO 


64 


WORDS 


/FFFF 


64 


WORDS 


/OOOO 


64 


WORDS 


/OOOO 


64 


WORDS 


/FFFF 


64 


WORDS 


/OOOO 


64 


WORDS 


/FFFF 


64 


WORDS 


/FFFF 


64 


WORDS 


/OOOO 



5. COMMENTS 



5.1 



DESCRIPTION OF CORE FUNCTION TEST 



5.1.1 INITIALIZATION AND HOUSEKEEPING 

ROUTINES AND SUBROUTINES WITH THE LABELS AAOOO - AA200 TAKE 
CARE OF ALL ASPECTS OF INITIALIZATION ANO HOUSEKEEPING. 
THESE ROUTINES DETERMINE MACHINE SIZE, RECOGNIZE OPERATOR 
OPTIONS AND CONTROL INITIAL ENTRY AND RE-ENTRY TO THE CORE 
TEST. 

5.1.2 READ/WRITE ADDRESSES IN STORAGE PATTERN TEST 

ROUTINE BA010 IS THE READ/WRITE ADDRESS PATTERN TEST. THE 
ADDRESS OF EACH POSITION IS WRITTEN/READ/WRITTEN ANO 
COMPARED TO THE ADDRESS, THEN THE NEXT POSITION IS 
TESTED AND SO ON, UNTIL ALL CORE POSITIONS HAVE BEEN TESTED. 
FOUR PASSES ARE MADE, RIPPLING UP CORE AND THEN RIPPLING 
DOWN CORE ON ALTERNATE PASSES. 

5.1.3 BIT ISOLATION PATTERN TEST 

ROUTINE CA010 IS THE BIT ISOLATION PATTERN TEST. EACH 
SINGLE BIT IN EACH WORD IS TESTED STARTING WITH BIT 17, THE 
PARITY BIT. THEN BIT 15, 14, 13. ..1, AND IS TESTED. 
BIT 16, THE STORAGE PROTECT BIT IS NOT TESTED. THE BIT IS 
WRITTEN/READ/WRITTEN AND CHECKED IN EACH WORD, THEN THE NEXT 
WORD IS TESTED AND SO ON, UNTIL ALL CORE POSITIONS HAVE 
BEEN TESTED. FOUR PASSES ARE MADE, RIPPLING UP CORE, THEN 
RIPPLING DOWN CORE ON ALTERNATE PASSES. THEN THE BIT IS 
SHIFTED LEFT ONE POSITION AND THE TEST RUN AGAIN, UNTIL ALL 
BITS HAVE BEEN TESTEO. 



THE TEST CONSISTS OF READ/WRITE/READ, SET STORAGE PROTECT 
BIT, RESET PARITY B IT/W'RITE/READ, RESET STORAGE PROTECT BIT, 
SET PARITY BIT/WRITE/READ/WRITE. THE NEXT WORD IS THEN 
EXERCISED AND SO ON, UNTIL ALL CORE POSITIONS HAVE BEEN ■ 
EXERCISED. FOUR PASSES ARE MADE RIPPLING UP CURE, THEN 
RIPPLING DOWN CORE ON ALTERNATE PASSES. WHEN THE EXERCISE 
IS COMPLETE, EACH WORD IS READ AND CHfcCKED FOR THE CORRECT 
WORST CASE PATTERN. 

5.1.6 ALTERNATE AND 1 PATTERN TEST 

ROUTINE DF010 IS THE ALTERNATE AND 1 PATTERN TEST. THE 
PATTERN 0101 0101 0101 0101 01 IS WRI TTEN/RE AD/WRI TTEIM AND 
THEN CHECKED IN A WORD, THEN THE NEXT WORD IS TESTED AND SO 
ON, UNTIL ALL CORE POSITIONS HAVE BEEN TESTED. FOUR PASSES 
ARE MADE, RIPPLING UP CORE, THEN RIPPLING DOWN CORE ON 
ALTERNATE PASSES. 

5.1.7 ALTERNATE 1 AMI) PATTERN TEST 

ROUTINE UK010 IS THE ALTERNATE 1 AND PATTERN TEST. THIS 
PATTERN TEST IS THE COMPLEMENT OF THE TEST DESCRIBED IN 
5.1.6 ABOVE. THERE IS ONE EXTRA STEP, HOWEVER, THE STORAGE 
PROTECT BIT IS TESTED BY TRYING TO WRITE A ZERO ON THE WORD 
AND MAKING SURE THERE IS A STORAGE PROTECT INTERRUPT. 
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5.1.8 ADD TO MEMORY PATTERN TEST 

ROUTINE DP010 IS THE ADD TO MEMORY PATTERN TEST. THE ADO TO 
MEMORY INSTRUCTION, MDX LO /7400,0, IS PUT IN EACH WORD IN 
THE CORE BLOCK TO BE EXERCISED. THE INSTRUCTION STREAM IS 
ENTERED AT SOME ADDRESS AND THEN THE INSTRUCTION STREAM 
IS LOOPED 39 TIMES. THEN THE ENTRY ADDRESS IS ALTERRED 
AND THE STREAM ENTERED AGAIN. FORTY EVEN ADDRESS ENTRIES 
AND FORTY ODD ADDRESS ENTRIES ARE MADE. 

5.1.9 STORAGE PROTECT AND RESET STORAGE PROTECT PATTERN TEST 

ROUTINE DZ010 IS THE STORAGE PROTECT PATTERN TEST. THE 
STORAGE BLOCK IS FILLED WITH WORDS OF ALL ONES AND THE 
STORAGE PROTECT BIT IS SET ON EACH WORD. THE TEST CONSISTS 
OF TRYING TO WRITE A ZERO ON EACH WORD AND CHECKING FOR THE 
STORAGE PROTECT INTERRUPT, THEN TESTING THE NEXT WORD AMD SO 
ON UNTIL ALL CORE POSITIONS HAVE BEEN TESTED. FOUR PASSES 
ARE HADE RIPPLING UP CORE, THEN RIPPLING DOWN CORE ON 
ALTERNATE PASSES. WHEN THE EXERCISE IS COMPLETE, THE 
STORAGE PROTECT BIT IS CLEARED AND A ZERO IS WRITTEN INTO 
AND READ BACK AND CHECKED ON EACH WORD. 

5.1.10 SUMMARY LOG ROUTINE 

ROUTINE HZ100 CONTROLS THE PRINTING OF THE SUMMARY LOG. 
IF THERE WERE ERRORS DETECTED IN A BASIC STORAGE MODULE, 
A COMPLETE SUMMARY IS LOGGED ON THE MODULE. IF NO ERRORS 
WERE DETECTED, ONLY THE LOOP SUMMARY IS PRINTED FOR THE 
BASIC STORAGE MODULE. 

5.1.11 INTERNAL INTERRUPT SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH I HANDLE ALL ASPECTS 
OF INTERNAL INTERRUPTS. FOR SOME CHECKS, A LOG IS PRINTED 
AND AN ABNORMAL WAIT HALTS PROCESSING. FOR MOST PARITY 
ERRORS, DATA IS STORED FOR THE SUMMARY LOG, AN IMMEDIATE 
ERROR LOG IS PRINTED AND CONTROL RETURNS TO THE PATTERN TFST 
IN PROGRESS. 

5.1.12 NON-INTERRUPT ERROR HANDLING 

SUBROUTINES WHOSE LABELS BEGIN WITH J HANDLE ERRORS, 
THAT DO NOT CAUSE INTERRUPTS, DETECTED BY THE PATTERN TESTS. 
THESE SUBROUTINES STORE DATA ON THE ERROR FOR THE SUMMARY 
LOG AND PREPARE AN IMMEDIATE ERROR LOG. CONTROL RETURNS TO 
THE PATTERN TEST IN PROGRESS. 

5.1.13 WRITE SUBROUTINES 

SUBROUTINE MA010 CONTROLS THE WRITING OF MESSAGES ON THE 
1443 OR 1816 OR 1053 PRIIvTFRS. MESSAGES ARE STORED IN 1443 
CODE AND CONVERTED IF THEY ARE TO BE WRITTEN ON THE 1816 OR 
1053. 

5.1.14 RELOCATION SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH N HANDLE RELOCATION OF 
THE CORE FUNCTION TEST. RELOCATION CAN BE MADE BETWEEN THE 
4K BLOCKS OF A BASIC STORAGE MODULE OR BETWEEN BASIC 
STORAGE MODULES. 



5.1.15 TALLEY SUBROUTINES 

SUBROUTINES WHOSE LABELS BEGIN WITH P ARE CALLED BY THE 
ERROR DETECTION SUBROUTINES AND ACTUALLY ANALYZE AND TALLEY 
THE ERRORS INTO THE SUMMARY TABLES. 

5.1.16 SET ADDRESS LIMITS FOR PATTERN TESTS 

SUBROUTINES SA010, SA100 AND SA200 DETERMINE THE ACTUAL 
ADDRESS LIMITS FOR THE PATTERN TEST. SA100 DETERMINES 
LIMITS WHEN THE TEST IS TO RIPPLE UP CORE AND SA200 
DETERMINES LIMITS WHEN THE TEST IS TO RIPPLE DOWN CORE. 

5.1.17 IMMEDIATE AND SUMMARY PRINT SUBROUTINES 

ALL OTHER SUBROUTINES WHOSE LABELS BEGIN WITH S ARE CALLED 
TO EDIT AND PRINT THE ERROR AND SUMMARY LOGS. MOST OF THE 
SUBROUTINES ARE CALLED BY THE SUMMARY LOG ROUTINE, HZ100. 
THESE SUBROUTINES EDIT AND CONVERT DATA IN THE SUMMARY 
TABLES TO LINES OF 1443 CHARACTERS AND THEN CALL THE WRITE 
SUBROUTINE, MA010. 

6. APPENDIX 

6.1 RUNNING TIMES FOR PATTERN TESTS 

TIME TO RUN IN 65K 



16 

3 12 

3 04 

24 

16 

56 

9 42 

56 

TOTAL 18 46 

TIMES ARE ILLUSTRATED IN MINUTES SECONDS. 

THESE TIMINGS WERE MADE ON AN 1800 WITH 65K OF SJ2 MEMORY. 



PATTERN 
TEST 


TIME TO 
INTERNAL 


RUN IN 8K 
EXTERNAL 


1 





02 





02 


2 





24 





24 


3 





23 





23 


4 





03 





03 


5 





02 





02 


6 





07 





07 


7 


1 


13 


2 


25 


8 





07 





07 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0000 
3002 



B I 
3002 1 001F 



3 003 0001 



B I 
3004 1 002D 



3005 0001 



B I 
3006 1 003E 



3007 0003 



B I 
300A 1 0058 



B I 
300B 1 00A4 



ZEROO EQU * 

ORG ZEROO+/3002 

*************************************************** 

* * 

* 1800 CORE FUNCTION TEST * 

* * 

********************* ^sC**^*^*;^********************* 

* * 

* PROGRAM AND ERROR WAITS * 

* * 
*************** * ********************* **** ********** 

* * 
DC WAT02+1 THE PROGRAM HAS BEEN READ* 

* SUCCESSFULLY. SET DATA * 

* ENTRY SWITCHES FOR PRO- * 

* GRAM OPTIONS. * 

* * 
*************************************************** 

* * 
BSS 1 

* * 
*************************************************** 

* * 
DC WAT04+1 NONE OF THE STORAGE * 

* MODULES HAVE BEEN * 

* INDICATED FOR AN EXTERNAL* 

* TEST. EITHER RESET * 

* SWITCH 8, OR SET SWITCHES* 

* 4-7 TO INDICATE A VALID * 

* COMBINATION AND PRESS * 

* START TO RE-INITIALIZF. * 

* * 
********************************** ******* ********** 

* * 
BSS 1 ''■■'-. 

* * 
*************************************************** 

* * 
DC WAT06+1 THIS 1800 HAS ONLY ONE * 

* BSM. IT IS NOT POSSIBLE * 

* TO RUN AN EXTERNAL TEST * 

* ON A MACHINE WITH ONLY * 

* ONE BSM. RESET DATA * 

* ENTRY SWITCHES 4-7 TO A * 

* VALID COMBINATION AND * 

* PRESS START TO RE- * 

* INITIALIZE. * 

* * 
*************************************************** 

* * 
BSS 3 * 

* * 
*************************************************** 

* * 
DC WATOA+1 A BSM HAS BEEN SPECIFIED * 

* BY SWITCHES 4-7 WHICH 15 * 

* OUT OF RANGE FOR THIS * 

* MACHINE. RESET DATA * 

* ENTRY SWITCHES 4-7 AND * 

* PRESS START TO RE- * 

* INITIALIZE. * 
*- * 
*************************************************** 

* * 
DC WATOB+1 AN INVALID PATTERN TEST * 

* HAS BEEN SPECIFIED. * 

* RESET SWITCHES 0-3 TO A * 

* VALID COMBINATION AND * 
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8CF00020 

8CF00030 

8CF00040 

8CF00050 

8CF00060 

8CF00070 

8CF00080 

8CF00090 

8CF00100 

8CF00110 

8CF00120 

8CF00130 

8CF00140 

8CF00150 

8CF00160 

8CF00170 

8CF00180 

8CF00190 

8CF002O0 

8CF00210 

8CF00220 

8CF00230 

8CF00240 

8CF00250 

8CF00260 

8CF00270 

8CF00280 

8CF00290 

8CF003O0 

8CF00310 

8CF00320 

8CF00330 

8CF00340 

8CF00350 

8CF00360 

8CF00370 

8CF00380 

8CF00390 

8CF00400 

8CF00410 

8CF00420 

8CF00430 

8CF00440 

8CF00450 

8CF00460 

8CF004 70 

8CF00480 

8CF00490 

8CF00500 

8CF00510 

8CF00520 

8CF0O53O 

8CF00540 

8CF0O55O 

8CF00560 

8CF0O570 

8CF00580 

8CF00590 

8CF00600 

8CF0G61O 

8CF00620 

8CF0063Q 

8CF00640 

8CF0065O 

8CF00660 

8CF00670 

8CF00680 

8CF00690 
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B I 
300C 1 00B3 



3000 0023 



B I 
3030 1 0715 



B I 
3031 1 0718 



B I 
3032 1 0761 



3033 0010 



B I 
3050 1 03BC 



3051 0021 



B I 
3072 1 04B9 



3073 0001 



B I 
3074 1 05CA 



B F 
3075 1 05DF 



PRESS START TO RE- 
INITIALIZE. 



* 
* 
* 
*************************************************** 

* * 
DC WATOC+l WAIT BEFORE STARTING PAT-* 

* TERN TEST. * 

* * 
*************************************************** 

* * 
BSS /23 

* * 

*************************************************** 

* * 

DC WAT30+1 1443 ERROR. RESET 1443 * 

* OR SET SWITCH 9 TO USE * 

* THE 1816. PRESS START TO* 

* CONTINUE. * 

* * 
*************************************************** 

* * 
DC WAT31+1 1443 NOT READY. MAKE * 

* 1443 READY OR SET SWITCH * 

* 9 TO USE THE 1816. PRESS* 

* START TO CONTINUE. * 

* * 
*************************************************** 

* * 
DC WAT32+1 1816 OR 1053 NOT READY. * 

* READY PRINTER AND PRESS * 

* START. * 

* * 
*************************************************** 

* * 
BSS /ID 

* * 
*************************************************** 

* * 

DC WAT50+1 END OF CORE FUNCTION TEST* 

* * 

*************************************************** 

* * 
BSS /21 * 

* * 
*************************************************** 

* * 
DC WAT72+1 HALT ON ERROR. DES. 14 * 

* IS ON. THIS ERROR WAS * 

* DETECTED BY THE INTERNAL * 

* INTERRUPT. * 

* * 



*************************************************** 

* * 
BSS 1 * 

* * 
********************************** ***************** 

* * 
DC WAT74+1 CAR CHECK ERROR DETECTED * 

* ON 1443. PRESS START TO * 

* RETRY WRITING. NO LOG. * 

* * 
*************************************************** 

* * 
DC WAT75+1 FALSE CAR CHECK. PRESS * 

* START TO CONTINUE. RUN * 

* CAR CHECK PROGRAM AFTER * 

* CORE FUNCTION TEST * 

* COMPLETES. * 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



B I 
3076 1 05FD 



B t 
3077_ 1 05ED 



B I 
3078 1 0629 



* * 8CFO1380 

*************************************************** ?5f?J?59 

SO INTERRUPT CONDITION 
SENSED FOR INTERNAL 
INTERRUPT. PRESS START 
TO CONTINUE. 



DC 



WAT76+I 



* 8CFO14O0 

* 8CF0141Q 

* 8CF01420 

* 8GF01430 

* 8CFQ1440 

* 8CF01450 

*************************************************** ?9_?* 46 .°. 
* 



DC 



WAT77+1 



* 8CF01470 
AUX CORE ERROR. AN INTER-* 8CF01480 



NAL INTERRUPT WAS GEN- * 8CF01490 

* ERATED WHILE AUX CORE WAS* 8CF01500 

* SELECTED * 8CF01510 

* * 8CF0152& 
*************************************************** 8CF01530 

* * 8CF 01540 
WAT78+1 HALT ON ERROR. DES. 14 * 8CF01550 

IS ON. THIS ERROR WAS 
DETECTED BY THE PATTERN 
TEST EXERCISE ROUTINE. 



DC 



* 8CF01560 

* 8CF01570 

* 8CFQ1580 

* 8CF01590 



3079 0078 



B I 
30F1 1 0438 



DC 



WATF1+1 



B I 
30F2 1 04D6 



*************************************************** 8CF01600 

* * 8CF01610 
BSS /78 8CF01620 

* * 8CF01630 
*************************************************** 8CF01640 

* * 8CF01650 

AN OP CODE CHECK WAS * 8CF01660 
DETECTED AT THE ADDRESS * 8CF01670 
PRINTED IN THE ERROR LOG.* 8CF01680 
IF THE OP CODE CHECK WAS * 8CF01690 
CAUSED BY A PARITY ERROR.* 8CF01700 
THAT ERROR IS ALSO LOGGED* 8CF01710 
IF DES. 13 IS OFF. THIS * 8CF01720 
IS AN UNRECOVERABLE ER- * 8CF01730 
ROR. IF THE ERROR DID * 8CF01740 
NOT OCCUR IN THE SUMMARY * 8CF01750 
LOG. WRITE OR INTERRUPT * 8CF01760 
ROUTINES, PRESSING START * 8CF01770 
WILL START THE SUMMARY * 8CF01780 
LOG. * 8CF01790 

* 8CF01800 

*************************************************** 8CF01810 

* * 8CF01820 
WATF2+1 ONE OR MORE INTERNAL * 8CF01830 

INTERRUPTS HAS OCCURRED * 8CF01840 

IN THE INTERNAL INTERRUPT* 8CF01850 

SUBROUTINE. THIS IS AN * 8CF01860 

UNRECOVERABLE ERROR. DO 

NOT PRESS START. IT MAY 

BE POSSIBLE TO GET THE 

SUMMARY LOG BY PRESSING 

RESET, SETTING DES. 0-3 

ON AND PRESSING START. 

AFTER THE HEADING HAS 

PRINTED, PRESS START 

AGAIN. 



DC 



* 
* 

* 
* 
* 
* 
* 
* 
* 



B I 
3 0F3 1 0408 



8CF01870 
8CF01880 
8CF01890 
8CF019Q0 
8CF01910 
8CF01920 
8CF01930 
8CF01940 
8CF0195Q 
8CF01960 

*************************************************** 8CF01970 
* * 8CF01980 

* 8CF01990 

* 8CF02000 

* 8CF02010 

* 8CF02020 

* 8CF02030 

* 8CF0204a 



DC WATF3+1 A PARITY ERROR WAS 

DETECTED WITHIN THE CORE 
FUNCTION TEST PROGRAM. 
THIS IS AN UNRECOVERABLE 
ERROR. DO NOT PRESS 
START. IF THE ERROR DID 



CORE FUNCTION TEST 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
0010 



0000 
0000 



0000 
0001 
0003 
0004 
0004 
0006 
0007 
0008 
OOOA 
OOOB 
OOOC 



61FF 

6D00 FFFF 
1810 

75 00 2000 

1000 

D100 

7400 FFFF 

70F9 

694E 

4053 



OOOD 
OOOE 
0010 
0011 
0012 
0013 
0015 
0015 
9017 
0018 
001A 
001B 
Q01D 
001E 



C04C 

D700 043C 

180D 

8047 

D047 

4700 08B2 



4700 0691 

FOOO 

4700 0691 

OBEB 

4700 0691 

0BF6 

3002 



LOG OR WRITE ROUTINES, IT* 
MAY BE POSSIBLE TO GET * 
THE SUMMARY LOG. PRESS * 
RESET AND SET DES. 0-3 * 
ON. PRESS START AND * 
AFTER THE HEADING PRINTS,* 
PRESS START AGAIN. * 

* 

*************************************************** 
*************************************************** 

* * 

* 
* 



* POTPOURRI 

=r 
*************************************************** 

* * 

ZERO 

ONE 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

NINE 

TEN 

SHIFT COUNT. 



EQU 
EQU 
EQU 



EQU 
EQU 





1 

2 

3 

4 

5 

fr 

7 

8 

9 

10 

16 



ZERO 
ONE 
TWO 

THREE EQU 
FOUR EQU 
FIVE 
SIX 

SEVEN EQU 
EIGHT EQU 
NINE EQU 
TEN EQU 
EXCHA EQU 

* * 
*************************************************** 

ORG ZEROO 
AAOOO EQU * 
* 

* THE FOLLOWING ROUTINE DETERMINES THE HIGHEST CORE 

* ADDRESS AND PLACES IT IN AAC04. IT WILL ONLY BE 



EXECUTED ONCE. 



LDX 
STX 
SRA 
AA001 EQU 
MDX 
NOP 
STO 
MDX 
B 

STX 
BSI 



1 -1 
LI /FFFF 
16 
* 

LI /2000 

1 ZERO 
LO /FFFF.O 
A A 001 
1 AAC04 
AA050 



LOAD /FFFF INTO XR1. 
STORE /FFFF IN HI ADDRESS. 
STORE ZERO IN HI ADDRESS. 

INCREMENT BY 8K. 
IGNORE SKIPS. 

TEST HIGHEST CORE FOR ZERO 
CONTINUE TEST NOT ZERO. 
SAVE HIGHEST ADDRESS. 
INITIALIZE BASE REGISTER. 



AAC04 SAVE HIGHEST ADDRESS FOR 
L3 II250+1-8ASE INTERRUPT SEARCH. GET 



* DETERMINE NUMBER OF BASIC STORAGE MODULES. 
* 

LD 

STO 

SRA 

A 

STO 

BSI 
AA020 EQU 

BSI 

DC 

BSI 

DC 

BSI 

DC 
WAT02 WAIT 



13 

AAC02 

AAC04 
L3 PT010-BASE 

* 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

MSG01-BASE 
L3 MA010-BASE 

MSG02-BASE 

/02 



BSM NUMBER. 
ADJUST. 

SAVE IN AAC04. 
ZERO SUMMARY STORAGE. 

SPACE ONE LINE. 
LINE FUNCTION. 

PID MESSAGE. 

MESSAGE. 

SET PROGRAM SWITCHES. 

MESSAGE. 
WAIT FOR SWITCH SETTINGS 



NOT OCCUR IN THE SUMMARY * 8CF02050 



001F O 



* CHECK FOR EXPLICIT OR EXTERNAL BSM TEST. 

* 

AA022 EQU * 
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001F 





0868 




XIO 




AAC50 




CHECK DES 4-7. 


8CF02740 


0020 





1004 




SLA 




FOUR 




GET RID OF OTHER SWITCHES. 


8CF02750 


0021 





180C 




SRA 




12 






8CF02760 


0022 





4820 




SKP 




Z 




SKIP IF NONE SET. 


8CF02770 


0023 





700A 




B 




AA030 




BRANCH FOR EXPLICIT TEST. 


8CF02780 


0024 





D036 




STO 




AAC10 




ALL MODULES TO BE TESTED. 


8CF02790 


0025 





0862 




XIO 




AAC50 




TEST FOR DES 8. 


8CF02800 


0026 





1008 




SLA 




EIGHT 




SHOULD BE OFF. 


8CF02810 


0027 





4810 




SKP 




- 




SKIP IF ON. 


8CF02820 


0028 





7055 




B 




AA100 




BRANCH IF OFF. 


8CF02830 


0029 





4700 0691 




BSI 


L3 


MA010- 


BASE 


ILLEGAL DES SETTING. 


8CF02840 


002B 





OBFE 




DC 




MSG03- 


BASE 


MESSAGE. 


8CF02850 


002C 





3004 


WAT04 


WAIT 




/04 




WAIT. 


8CF02860 


002D 





70F1 




B 




AA022 




RETRY TEST. 


8CF02870 


002E 







AA030 


EOU 




* 






8CF02880 


002E 





D02C 




STO 




AAC10 




SAVE SW. SET. AS BSM KEY. 


8CF02890 


002F 





902A 




S 




AAC04 




COMPARE TO MAX BSM. 


8CF02900 


0030 





4830 




SKP 




-Z 




SKIP IF VALID BSM. 


8CF02910 


0031 





7022 




B 




AA040 




BRANCH IF ILLEGAL BSM. 


8CF02920 


0032 





0855 




XIO 




AAC50 




TEST FOR DES SWITCH 8. 


8CF02930 


003 3 





1008 




SLA 




EIGHT 






8CF02940 


0034 





4810 




SKP 




- 




SKIP IF ON. 


8CF02950 


0035 





701B 




B 




AA038 




BRANCH IF OFF. 


8CF02960 


0036 





C023 




LD 




AAC04 




MAKE SURE THAT THERE ARE 


8CF02970 


0037 





9021 




S 




AAC02 




AT LEAST TWO BSMS. 


8CF02980 


0038 





4830 




SKP 




-Z 




SKIP IF NOT. 


8CF02990 


0039 





7005 




B 




AA034 




BRANCH IF ALL RIGHT. 


8CF03000 


00 3A 





4700 0691 




BSI 


L3 


MA010- 


BASE 


PRINT ERROR MESSAGE. 


8CF03010 


003C 





0C05 




DC 




MSG04- 


BASE 


MESSAGE. 


8CF03020 


00 3D 





3006 


WAT06 


WAIT 




/06 




WAIT. 


8CF03030 


003E 





70E0 




B 




AA022 




RETURN TO TEST. 


8CF03040 


003F 







AA034 


EOU 




* 




MAKE SURE CFT NOT IN BSM 


8CF03050 


003F 





C301 




LD 


3 


ONE 




FOR EXTERNAL TEST. 


8CF03060 


0040 





180C 




SRA 




12 






8CF03070 


0041 





8017 


s ' 


A 




AAC02 






8CF03080 


0042 





1801 


" 


SRA 




ONE 






8CF03090 


004 3 





F017 




EOR 




AAC10 




COMPARE TO EXPLICIT BSM. 


8CF03100 


0044 





4820 




SKP 




Z 




SKIP IF EQUAL. 


8CF03110 


0045 





7038 




B 




AA100 




BRANCH TO EXECUTE. 


8CF03120 


0046 





C301 




LD 


3 


ONE 




IF THIS IS AN EXTERNAL 


8CF03130 


0047 





180D 




SRA 




13 




TEST AND THE CORE TEST IS 


8CF03140 


0048 





9010 




S 




AAC02 




RESIDING IN THE BSM TO 


8CF03150 


0049 





4810 




SKP 




- 




BE EXERCISED, MOVE IT TO 


8CF03160 


004A 





7003 




B 




AA036 




THE NEXT LOWER BSM IF 


8CF03170 


004B 





C301 




LD 


3 


ONE 




POSSIBLE. OTHERWISE, MOVE 


8CF03180 


004C 





180D 




SRA 




13 




IT TO THE NEXT HIGHER 


8CF03190 


004 D 





800B 




A 




AAC02 




BSM. 


8CF03200 


004E 







AA036 


EOU 




* 






8CF03210 


004E 





800A 




A 




AAC02 






8CF03220 


004F 





4F00 073C 




B 


L3 


NA010- 


BASE 


RELOCATE CORE TEST. 


8CF03230 


0051 







AA038 


EOU 




$ 






8CF03240 


0051 





C009 




LD 




AAC10 




INDICATE BSM TO RELOCATE 


8CF03250 


0052 





4F00 073C 




B 


L3 


NA010- 


BASE 


AND RELOCATE. 


8CF03260 


0054 







AA040 


EQtf 




* 




ILLEGAL BSM INDICATED. 


8CF03270 


0054 





4700 0691 




BSI 


L3 


MA010- 


BASE 


PRINT ERROR MESSAGE. 


8CF03280 


0056 





OCOD 




DC 




MSGQ6- 


BASE 


MESSAGE. 


8CF03290 


0057 





300A 


WATOA 


WAIT 




/OA 




ERROR WAIT. 


8CF03300 


0058 





70C6 




B 




AA022 




RETURN TO TEST. 


8CF03310 








#*#»******#****************##**#*********#**>).**#*## 


8CF03320 








* 










* 


8CF03330 








* CONSTANTS AND WORK 


AREAS * 


8CF03340 








* 










* 


8CF03350 








************* 


************************************** 


8CF03360 








* 










* 


8CF03370 


005 9 





0001 


AAC02 


DC 




1 




INCREMENT. 


8CF03380 


005A 




0001 


AAC04 


BSS 




1 




NO. OF BSMS, 1-8. 


8CF03390 


005B 




0001 


AAC10 


BSS 




1 




BSM KEY STORAGE. 


8CF03400 


005C 





7003 


AAC20 


B 


X 


THREE 




BRANCH FROM WORD TO 4. 


8CF03410 



EN AN 


CE 


DIAGNOSTIC 


PROGRAM 


FOR THE 1800 SYSTEM 
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PAGE 3 A 


;tion 


TEST 
















* 




OP CODE, FORMAT FOR 


8CF03420 


005D 





4C00 


AAC22 


DC /4C00 BRANCH LONG. 


8CF03430 


005E 





FFB3 


AAC24 


DC AA020-BASE DISPLACEMENT OF AA020. 


8CF03440 


005F 





0406 


AAC26 


DC II010-BASE DISPLACEMENT FOR II010. 


8CF03450 








* 




* 


8CF03460 








********************* ************************** **** 


8CF03470 








*************************************************** 


8CF03480 








# 




* 


8CF03490 








* 


INITIALIZE BASE REGISTER * 


8CF03500 








* 




* 


8CF03510 








*************************************************** 


8CF03520 








* 




* 


8CF03530 








* 


THIS SUBROUTINE INITIALIZES THE BASE REGISTER IN* 


8CF03540 








* 


XR3 


, THE INTERNAL INTERRUPT CELL IN CORE STORAGE* 


8CF03550 








* 


POSITION 8 AND THE RESTART BRANCHES IN LOW CORE.* 


8CF03560 








* 




* 


8CF03570 








* 


CALL - * 


8CF03580 








* 




* 


8CF03590 








* 




BSI AA050 THE CALL MUST BE A SHORT * 


8CF03600 








* 




INSTRUCTION. * 


8CF03610 








* 




* 


8CF03620 








* 




XR1 MUST BE UNSPECIFIED. * 


8CF03630 








* 




* 


8CF03640 








* 




XR2 IS NOT USED. * 


8CF03650 








* 




* 


8CF03660 








* 




XR3 IS INITIALIZED AS THE PSEUDO BASE * 


8CF03670 








* 




REGISTER. * 


8CF03680 








* 




* 


8CF03690 








*************************************************** 


8CF03700 








* 




* 


8CF03710 


0060 





0000 


AA050 


DC *-* 


8CF03720 


0061 





6801 






STX BASE+1 PUTS ADDRESS OF BASE IN 


8CF03730 


0062 





6700 0000 


BASE 


LDX L3 *-* INDEX REGISTER 3. 


8CF03740 


0064 





6100 






LDX 1 ZERO XR1 POINTER TO WORD ZERO 


8CF03750 


0065 





C0F6 






LD AAC20 SET RESTART BRANCHES 


8CF03760 


0066 





D100 






STO 1 ZERO IN LOW CORE. 


8CF03770 


0067 





C0F5 






LD AAC22 PUT BRANCH LONG TO 


8CF03780 


0068 





D104 






STO 1 FOUR AA020 IN LOW CORE. 


8CF03790 


0069 





C301 






LD 3 ONE 


8CF03800 


006 A 





80F3 






A AAC24 


8CF03810 


006B 





D105 






STO 1 FIVE 


8CF03820 


006C 





C301 






LD 3 ONE INITIALIZE INTERNAL 


8CF03830 


006D 





80F1 






A AAC26 INTERRUPT CELL. 


8CF03840 


006E 





D108 






STO 1 EIGHT 


8CF03850 


006F 





C02C 






LD AAC60 COMPUTE ABSOLUTE ADDRESS 


8CF03860 


0070 





8301 






A 3 ONE OF BASE OF TEST PATTERN 


8CF03870 


0071 





D02C 






STO AAC64 AREA IN LINE BUFFER. 


8CF03880 


0072 





C02A 






LD AAC62 COMPUTE ABSOLUTE ADDRESS 


8CF03890 


0073 





8301 






A 3 ONE OF BASE OF FAILURE PATTERN 


8CF03900 


0074 





D02A 






STO AAC66 AREA IN LINE BUFFER. 


8CF03910 


0075 





4F80 FFFE 






B 13 AA050-BASE RETURN. 


8CF03920 








*************************************************** 


8CF03930 








* 




* 


8CF03940 








* 


RE- 


ENTRY SUBROUTINE * 


8CF03950 








* 




* 


8CF03960 








*************************************************** 


8CF03970 








* 




* 


8CF03980 








* 


THIS ROUTINE RESTORES CONTROL TO THE PATTERN * 


8CF03990 








* 


TEST THAT INITIATED THE RELOCATION. * 


8CF04000 








* 




* 


8CF04010 








* 


CALL - * 


8CF04020 








* 




* 


8CF04030 








* 




BSI L AA080 THE CALLING ROUTINE MUST * 


8CF04040 








# 




CALCULATE THE ENTRY * 


8CF04050 








* 




ADDRESS. * 


8CF04060 








* 




DC XXXXX-BASE THE CALLING ROUTINE ALSO* 


8CF04070 








* 




SUPPLIES THE RELATIVE * 


8CF04080 








* 




RE-ENTRY ADDRESS. * 


8CF04090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


3 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



XR1 AND XR2 ARE NOT USED. 

XR3 IS RE-INITIALIZED AS THE PSEUDO BASE 
REGISTER. 



*************************************************** 



0077 0000 



0078 
0079 
007 B 



40E7 

C780 0015 
D001 



007C Q 4F00 0000 



AA080 DC 

BSI 
LD 
STO 
AA085 B 



*-* 

AA050 
13 AA080-BASE 
AA085+1 

L3 *-* 



0088 
0089 
008A 
008B 
008C 
008D 
008 E 
008F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
009A 
009B 



0001 
0740 
0001 
002A 
0079 
0079 
OOCD 
OOFE 
012D 
01AE 
01D7 
0200 
0272 
003E 
00 3 E 
003E 
003E 
003E 
003E 
0328 



009C 0B86 

009D 0B92 
009E 0001 
009F 0001 



OOAO 
OOAO 
00A2 
00A3 



4700 0691 
0C5O 

300B 



ENTRY. 

INITIALIZE. THIS INSTRUC- 
TION MUST ALWAYS BE SHORT. 
GET RELATIVE DISPLACEMENT 
OF RETURN ENTRY AND STORE 
IN BRANCH OPERAND. 
*************************************************** 

* * 

* HOUSEKEEPING * 

* * 
*************************************************** 

SENSE DATA ENTRY SWITCHES 
AND GET SWITCHES 0-3. 
SAVE EXPLICIT ROUTINE NO. 
COMPUTE TABLE ENTRY AND 
STORE IN NEXT INSTRUCTION. 
GET TABLE ENTRY AND STORE 
IN BRANCH INSTRUCTION. 
BRANCH TO EXPLICIT ROUTINE 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



007E 







AA100 


EOU 




* 


007E 


0809 






XIO 




AAC50 


007F 


180C 






SRA 




12 


0080 


D009 






STO 




AAC52 


0081 


8009 






A 




AAC56 


0082 


D001 






STO 




AA130+1 


0083 


C700 


0000 


AA130 


LD 


L3 


*-* 


0085 


D001 






STO 




AA140+1 


0086 


4F00 


0000 


AA140 


B 


L3 


*-* 



1 

/0740 

1 

AAC58-BASE 

BA010-BASE 

BA010-BASE 

CA010-BASE 

DA010-BASE 

DC010-BASE 

DF010-BASE 

DK010-BASE 

DP010-BASE 

DZ010-BASE 

AA200-BASE 

AA200-BASE 

AA200-BASE 

AA200-BASE 

AA200-BASE 

AA200-BASE 

HZ100-BASE 



IOCC TO SENSE DES. 

ROUTINE NUMBER. 
TABLE BASE ADDRESS. 
START FULL TEST AT BA010. 
PATTERN TEST ONE. 
PATTERN TEST TWO. 
PATTERN TEST THREE. 
PATTERN TEST FOUR. 
PATTERN TEST FIVE. 
PATTERN TEST SIX. 
PATTERN TEST SEVEN. 
PATTERN TEST EIGHT. 

TEST. 

TEST. 

TEST. 

TEST. 



00A4 70B3 



AAC50 BSS 

DC 
AAC52 BSS 
AAC56 DC 
AAC58 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
# 

AAC60 DC 
* 

AAC62 DC 
AAC64 BSS 
AAC66 BSS 
* 

*************************************************** 
AA200 EQU 

BSI 

DC 
WATOB WAIT 
* 

B 



NULL 

NULL 

NULL 

NULL 

NULL TEST. 

NULL TEST. 



SUMMARY LOG 
RELATIVE ADDRESS OF TEST 
SUC88-BASE PATTERN AREA. 

RELATIVE ADDRESS OF 

FAILURE PATTERN AREA. 
ABSOLUTE ADDRESS OF SUC88. 
ABSOLUTE ADDRESS OF SUC90. 

* 



SUC90-BASE 
1 

1 



L3 MA010-BASE 
MSG10-BASE 
/OB 

WATOA+1 



WRITE ERROR MESSAGE. 

MESSAGE. 
ERROR WAIT. 
BRANCH TO AA022. 
READ SWITCHES AGAIN. 
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8CF04100 

8CF04110 

8CF04120 

8CF04130 

8CF04140 

8CF04150 

8CF04160 

8CF04170 

8CF04180 

8CF04190 

8CF04200 

8CF04210 

8CF04220 

8CF04230 

8CF04240 

8CF04250 

8CF04260 

8CF04270 

8CF04280 

8CF04290 

8CF04300 

8CF04310 

8CF04320 

8CF04330 

8CF04340 

8CF04350 

8CF04360 

8CF04370 

8CF04380 

8CF04390 

8CF04400 

8CF04410 

8CF04420 

8CF04430 

8CF04440 

8CF04450 

8CF04460 

8CF04470 

8CF04480 

8CF04490 

8CF04500 

8CF04510 

8CF04520 

8CF04530 

8CF04540 

8CF04550 

8CF04560 

8CF04570 

8CF04580 

8CF04590 

8CF04600 

8CF04610 

8CF04620 

8CF04630 

8CF04640 

8CF04650 

8CF04660 

8CF04670 

8CF04680 

8CF04690 

8CF04700 

8CF04710 

8CF04720 

8CF04730 

8CF04740 

8CF04750 

8CF04760 

8CF04770 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



00A5 



00A5 
00A6 
00A7 
00A8 
00A9 
OOAA 
OOAA 
OOAB 
OOAC 
OOAE 
OOAF 

00B1 
00B2 
00 B3 
00B3 



0000 
0B26 
4804 
7001 
7009 

6A0B 
COO A 

4700 03B0 
D007 
4700 0691 

0053 
300C 

4F80 0043 



00B5 





0005 


00B6 





0000 


00B7 





OAOA 


00 B8 





0000 


00B9 





1631 


00 BA 





3913 



* LOWER ADDRESS LIMIT OF PATTERN TESTS. 
* 

PTEST EQU * 
*************************************************** 

* * 

* PREPROCESSING WAIT SUBROUTINE *• 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE TESTS DATA ENTRY SWITCH 15 AND * 

* PROVIDES FOR A PREPROCESSING WAIT IF IT IS ON. * 

* * 

* CALL - * 

* * 

* BSI L3 AB010-BASE * 

* * 

* XR1 AND XR2 ARE NOT USED. * 

* * 

* XR3 IS THE PSEUDO BASE REGISTER. * 

* * 
*************************************************** 



AB010 DC 
XIO 
SKP 
B 
B 

AB015 EQU 
STX 
LD 



*-* ENTRY. 
3 AAC50-BASE SENSE DATA ENTRY SWS 
E SKIP IF OFF. 

AB015 SKIP IF ON. 
AB020 BRANCH IF OFF. 
* 
2 ABC92 CONVERT ROUTINE 10. TO 
ABC92 TWO 1443 CHARACTERS. 
BSI L3 IC010-BASE STORE IN MESSAGE. 
STO ABC92 

BSI L3 MA010-BASE WRITE MESSAGE. 
DC ABC90-BASE MESSAGE. 
WATOC WAIT /OC WAIT. 
AB020 EQU * 

B 13 AB010-BASE RETURN. 

* * 
*************************************************** 

* * 

* CONSTANTS AND MESSAGE * 

* * 
*************************************************** 

* * 
ABC90 DC 5 MESSAGE. 

ABC92 DC /OOOO MESSAGE ID.t FILLED IN. 
DC /OAOA 00 
OC /OOOO 
DC /1631 WA 
DC /3913 IT 

* * 
*************************************************** 
*************************************************** 

* * 

* SET STATUS FLAG WORD * 

* * 
*************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 



* THIS SUBROUTINE BUILDS A WORD OF FIVE FLAGS 

* TO INDICATE THE STATUS OF THE PROGRAM AFTER 

* A PATTERN TEST. 
* 

* UPON EXIT THREE OF THE FLAGS WILL BE IN THE 

* ACCUMULATORt BITS 13-15, AND TWO OF THE FLAGS 

* WILL BE IN THE EXTENSION, BITS & 1. 
* 

* CALL - 
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8CF04780 
8CF04790 
8CF04800 
8CF04810 
8CF04820 
8CF04830 
8CF04840 
8CF04850 
8CF04860 
8CF04870 
8CF04880 
8CF04890 
8CF04900 
8CF04910 
8CF04920 
8CF04930 
8CF04940 
8CF04950 
8CF04960 
8CF04970 
8CF04980 
8CF04990 
8CF05000 
8CF05010 
8CF05020 
8CF05030 
8CF05040 
8CF05050 
8CF05060 
8CF05070 
8CF05080 
8CF05090 
8CF05100 
8CF05110 

8CF05120 
8CF05130 
8CF05140 
8CF05150 
8CF05160 
8CF05170 
8CF05180 
8CF05190 
8CF05200 
8CF05210 
8CF05220 
8CF05230 
8CF05240 
8CF05250 
8CF05260 
8CF05270 
8CF05280 
8CF05290 
8CF05300 
8CF05310 
8CF05320 
8CF05330 
8CF05340 
8CF05350 
8CF05360 
8CF05370 
8CF05380 
8CF05390 
8CF054O0 
8CF05410 
8CF05420 
8CF05430 
8CF05440 
8CF05450 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


4 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
4A 



oooooooooooooooooooooooooooooooooc 



oooooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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OOBB 
OOBC 
00 BD 
OOBE 
OOBF 
OOCO 
00C1 
00C2 
00C3 
00C4 
00C5 
00C6 
0OC7 
00C8 
00C9 
00C9 
OOCA 
OOCB 
OOCC 
OOCD 
OOCE 
OOCF 
0000 
00D1 
00D2 
00D3 
00D3 
00D4 
00D4 
00D5 



0000 
0B26 
E019 
1804 
D018 
1803 
4804 
7006 
C3F9 
4808 
7003 
C011 
E811 
DOOF 












C301 
1804 
1889 
800D 
F3F8 
4820 
7003 
C007 
E808 
7001 



C004 

1881 
4F80 0059 



BSI L3 AC010-BASE 

XR1 AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



THE SIGNIFICANCE OF THE VALUE IN THE ACCUMULATOR* 
IS - 



£ 7 



FULL, NORMAL TEST. 

LOOP ON-ROUTINE. 

EXPLICIT BSM TEST. 

LOOP ON ROUTINE IN 

EXTERNAL BSM TEST. 

LOOP ON ROUTINE IN EXTERNAL BSM TEST* 

ARE NOT USED. * 



* 
* 

* 
# 
# 

AN EXPLICIT BSM. * 
* 



THE SIGNIFICANCE OF THE VALUES IN THE IS - 



- 

1 - 

2 - 

3 - 



PROGRAM RESIDES IN LOW HALF OF BSM. * 
PROGRAM RESIDES IN HIGH HALF OF BSM.* 
PROGRAM IS IN LOW HALF OF THE LAST * 



BSM. 

PROGRAM IS 
LAST BSM. 



IN THE HIGH HALF OF THE 



*************************************************** 



* 

AC010 DC 
XIO 
AND 
SRA 
STO 
SRA 
SKP 
B 

LD 
SKP 
B 

LD 
OR 
STO 

AC020 EOU 
LD 
SRA 
SRT 
A 

EOR 
SKP 
B 

LD 
OR 
B 

AC040 EOU 
LD 

AC050 EOU 
SRT 
B 



13 



*-* 

AAC50-BASE 

ACC05 

FOUR 

ACC10 

THREE 

E 

AC020 

AAC10-BASE 

+ 

AC020 

ACC10 

ACC15 

ACC10 

* 

ONE 

FOUR 

NINE 

ACC20 

AAC04-BASE 

Z 

AC040 

ACC10 

ACC20 

AC050 

* 

ACC10 

* 

ONE 

AC010-BASE 



ENTRY. 

TEST FOR SWS 8 6 10 

LEAVE BITS 8 6 10. 

SHIFT TO POSITION 12 £ 14. 

SET WORD AND SAVE FLAGS. 

IF EXTERNAL INDICATOR 

ON BRANCH AROUND TEST 

FOR EXPLICIT BSM. 

TEST FOR EXPLICIT BSM. 

SKIP IF SET. 

BRANCH NO EXPLICIT TEST. 

SET INDICATOR ON 

IN FLAG WORD. 

BIT 13. 

PUT HILOW BSM INDICATOR 
INTO BIT OF AND SHIFT 
BSM ADDRESS TO BITS 13-15. 
COMPUTE BSM OF RESIDENCE. 

IS TEST RESIDENT IN 
LAST BSM. SKIP IF SO. 
BRANCH IF NOT. 
SET FLAG. 
BIT 15. 
SKIP. 

LOAD FLAG WORD. 



00D7 OOAO 
00D8 0001 
00D9 0004 



POSITION FLAG WORD. 
RETURN. 

*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 
ACC05 DC /OOAO MASK TO LEAVE BITS 8 £ 10. 
ACC10 BSS 1 FLAG WORD STORAGE. 

ACC15 DC /0004 BIT 13. 
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8CF05460 

8CF05470 

8CF05480 

8CF05490 

8CF05500 

8CF05510 

8CF05520 

8CF05530 

8CF05540 

8CF05550 

8CF05560 

8CF05570 

8CF05580 

8CF05590 

8CF05600 

8CF05610 

8CF05620 

8CF05630 

8CF05640 

8CF05650 

8CF05660 

8CF05670 

8CF05680 

8CF05690 

8CF05700 

8CF05710 

8CF05720 

8CF05730 

8CF05740 

8CF05750 

8CF05760 

8CF05770 

8CF05780 

8CF05790 

8CF05800 

8CF05810 

8CF05820 

8CF05830 

8CF05840 

8CF05850 

8CF05860 

8CF05870 

8CF05880 

8CF05890 

8CF05900 

8CF05910 

8CF05920 

8CF05930 

8CF05940 

8CF05950 

8CF05960 

8CF05970 

8CF05980 

8CF05990 

8CF06000 

8CF06010 

8CF06020 

8CF06030 

8CF06040 

8CF06050 

8CF06060 

8CF06070 

8CF06080 

8CF06090 

8CF06100 

8CF06110 

8CF06120 

8CF06130 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 

OODA 0001 



OODB 
OODB 6201 
OODC 4343 



OODD 
OODD 
OODE 
OODF 
OOEO 



C038 

D038 

C039 

0019 
00E1 C040 
00E2 4700 0876 



00E4 
00E4 
00E5 
00E6 
00E7 
00E9 
OOEA 
OOEA 
OOEC 
OOEC 
OOED 
OOED 

OOEE 
OOEF 
00F1 
00F2 
OOF 3 
00F4 
OOF 5 
00F6 
00F6 
00F7 
OOF 8 
00F9 

















4700 08EB 



D027 




















C032 

4804 
7003 

4700 08E3 
7002 



6927 

C026 

D700 0492 

D100 

C100 

F021 

4820 

702D 

C01E 

F01C 
4818 
7002 



OOF A 





7101 


OOFB 





70F1 


OOFC 







OOFC 





C01A 


OOFD 





901A 


OOFE 





4808 


OOFF 





7005 


0100 





D016 



/0001 



BIT 15 AND CONSTANT ONE. 



ACC20 DC 

* * 
*************************************************** 
*************************************************** 

* * 

* READ AND WRITE IN MEMORY PATTERN TEST * 

* * 
*************************************************** 

* * 

* THE READ AND WRITE IN MEMORY PATTERN TEST STORES* 

* THE ADDRESS OF EACH LOCATION INTO THE LOCATION. * 

* THEN THE ADDRESS IS READ BACK AND CHECKED. * 

* * 
*************************************************** 



* ENTER PATTERN TEST. 

2 ONE XR2 INDICATES ROUTINE ID. 

3 AB010-BASE GO TO WAIT TEST 



BA010 EQU 

LDX 

BSI 
* 

# LOAD ADDRESS OF POSITION INTO EACH POSITION. 
* 
BA020 EOU * 

LD BAC06 

STO BAC08 

LD BAC16 

STO BA080 

LD BAC24 

BSI L3 PS010-BASE 



INITIALIZE PASS 
COUNTER. 

INITIALIZE INCREMENT 
INDEX REGISTER INSTRUCTION 
INCREMENT PASS 
COUNTER. 



* PATTERN TEST EXERCISE. 

* 

* 

BAC08 
E 

BA050 
L3 SA100-BASE 
BA060 



BA040 EOU 

LD 

SKP 

B 

BSI 

B 
BA050 EQU 

BSI 
BA060 EQU 

STO 
BA070 EQU 

STX 

LD 
STO 
STO 
LD 
EOR 
SKP 
B 
BA075 EQU 
LD 

EOR 
SKP 
B 
* 

* THE FOLLOWING INSTRUCTION IS MODIFIED TO 

* INCREMENT AND DECREMENT XR1 ALTERNATELY. 
* 



L3 SA200-BASE 
* 

BAC02 
* 
1 BAC04 

BAC04 
L3 IXC12-BASE 
1 ZERO 
1 ZERO 

BAC04 

Z 

BA200 

* 

BAC04 

BAC02 
+- 

BA085 



TEST PASS COUNTER FOR EVEN 
SKIP EVEN. 
BRANCH ODD. 

SET ADDRESS LIMITS, UP. 
BRANCH TO CONTINUE. 

SET ADDRESS LIMITS, DOWN. 

SAVE END ADDRESS. 

SAVE ADDRESS AND COMPARE 

WRITE AND READ PATTERN 

SAVE PATTERN FOR INTRPT. 
AND COMPARE. 
READ/WRITE. 
COMPARE. 
SKIP IF OK. 
BRANCH ON ERROR. 

COMPARE TO 
LAST POSITION. 
SKIP NOT EQUAL. 
BRANCH IF DONE. 



BA080 MDX 
B 

BA085 EOU 
LD 
S 

SKP 
B 
STO 

* 



ONE 

BA070 

* 

BAC08 

BAC12 

+ 

BA090 

BAC08 



LOOP. 

DECREMENT LOOP COUNTER. 

SKIP NOT DONE. 
BRANCH IF DONE. 
UPDATE COUNTER. 
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* THE FOLLOWING INSTRUCTIONS MODIFY BA080 TO 


8CF06820 










* INCREMENT AND DECREMENT XR1 ON ALTERNATE 


8CF06830 










* PASSES. 






8CF06840 










* 






8CF06850 


0101 





C0F8 




LD 


BA080 




8CF06860 


0102 





F017 




EOR 


BAC18 




8CF06870 


0103 





D0F6 




STO 


BA080 




8CF06880 


0104 





70DF 




B 
* 


BA040 


MAKE ANOTHER PASS. 


8CF06890 
8CF06900 










* PATTERN 


TEST EXERCISE COMPLETE. 


8CF06910 










* 






8CF06920 


0105 









BA090 EOU 


* 




8CF06930 


0105 





4359 




BSI 
* 


3 AC010-BASE 


SET STATUS FLAG WORD 


8CF06940 
8CF06950 










* UPON RETURN THERE IS A 


VALUE OF 0-5 IN THE ACC. 


8CF06960 










* 






8CF06970 


0106 





8014 




A 


BAC20 


COMPUTE TABLE ADDRESS. 


8CF06980 


0107 





D001 




STO 


BA100+1 


STORE IN NEXT INSTRUCTION. 


8CF06990 


0108 





C700 


0000 


BA100 LD 


L3 *-* 


GET TABEL ENTRY AND 


8CF07000 


010A 





D001 




STO 


BA110+1 


BUILD BRANCH TO ENTRY. 


8CF07010 


010B 





4F00 


0000 


BA110 B 

* 


L3 *-* 


BRANCH TO PROPER ROUTINE. 


8CF07020 
8CF07030 










* FULL, NORMAL TEST 




8CF07040 










* 






8CF07050 


010D 









BA120 EOU 


* 




8CF07060 


010D 





4700 


0790 


BSI 


L3 NE010-BASE 


RELOCATE CORE TEST. 


8CF07070 


010F 





007B 




DC 


BA020-BASE 


RE-ENTERY ADDRESS 


8CF07080 


0110 





00 CB 




OC 


BA520-BASE 


PARAMETERS. 


8CF07090 


0111 









BA150 EOU 


* 




8CF07100 


0111 





4700 


07A7 


BSI 


L3 NE200-BASE 


OSCILLATE. 


8CF07110 


0113 





007B 




DC 


BA020-BASE 


RE-ENTER AT BA020. 


8CF07120 










*************************************************** 


8CF07130 










* 




* 


8CF07140 










* CONSTANTS AND WORK AREAS * 


8CF07150 










* 




* 


8CF07160 










****** ***#** ******************** ********* ********** 


8CF07170 










* 




* 


8CF07180 


0114 




0001 




BAC02 BSS 


1 


STORAGE FOR END ADDRESS. 


8CF07190 


0115 




0001 




BAC04 BSS 


1 


TEMPORARY STORAGE. 


8CF07200 


0116 





0004 




BAC06 DC 


4 


NUMBER OF PASSES. 


8CF0721O 


0117 




0001 




BAC08 BSS 


1 


LOOP COUNTER. 


8CF07220 


0118 





0001 




BAC12 OC 


1 


ONE. 


8CF07230 


0119 





7101 




BAC16 MDX 


1 ONE 


INSTRUCTION TO MODIFY XR1. 


8CF07240 


011A 





OOFE 




BAC18 DC 

* 


/OOFE 


MASK TO CHANGE BITS 8-14. 
RELATIVE DISPLACEMENT 


8CF07250 
8CF07260 


011B 





00 B A 




BAC20 DC 


BAC22-BASE 


OF FLAG TABLE BASE. 


8CF07270 


one 





OOAB 




BAC22 DC 


BA120-BASE 


FULL, NORMAL TEST. 


8CF07280 


011D 





00C4 




DC 


BA300-BASE 


LOOP ON ROUTINE. 


8CF07290 


011E 





00C7 




DC 


BA400-BASE 


EXPLICIT BSM TEST. 


8CF07300 


OUF 





OOAF 




DC 


BA150-BASE 


LOOP AND EXPLICIT. 


8CF07310 


0120 





OOCB 




OC 


BA520-BASE 


EXTERNAL BSM TEST. 


8CF07320 


0121 





007B 




DC 

* 


BA020-BASE 


LOOP AND EXTERNAL. 
RELATIVE DISPLACEMENT OF 


8CF07330 
8CF07340 


0122 





0F24 




BAC24 DC 


PXK60-BASE 


LOOP TALLEY TABLE ADDRESS 

* 


8CF07350 
8CF07360 










*************************************************** 


8CF07370 










* 






8CF07380 










* ERROR SUBROUTINE. 




8CF07390 










* 






8CF07400 


0123 









BA200 EQU 


* 




8CF07410 


0123 





4700 


059D 


BSI 


L3 JA010-BASE 


LOG NONINTERRUPT ERRORS. 


8CFO7420 


0125 





70D0 




B 
* 

* LOOP ON 

* 


BA075 
PATTERN TEST. 


RETURN TO TEST, 


8CF07430 
8CF07440 
8CF07450 
8CF07460 


0126 









BA300 EOU 


* 




8CF07470 


0126 





4700 


07AB 


BSI 


L3 NE300-BASE 


MOVE ANYWHERE. 


8CF07480 


0128 





007B 




DC 


BA020-BASE 


RE-ENTER AT BA020. 


8CF07490 











* 






8CF07500 










* EXPLICIT 


BSM TEST. 




8CF07510 










* 






8CF07520 


0129 









BA400 EOU 


* 




8CF07530 


0129 





4700 


07AF 


BSI 


L3 NE400-BASE 




8CF07540 


012B 





007B 




DC 


BA020-BASE 


RE-ENTERY ADDRESS 


8CF07550 


012C 





OOCB 




DC 


BA520-BASE 


PARAMETERS. 


8CF07560 


012D 









BA520 EOU 

* 


* 




8CF07570 
8CF07580 










* TEST FOR 


EXPLICIT ROUTINE. 


8CF07590 










* 






8CF07600 


012D 





4700 


0BE4 


BSI 

* 


L3 UA010-BASE 


GO TO EXPLICIT ROUTINE 
TEST. 


8CF07610 
8CF07620 










*************************************************** 


8CF0763O 










* 




* 


8CF07640 










* BIT ISOLATION PATTERN TEST * 


8CF07650 










* 




* 


8CF07660 










*************************************************** 


8CF07670 










* 




* 


8CF07680 










* THE BIT 


ISOLATION PATTERN TEST READS AND WRITES * 


8CF07690 










* A PATTERN OF A SINGLE BIT IN EACH WORD. EACH OF* 


8CF07700 










* THE 16 BIT POSITIONS AND THE PARITY BIT IS * 


8CF07710 










* TESTED. 




* 


8CF07720 










* 




* 


8CF07730 










*************************************************** 


8CF07740 










* 




* 


8CF07750 


012F 









CA010 EOU 


* 


ENTER PATTERN TEST. 


8CF07760 


012F 





6202 




LOX 


2 TWO 


XR2 INDICATES ROUTINE ID. 


8CF07770 


0130 





4343 




BSI 
* 


3 AB010-BASE 


GO TO WAIT TEST 


8CF07780 
8CF07790 










* INITIALIZE FOR PATTERN 


TEST. 


8CF07800 










* " 






8CF07810 


0131 









CA020 EQU 


* 




8CF07820 


0131 





C024 




LD 


CAC24 


INCREMENT PASS 


8CF07830 


0132 





4700 


0876 


BSI 


L3 PS01G-BASE 


COUNTER. 


8CF07840 


0134 





1810 




SRA 


16 


INITIAL PATTERN IS 0. 


8CF07850 


0135 









CA030 EOU 


* 




8CF07860 


0135 





4700 


02B3 


BSI 

* 


L3 EX010-BASE 


RUN EXERCISE ROUTINE. 


8CF07870 
8CF07880 










* DETERMINE IF EACH BIT 


HAS BEEN TESTED. 


8CF07890 










* 






8CF07900 


0137 





4808 




SKP 


+ 


SKIP IF TESTING SINGLE 


8CF07910 


0138 





7002 




B 


CA100 


BIT, BRANCH OR DONE. 


8CF07920 


0139 





1001 




SLA 


ONE 


MOVE BIT TO NEXT POSITION. 


8CF07930 


013A 





70FA 




B 


CA030 


RUN ANOTHER PATTERN TEST. 


8CF07940 


013B 









CA100 EOU 


* 




8CF07950 


013B 





4820 




SKP 


Z 


SKIP IF FIRST TEST PASS. 


8CF0 7960 


013C 





7002 




B 


CA110 


BRANCH IF DONE. 


8CF07970 


013D 





C010 




LD 


CAC02 


LOAD FIRST BIT PATTERN. 


8CF07980 


013E 





70F6 




B 

* 


CA030 


RUN ANOTHER PATTERN TEST. 


8CF07990 
8CF08000 










* PATTERN 


TEST EXERCISE 


COMPLETE. 


8CF08010 










* 






8CF08020 


013F 









CA110 EOU 


* 




8CF08030 


013F 





4359 




BSI 
* 


3 AC010-BASE 


SET STATUS FLAG WORD 


8CF08040 
8CF08050 










* UPON RETURN THERE IS A 


VALUE OF 0-5 IN THE ACC. 


8CF08060 










* 






8CF08070 


0140 





800E 




A 


CAC18 


COMPUTE TABLE ADDRESS AND 


8CF08080 


0141 





D001 




STO 


CA120+1 


STORE IN NEXT INSTRUCTION. 


8CF08090 


0142 





C700 


0000 


CA120 LD 


L3 *-* 


GET TABLE ENTRY AND BUILD 


8CF08100 


0144 





D001 




STO 


CA125+1 


BRANCH TO ROUTINE 


8CF08U0 


0145 





4F00 


0000 


CA125 B 
* 


L3 *-* 


ENTRY. 


8CF08120 
8CF08130 










* FULL, NORMAL TEST. 




8CF08140 










* 






8CF08150 


0147 









CA130 EQU 


* 




8CF08160 


0147 





4700 


0790 


BSI 


L3 NE010-BASE 


RELOCATE CORE TEST. 


8CF08170 
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0149 OOCF 
014A OOFC 
014B 

014B 4700 07A7 
0140 OOCF 



014E 





0001 


CAC02 


DC 


014F 





OOEE 


CAC18 


DC 


0150 





00E5 


CAC20 


DC 


0151 





00F5 




DC 


0152 





00F8 




DC 


0153 





00E9 




DC 


0154 





OOFC 




DC 


0155 





OOCF 




DC 


0156 





0F24 


CAC24 

* 


DC 



0157 

0157 4700 07AB 

0159 OOCF 



015A 

015A 4700 07AF 
015C OOCF 
015D OOFC 
015E 



015E 4700 0BE4 



0160 







0160 





6203 


0161 





4343 


0162 







0162 





C022 



0163 4700 0876 



0165 C016 

0166 

-0166 4700 02B3 



DC CA020-BASE RE-ENTRY ADDRESS 

DC CA520-BASE PARAMETERS 

CA140 EOU * 

BSI 13 NE200-BASE OSCILLATE 

DC CA020-BASE RE-ENTER AT CA020. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 

*************************************************** 

* * 
/0001 INITIAL BIT PATTERN, 15. 

RELATIVE DISPLACEMENT OF 
CAC20-BASE FLAG TABLE BASE. 
CA130-BASE FULL NORMAL TEST. 
CA300-BASE LOOP ON ROUTINE. 
CA400-BASE EXPLICIT BSM TEST. 
CA140-BASE LOOP AND EXPLICIT. 
CA520-BASE EXTERNAL BSM TEST. 
CA020-BASE LOOP AND EXTERNAL. 

RELATIVE DISPLACEMENT OF 
PXK60-BASE LOOP TALLEY TABLE ADDRESS 

* 

*************************************************** 
* 

* LOOP ON PATTERN TEST. 
* 

CA300 EOU * 

BSI L3 NE300-BASE MOVE ANYWHERE. 

DC CA020-BASE RE-ENTER AT CA020. 
* 

* EXPLICIT BSM TEST. 
* 

CA400 EOU * 

BSI L3 NE400-BASE 

DC CA020-BASE RE-ENTERY ADDRESS 

DC CA520-BASE PARAMETERS. 

CA520 EOU * 

* 

* TEST FOR EXPLICIT ROUTINE 
* 

BSI L3 UA010-BASE GO TO EXPLICIT ROUTINE 

* TEST. 
$$*********************************************«*** 

* * 

* FLOATING ZERO PATTERN TEST * 

* * 
*************************************************** 

* * 

* THE FLOATING ZERO PATTERN TEST READS AND WRITES * 

* A ZERO IMBEDDED IN ONES IN EACH WORD. EACH OF * 

* THE 16 BITS IS TESTED WITH THE FLOATING ZERO. * 

* * 
*********#**************#************************** 

* * 
DA010 EOU * ENTER PATTERN TEST. 

LDX 2 THREE XR2 INDICATES ROUTINE ID. 
BSI 3 AB010-BASE GO TO WAIT TEST 

DA020 EOU * 

LD DAC26 INCREMENT PASS 

BSI L3 PS010-BASE COUNTER. 

* INITIALIZE FOR PATTERN TEST. 

# 

LD DAC02 INITIAL BIT PATTERN. 
DA030 EOU * 

BSI L3 EX010-BASE RUN EXERCISE ROUTINE. 
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8CF08500 

8CF08510 

8CF08520 

8CF08530 

8CF08540 

8CF08550 

8CF08560 

8CF08570 

8CF08580 

8CF08590 

8CF08600 

8CF08610 

8CF08620 

8CF08630 

8CF08640 

8CF0 8650 

8CF08660 

8CF08670 

8CF08680 

8CF08690 
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0168 





4810 




0169 





7003 




016A 





1001 




016B 





E811 




016C 





70F9 




016D 









016D 





4359 




016E 





800F 




016F 





D001 




0170 





C700 


0000 


0172 





D001 




0173 





4F00 


0000 


0175 









0175 





4700 


0790 


0177 





0100 




0178 





012B 




0179 









0179 





4700 


07 A 7 


017B 





0100 





0186 

0186 4700 07AB 

0188 0100 



0189 

0189 4700 07AF 
018B 0100 
018C 012B 
018D 



018D 4700 0BE4 



* DETERMINE IF EACH BIT HAS BEEN TESTED. 
* 

SKP - ZERO, SKIP IF NOT. 

B DA110 BRANCH IF TEST DONE. 

SLA ONE MOVE FLOATING ZERO AND 

OR DAC16 ADD LOW BIT. 

B DA030 RUN ANOTHER PATTERN TEST. 
* 

* PATTERN TEST EXERCISE COMPLETE. 
* 

DA110 EQU * 

BSI 3 AC010-BASE SET STATUS FLAG WORD 
* 

* UPON RETURN THERE IS A VALUE OF 0-5 IN THE ACC. 
* 



COMPUTE TABLE ADDRESS AND 
STORE IN NEXT INSTRUCTION. 
GET TABLE ENTRY AND BUILD 
BRANCH TO ROUTINE 
ENTRY. 



017C 





FFFE 


DAC02 


DC 


017D 





0001 


DAC16 


DC 


017E 





011D 


DAC20 


DC 


017F 





0113 


DAC22 


DC 


0180 





0124 




DC 


0181 





0127 




DC 


0182 





0117 




DC 


0183 





012B 




DC 


0184 





0100 




DC 


0185 





0F24 


DAC26 
# 


DC 



A DAC20 
STO DA120+1 

DA120 LD L3 *-* 

STO DA130+1 

DA130 B L3 *-* 

* 

* FULL, NORMAL TEST. 
* 

DA140 EOU * 

BSI L3 NE010-BASE RELOCATE CORE TEST. 

DC DA020-BASE RE-ENTRY ADDRESS 

DC DA520-BASE PARAMETERS. 

DA150 EQU * 

BSI L3 NE200-BASE OSCILLATE. 

DC DA020-BASE RE-ENTER AT DA020. 
si:************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 

*#************************************************* 

* * 

/FFFE INITIAL BIT PATTERN. 

1 ONE. 

DAC22-BASE FLAG TABLE BASE. 
DA140-BASE FULL NORMAL TEST. 
DA300-BASE LOOP ON ROUTINE. 
DA400-BASE EXPLICIT BSM TEST. 
DA150-BASE LOOP AND EXPLICIT. 
DA520-BASE EXTERNAL BSM TEST. 
DA020-BASE LOOP AND EXTERNAL. 

RELATIVE DISPLACEMENT OF 

PXK60-BASE LOOP TALLEY TABLE ADDRESS 

* 

*************************************************** 
* 

* LOOP ON PATTERN TEST. 
* 

DA300 EOU * 

BSI L3 NE300-BASE MOVE ANYWHERE. 

DC DA020-BASE RE-ENTER AT DA020. 

* 

* EXPLICIT BSM TEST. 
* 

DA400 EOU * 

BSI L3 NE400-BASE 

DC 0A020-BASE RE-ENTRY ADDRESS 

DC DA520-BASE PARAMETERS. 

DA520 EOU * 

* 

* TEST FOR EXPLICIT ROUTINE. 
* 

BSI L3 UA010-BASE GO TO EXPLICIT ROUTINE 

* TEST. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 





*#**#****#******#*#****#*****#***#***************** 


8CF09540 


' 


* 












* 


8CF09550 




* WORST CASE PATTERN 


TEST 




* 


8CF09560 




* 












* 


8CF09570 




*#****##*****#******#*****#************************ 


8CF09580 




* 












* 


8CF09590 




* THIS 


PATTERN 


TEST 


SETS 


UP THE WORST CASE BIT 


* 


8CF09600 




* PATTERN AND 


EXERCISES A 


STORAGE MODULE. 


* 


8CF09610 




# 












* 


8CF09620 




* 










4/15/69 


* 


8CF09630 




* 












* 


8CF09640 




*************************************************** 


8CF09650 




* 












# 


8CF09660 


018F 


OCOIO 


EQU 




* 








8CF09670 


018F 6204 




LDX 


2 


FOUR 




XR2 INDICATES PATTERN ID 


. 


8CF09680 


0190 4343 


* 


BSI 


3 


AB010- 


BASE 


GO TO WAIT TEST 




8CF09690 
8CF09700 




* INITIALIZE WORST CASE PATTERN. 




8CF09710 




* 














8CF09720 


0191 


DC020 


EOU 




* 








8CF09730 


0191 C066 




LD 




DCC02 




INITIALIZE PASS 




8CF09740 


0192 D066 




STO 




DCC04 




COUNTER. 




8CF09750 


0193 C066 




LD 




DCC06 




INITIALIZE INCREMENT INDEX 


8CF09760 


0194 D02D 




STO 




DC070 




REGISTER INSTRUCTION. 




8CF09770 


0195 C069 




LD 




DCC16 




INCREMENT PASS 




8CF09780 


0196 4700 0876 




BSI 


L3 


PS010- 


BASE 


COUNTER. 




8CF09790 


0198 4700 08E3 




BSI 


L3 


SA100- 


BASE 


SET ADDRESS LIMITS. 




8CF09800 


019A 0060 




STO 




DCC08 




SAVE END ADDRESS. 




8CF09810 


019B 


DC030 


EOU 




* 








8CF09820 


019B 6960 




STX 


1 


DCC10 




SET PATTERN OF 64 WORDS 




8CF09830 


019C C05F 




LD 




DCC10 




OF ZEROS AND 64 WORDS 




8CF09840 


019D 1806 




SRA 




SIX 




OF ONES. 




8CF09850 


019E D05D 




STO 




DCC10 








8CF09860 


019F 1802 




SRA 




TWO 








8CF09870 


O1A0 F05B 




EOR 




DCC10 








8CF09880 


01A1 4804 




SKP 




E 








8CF09890 


01A2 7002 




B 




DC 040 




BRANCH ODD. 




8CF09900 


01A3 C059 




LD 




DCC12 




STORE /FFFF. 




8CF09910 


01A4 7001 




B 




DC 050 








8CF09920 


01A5 


DC040 


EOU 




* 








8CF09930 


01A5 1810 




SRA 




16 




STORE /OOOO. 




8CF09940 


01A6 


DC050 


EOU 




* 








8CF09950 


01A6 D100 




STO 


1 


ZERO 




PUT PATTERN IN CORE. 




8CF09960 


01A7 6954 




STX 


1 


DCC10 




TEST FOR END ADDRESS. 




8CF09970 


01A8 C053 




LD 




DCC10 








8CF09980 


01A9 F051 




EOR 




DCC08 








8CF09990 


01AA 4818 




SKP 




+- 




SKIP NOT DONE. 




8CF10000 


01AB 7002 




B 




DC 060 




BRANCH TO TEST. 




8CF10010 


01AC 7101 




MDX 


1 


ONE 




INCREMENT ADDRESS 




8CF10020 


01AD 70ED 


* 


B 




DC030 




AND LOOP. 




8CF10030 
8CF 10040 




* PATTERN 


TEST EXERCISE. 






8CF10050 




* 














8CF10060 


01AE 


DC 060 


EOU 




* 








8CF10070 


01AE C04A 




LD 




DCC04 




TEST PASS COUNTER. 




8CF10080 


01AF 4804 




SKP 




E 




SKIP TO RIPPLE UP CORE. 




8CF10090 


01B0 7003 




B 




DC062 




BRANCH TO RIPPLE DOWN CORE 


8CF10100 


01B1 4700 08E3 




BSI 


L3 


SA100- 


-BASE 


SET ADDRESS LIMITS, UP 




8CF10110 


01B3 7002 




B 




DC064 




BRANCH TO CONTINUE. 




8CF10120 


01B4 


DC062 


EQU 




* 








8CF10130 


01B4 4700 08EB 




BSI 


L3 


SA200- 


-BASE 


SET ADDRESS LIMITS, DOWN, 


8CF10140 


01B6 


DC064 


EOU 




* 








8CF10150 


01B6 D044 




STO 




DCC08 




SAVE END ADDRESS. 




8CF10160 


01B7 


DC066 


EOU 




* 








8CF10170 


01B7 C100 




LD 


1 


ZERO 




READ/WRITE, READ/SET SP 


8CF10180 


01B8 2D41 0000 




STS 


LI 


ZERO, 


/41 


BIT/WRITE, READ/RESET 


SP 


8CF10190 


01BA 


DC068 


EOU 




# 




IAR AT INTERRUPT TIME. 




8CF10200 


D1BA 2D40 0000 




STS 


LI 


ZERO, 


/40 


BIT/WRITE PATTERN. 




8CF10210 



01BC 





C100 


01BD 
01BE 
01BF 







693E 
C03D 
F03B 


OICO 
OlCl 






4818 
7002 



01C2 





7101 


01C3 





70F3 


01C4 







01C4 





C034 


01C5 





8037 


01C6 





4808 


01C7 





7005 


01C8 





D030 



01C9 C0F8 
01CA F033 
01CB D0F6 
01CC 70E1 



01CD 
01CD 
01CF 
01D0 
01D0 
01D1 
01D2 
01D3 
01D4 
01D5 
01D6 
01D7 
01D8 
01D9 
01DA 
01DA 
01DB 
01DB 
01DD 
01DE 
01E0 
01E2 
01E2 
01E3 
01E4 
01E5 
01E6 
01E7 
01E8 

































1810 













6919 

C018 

F016 

4818 

7002 

7101 

70E7 



4700 08E3 
D02B 

692B 
C02A 
1806 

D028 
1802 
F026 
4804 
7002 
C024 
7001 



D700 0492 
F100 

4F18 0180 
4700 059D 



LD 

STX 

LD 

EOR 

SKP 

B 



ZERO 
DCC10 
DCC10 
DCC08 

+— 
DC080 



READ/WRITE. 
TEST FOR END 
ADDRESS. 

SKIP NOT DONE. 
BRANCH IF DONE. 



* 
* 

* 
* 

DC070 MDX 1 ONE 

B DC 066 
* 

* A PASS IS DONE. 

* 

DC080 EOU * 

LD DCC04 

A DCC12 

SKP + 

B DC 090 

STO DCC04 
* 

* THE FOLLOWING INSTRUCTIONS MODIFY DC070 TO 

* INCREMENT OR DECREMENT XR1 ON ALTERNATE PASSES 
* 



THE FOLLOWING INSTRUCTION IS MODIFIED TO 
INCREMENT OR OECREMENT XR1 ON ALTERNATE TEST 
PASSES. 



INCREMENT OR DECREMENT 
ADDRESS POINTER AND LOOP. 



DECREMENT PASS COUNTER 
AND TEST FOR ZERO. 
SKIP NOT DONE. 
BRANCH IF DONE. 
UPDATE PASS COUNTER. 



LD 
EOR 
STO 
B 



DC 070 
DCC14 
DC 070 
DC060 



* CHECK PATTERN. 

DC090 EOU * 

BSI 

STO 
DC100 EQU 

STX 

LD 

SRA 

STO 

SRA 

EOR 

SKP 

B 

LD 

B 
DC110 EQU 

SRA 
DC112 EQU 

STO 

EOR 

BZ 

BSI 
0C120 EQU 

STX 

LD 

EOR 

SKP 

B 

MDX 

B 



L3 SA100-BASE 
DCC08 
* 
1 DCC10 
DCC10 
SIX 
DCC10 
TWO 
DCC10 
E 

DC110 
DCC12 
DC112 
* 

16 

* 

IXC12-BASE 

ZERO 
L3 DC120-BASE 
L3 JA010-BASE 

1 DCC10 

DCC10 

DCC08 

+- 

DC122 
1 ONE 

DC100 



MAKE ANOTHER PASS. 



SET ADDRESS LIMITS. 
SAVE END ADDRESS. 



BRANCH ODD. 
TEST FOR /FFFF 



TEST FOR /OOOO. 



L3 

1 



SAVE PATTERN FOR TEST. 
COMPARE TO PATTERN IN CORE 
BRANCH IF PATTERN CHECKS. 
SUMMARIZE ERROR. 

CHECK FOR END ADDRESS. 



SKIP NOT DONE. 

SKIP IF DONE. 

INCREMENT ADDRESS POINTER. 

LOOP. 



01E9 
01E9 4359 



* 

* PATTERN TEST DONE. 

* 

DC122 



EQU 

BSI 



3 AC010-BASE SET STATUS FLAG WORD 
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8CF10220 

8CF1023O 

8CF10240 

8CF10250 

8CF10260 

8CF10270 

8CF10280 

8CF10290 

8CF10300 

8CF10310 

8CF10320 

8CF10330 

8CF10340 

8CF10350 

8CF10360 

8CF10370 

8CF10380 

8CF10390 

8CF10400 

8CF10410 

8CF10420 

8CF10430 

8CF10440 

8CF10450 

8CF10460 

8CF10470 

8CF 10480 

8CF10490 

8CF10500 

8CF10510 

8CF10520 

8CF10530 

8CF10540 

8CF10550 

8CF10560 

8CF10570 

8CF10580 

8CF10590 

8CF10600 

8CF10610 

8CF10620 
8CF10630 
8CF10640 
8CF10650 
8CF10660 
8CF10670 
8CF10680 
8CF10690 
8CF10700 
8CF10710 
8CF10720 
8CF10730 
8CF10740 
8CF10750 
8CF10760 
8CF10770 
8CF10780 
8CF10790 
8CF10800 
8CF10810 
8CF10820 
8CF10830 
8CF10840 
8CF10850 
8CF10860 
8CF10870 
8CF10880 
8CF10890 



DATE 
EC NO. 



14N0V69 
431319 



3OJAN70 
431319A 
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431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 
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PAGE 


8 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
8A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



01EA 8015 
01EB D001 
01EC C700 0000 
01EE D001 
01EF 4F00 0000 



01F1 
01F1 
01F3 
01F4 
01F5 
01F5 
01F7 



4700 0790 

012F 

01AC 

4700 07A7 
012F 



01F8 
01F9 
01FA 
01FB 
01FC 
01FD 
01FE 
01FF 
0200 
0201 
0202 
0203 

0204 

0205 

0206 



0004 
0001 

7101 
0001 
0001 
FFFF 
OOFE 
0F24 
019F 
018F 
01A5 
01A8 
0193 
01AC 
012F 



0207 

0207 4700 07AB 

0209 012F 



020A 

020A 4700 07AF 
020C 012F 
020D 01AC 



020E 

020E 4700 0BE4 



* UPON RETURN THERE IS A VALUE OF - 5 JN THE ACC. 
* 

DCC18 

OC125+1 

L3 *-* 

DC130+1 

*-* 



L3 



A 

STO 
DC125 LD 

STO 
DC130 B 
* 

* FULL, NORMAL TEST. 
* 
DC140 EOU 

BSI 

DC 

DC 
DC150 EOU 

BSI 



COMPUTE TABLE ADDRESS AND 
STORE IN LOAD OPERAND. 
GET TABLE ENTRY AND 
BUILD BRANCH TO 
ROUTINE ENTRY. 



DC 



L3 NE010-BASE 
DC020-BASE 
DC520-BASE 
* 

L3 NE200-BASE 
DC020-BASE 



RELOCATE CORE TEST. 
RE-ENTRY ADDRESS 

PARAMETERS. 

OSCILLATE. 
RE-ENTER AT DC020. 
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8CF10900 
8CF10910 
8CF10920 
8CF10930 
8CF10940 
8CF10950 
8CF10960 
8CF10970 
8CF10980 
8CF10990 
8CF11000 
8CF11010 
8CF11020 
8CF11030 
8CF11040 
8CF11050 
8CF11060 



2279484 
9 



*************************************************** 8CF11070 

* * 8CF11080 

* CONSTANTS AND WORK AREAS * 8CF11090 

* * 8CF11100 
*************************************************** 8CF11110 

* * 8CF11120 

8CF11130 
8CF11140 



DCC02 DC 
DCC04 BSS 
DCC06 MDX 
DCC08 BSS 
DCC10 BSS 
DCC12 DC 
DCC14 DC 
DCC16 DC 
DCC18 DC 
DCC20 DC 
DC 



DC 
DC 
DC 
DC 



4 
1 
1 ONE 
1 
1 

/FFFF 
/OOFE 

PXK60-BASE 
DCC20-BASE 
DC140-BASE 
DC300-BASE 
DC400-BASE 
DC150-BASE 
DC520-BASE 
DC020-BASE 



NUMBER OF PASSES. 

PASS COUNTER. 

INSTRUCTION TO MODIFY XR1. 8CF11150 



END ADDRESS STORAGE. 8CF11160 

WORK AREA. 8CF11170 

PATTERN, -1. 8CF11180 

MASK TO CHANGE BITS 8-14. 8CF11190 

LOOP TALLEY TABLE ADDRESS 8CF11200 

FLAG TABLE BASE ADDRESS. 8CF11210 

FULL, NORMAL TEST. 8CF11220 

LOOP ON ROUTINE. 8CF11230 

EXPLICIT BSM TEST. 8CF11240 

LOOP AND EXPLICIT. 8CF11250 

EXTERNAL BSM TEST. 8CF11260 

LOOP AND EXTERNAL. 8CF11270 

* 8CF11280 
************************************ 8CF 11290 

8CF11300 
8CF11310 
8CF11320 
8CF11330 
8CF11340 
8CF11350 
8CF11360 
8CF11370 
8CF11380 
8CF11390 
8CF11400 
8CF11410 
8CF11420 
8CF11430 
8CF11440 
8CF11450 

DC520 EQU * 8CF11460 

BSI L3 UA010-BASE EXPLICIT TEST SUBROUTINE. 8CF11470 

*************************************************** 8CF11480 

* * 8CF11490 

* ALTERNATE AND 1 * 8CF11500 

* * 8CF11510 
*************************************************** 8CF11520 

* * 8CF11530 

* THE ALTERNATE AND 1 PATTERN TEST STORES A PAT-* 8CF11540 

* TERN OF 010101... IN EACH WORD, BEGINNING WITH * 8CF11550 

* A ZERO IN BIT 0. ERRORS COULD INDICATE ADJACENT* 8CF11560 

* PLANE NOISE PROBLEMS. * 8CF11570 



************* 
* 

* LOOP ON PATTERN TEST. 
* 
DC300 EQU * 

BSI L3 NE300-BASE 
DC DC020-BASE 

* 

* EXPLICIT BSM TEST. 
* 

DC400 EOU * 

BSI L3 NE400-BASE 

DC DC020-BASE 

DC DC520-BASE 

* TEST FOR EXPLICIT ROUTINE. 



MOVE ANYWHERE. 
RE-ENTER AT DC020. 



RE-ENTRY ADDRESS 
PARAMETERS. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

CORE FUNCTION TEST 

* 

* 
# 



0210 




0210 6205 




0211 4343 




0212 




0212 C01C 




0213 4700 


0876 


0215 C011 




0216 4700 


02B3 


0218 4359 




0219 800E 




021A D001 




021B C700 


0000 


021D D001 




021E 4F00 


0000 


0220 




0220 4700 


0790 


0222 OIBO 




0223 01D5 




0224 




0224 4700 


07A7 


0226 OIBO 





0227 





5555 


0228 





01C7 


0229 





01BE 


022A 





01CE 


022B 





01D1 


022C 





01C2 


022D 





01D5 


022E 





OIBO 



022F 0F24 



0230 

0230 4700 07AB 

0232 OIBO 



0233 

0233 4700 07AF 

0235 OIBO 



4/1/69 * 

* 

a******************** ************* ***************** 

* * 
DF010 EOU * ENTER PATTERN TEST. 

LDX 2 FIVE XR2 INDICATES ROUTINE ID. 

BSI 3 AB010-BASE GO TO WAIT TEST 

DF020 EQU * 

LD DFC10 INCREMENT PASS 

BSI L3 PS010-BASE COUNTER. 
* 

* INITIALIZE BIT PATTERN. 

LD DFC02 INITIALIZE BIT PATTERN. 

BSI L3 EX010-BASE RUN EXERCISE ROUTINE. 
* 

* PATTERN TEST COMPLETE. 
* 

BSI 3 AC010-BASE SET STATUS FLAG WORD 
* 

* UPON RETURN, THERE IS A VALUE OF - 5 IN THE ACC 
* 

COMPUTE TABLE ADDRESS AND 
STORE IN NEXT INSTRUCTION. 
GET TABLE ENTRY AND BUILD 
BRANCH TO ROUTINE 
ENTRY. 



DFC04 
DF120+1 

L3 *-* 

DF130+1 

L3 *-* 



A 

STO 
DF120 LD 

STO 
DF130 B 
* 

* FULL, NORMAL TEST. 
* 

DF140 EQU * 

BSI L3 NE010-BASE RELOCATE CORE TEST. 

DC DF020-BA^E RE-ENTRY ADDRESS 

DC DF520-BASE PARAMETERS. 

DF150 EQU * 

BSI L3 NE200-BASE OSCILLATE. 

DC DF020-BASE RE-ENTER AT DF020. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 
DFC02 DC /5555 0101 0101 0101 0101 01 
DFC04 DC DFC06-BASE FLAG TABLE BASE ADDRESS. 
DFC06 DC DF140-BASE FULL, NORMAL TEST. 

DC DF300-BASE LOOP ON ROUTINE. 

DC DF400-BASE EXPLICIT BSM TEST. 

DC DF150-BASE LOOP AND EXPLICIT. 

DC DF520-BASE EXTERNAL BSM TEST. 

DC DF020-BASE LOOP AND EXTERNAL. 

* RELATIVE DISPLACEMENT OF 
DFC10 DC PXK60-BASE LOOP TALLEY TABLE ADDRESS 

* * 
*************************************************** 
* 

* LOOP ON PATTERN TEST. 
* 

DF300 EQU * 

BSI L3 NE300-BASE MOVE ANYWHERE. 

DC DF020-BASE RE-ENTER AT DF020. 
* 

* EXPLICIT BSM TEST. 
* 

DF400 EQU * 

BSI L3 NE400-BASE 

DC DF020-BASE RE-ENTRY ADDRESS 
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8CF11820 

8CF11830 

8CFU840 

8CF11850 

8CF11860 

8CF11870 

8CF11880 

8CF11890 

8CF11900 

8CF11910 

8CF11920 

8CF11930 

8CF11940 

8CF11950 

8CF11960 

8CF11970 

8CF11980 

8CF11990 

8CF12000 

8CF12010 

8CF12020 

8CF12030 

8CF12040 

8CF12050 

8CF12060 

8CF12070 
8CF12080 
BCF12090 
8CF12100 
8CF12110 
8CF12120 
8CF12130 
8CF12140 
8CF12150 
8CF12160 
8CF12170 
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8CF12230 
8CF12240 
8CF12250 



22 794 84 
9A 
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PROG ID 
PAGE 



08CF-1 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 

0236 01D5 

0237 



0237 4700 0BE4 



0239 









0239 





6206 




023A 





4343 




023B 









023B 





C015 




023C 





4700 


0876 


023E 





C011 




023F 





4700 


02E8 


0241 





4359 





0242 800F 

0243 D001 

0244 C700 0000 

0246 D001 

0247 4F00 0000 



0249 
0249 
024B 
024C 
024D 
024D 
024F 



4700 0790 

0109 

01FE 

4700 07A7 
01 D9 



0250 





AAAA 


0251 





0F24 


0252 





01F1 


0253 





01E7 


0254 





01F7 


0255 





01FA 


0256 





01EB 


0257 





01FE 


0258 





0109 



DC DF520-BASE PARAMETERS. 

DF520 EQU * 

* 

* TEST FOR EXPLICIT ROUTINE. 

BSI L3 UA010-BASE EXPLICIT TEST SUBROUTINE. 
*************************************************** 

* * 

* ALTERNATE 1 AND PATTERN TEST * 

* * 
*************************************************** 

* * 

* THE ALTERNATE 1 AND PATTERN TEST STORES A * 

* PATTERN OF 101010... IN EACH WORD, BEGINNING * 

* WITH A 1 IN BIT 0. ERRORS COULD INDICATE * 

* ADJACENT PLANE NOISE PROBLEMS. * 

* * 

* 4/10/69 * 

* * 

*************************************************** 

* • * 
DK010 EQU * 

LDX 2 SIX XR2 INDICATES ROUTINE ID. 

BSI 3 AB010-BASE GO TO WAIT TEST 

DK020 ECU * 

LD DKC18 INCREMENT PASS 

BSI L3 PS010-BASE COUNTER. 

LD DKC08 LOAD PATTERN AND EXECUTE 

BSI L3 EY010-BASE PATTERN EXERCISE. 
* 

* PATTERN TEST EXERCISE COMPLETE. 
* 

BSI 3 AC010-BASE SET STATUS FLAG WORD 
* 

5 IN THE ACC. 



COMPUTE TABLE ADDRESS AND 
STORE IN LOAD OPERAND. 
GET TABLE ENTRY AND 
BUILO BRANCH TO 
ROUTINE ENTRY. 



* UPON RETURN THERE IS A VALUE OF 
* 

A DKC20 

STO DK120+1 
OKI 20 LD L3 *-* 

STO DK130+1 
DK130 B L3 *-* 
* 

* FULL* NORMAL TEST. 
# 
DK140 EQU * 

BSI L3 NE010-BASE RELOCATE CORE TEST. 

DC DK020-BASE RE-ENTRY ADDRESS 

DC DK520-BASE PARAMETERS. 
DK150 EOU * 

BSI L3 NE200-BASE OSCILLATE. 

DC DK020-BASE RE-ENTER AT DK020. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* ■ * 
*************************************************** 

* * 
DKC08 DC /AAAA 1010 1010 1010 1010 10 
DKC18 DC PXK60-BASE LOOP TALLEY TABLE ADDRESS 
DKC20 DC DKC22-BASE FLAG TABLE BASE ADDRESS. 
DKC22 DC DK140-BASE FULL, NORMAL TEST. 

DC DK300-BASE LOOP ON ROUTINE. 

DC DK400-BASE EXPLICIT BSM TEST. 

DC DK150-BASE LOOP AND EXPLICIT. 

DC DK520-BASE EXTERNAL BSM TEST. 

DC DK020-BASE LOOP AND EXTERNAL. 

* * 
*************************************************** 
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8CF12260 

8CF12270 

8CF12280 

8CF12290 

8CF12300 

8CF12310 

8CF12320 

8CF12330 

8CF12340 

8CF12350 

8CF12360 

8CF12370 

8CF12380 

8CF12390 

8CF12400 

8CF12410 

8CF12420 

8CF12430 

8CF 12440 

8CF12450 

8CF 12460 

8CF12470 

8CF12480 

8CF12490 

8CF12500 

8CF12510 

8CF12520 

8CF12530 

8CF12540 

8CF12550 

8CF12560 

8CF12570 

8CF12580 

8CF12590 

8CF12600 

8CF12610 

8CF12620 

8CF12630 

8CF12640 

8CF12650 

8CF12660 

8CF12670 

8CF12680 

8CF12690 

8CF12700 

8CF12710 

8CF12720 

8CF12730 

8CF12740 

8CF12750 

8CF12760 

8CF12770 

8CF12780 

8CF12790 

8CF12800 

8CF12810 

8CF12820 

8CF12830 

8CP12840 

8CF12850 

8CF12 860 

8CF12870 

8CF12880 

8CF12890 

8CF12900 

8CF12910 

8CF12920 

8CF 12930 
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0259 

0259 4700 07AB 

025B 01D9 



025C 

025C 4700 07AF 
025E 01D9 
025F 01FE 



0260 

0260 4700 0BE4 



0262 

0262 6207 

0263 4343 

0264 

0264 

0265 
0267 
0269 



C047 

4700 0876 
C700 039E 
D400 7400 



026B 
026C 
026C 
026D 
026E 
026F 
0270 
0271 
0272 
0273 
0274 
0274 
0275 
0276 
0277 
0279 
0279 
027A 
027B 
027C 
027D 
027E 



4049 



C034 

18D0 

0B26 

1807 

4804 

1081 

18D0 
D02E 


C02C 

1801 

D02C 

4C00 0000 



C029 
9029 
4808 
7003 
D025 
4C00 0000 



L3 NE400-BASE 
DK020-BASE 
DK520-BASE 



MOVE ANYWHERE. 
RE-ENTER AT DK020. 



RE-ENTERY ADDRESS 
PARAMETERS. 



* LOOP ON PATTERN TEST. 
* 
DK300 EOU * 

BSI L3 NE300-BASE 
DC DK020-BASE 
* 

* EXPLICIT BSM TEST. 
* 
DK400 EQU 

BSI 
DC 
DC 
* 

* TEST FOR EXPLICIT ROUTINE. 
* 

DK520 |QU ^^ u A010 _ BASE EXPLICIT TEST SUBROUTINE. 

*************************************************** 

* * 

* ADD TO MEMORY PATTERN TEST * 

* * 
*************************************************** 

# 

* 
* 
* 

* 
* 
* 
# 



* THE ADD TO MEMORY PATTERN TEST CONSISTS OF 

* STORING THE INSTRUCTION MDX LO /7400,0 IN 

* EACH POSITION OF THE MEMORY AND THEN EXECUTING 

* THE INSTRUCTION STREAM STARTING IN DIFFERENT 

* ADDRESSES. IN EFFECT THIS IS A DIODE TEST. 

* 4/9/69 

* 
*************************************************** 



DP010 EQU 
LDX 
BSI 

DP020 EQU 
LD 
BSI 
LD 
STO 



* 

2 SEVEN 

3 AB010-BASE 
* 

0PC22 
L3 PS010-BASE 
L3 MAD01-BASE 
L /7400 



XR2 INDICATES ROUTINE ID. 
GO TO WAIT TEST 

INCREMENT PASS 

COUNTER. 

INITIALIZE /7400 FOR TEST 
MUST BE DONE BEFORE 
PATTERN INITIALIZATION. 
INITIALIZE PATTERN. 



BSI DP200 

0P025 EQU * 

LD DPC08 

RTE EXCHA 

XIO 3 AAC50-BASE 

SRA SEVEN 

SKP E 

SLT ONE 

RTE 16 

STO DPC10 

DP030 EQU * 

LD DPC08 

SRA ONE 

STO DPC12 

DP036 B L *-* 

DP040 EQU * 

LD DPC12 

S DPC14 

SKP + 

B 0P050 

STO DPC12 

DP046 B L *-* 

* INSTRUCTION STREAM EXECUTED 20 TIMES. 
* 



INITIALIZE LOOP COUNTER. 
SAVE LOOP COUNT. 

CK FOR EXTERNAL TEST 
OES. SWITCH 8. 
SKIP IF INTERNAL. 
DOUBLE LOOP COUNT. 
RESTORE COUNT. 
SET COUNTER. 

INITIALIZE PASS 

COUNTER TO LOOP 20 

TIMES. 

ENTER INSTRUCTION STREAM. 

DECREMENT PASS COUNTER 
AND TEST FOR MORE PASSES. 
SKIP TO MAKE ANOTHER PASS. 
8RANCH PASSES COMPLETE. 
UPDATE COUNTER. 
LOOP ON INSTRUCTION STREAM 
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8CF12940 

8CF12950 

8CF12960 

8CF12970 

8CF12980 

8CF12990 

8CF13000 

8CF13010 

8CF13020 

8CF13030 

8CF13040 

8CF13050 

8CF13060 

8CF13070 

8CF13080 

8CF13090 

8CF13100 

8CF13110 

8CF13120 

8CF13130 

8CF13140 

8CF13150 

8CF13160 

8CF13170 

8CF13180 

8CF13190 

8CF13200 

8CF13210 

8CF13220 

8CF13230 

8CF 13240 

8CF13250 

8CF13260 

8CF13270 

8CF132 80 

8CF13290 

8CF13300 

8CF13310 

8CF13320 

8CF13330 

8CF13340 

8CF13350 

8CF13360 

8CF13370 

8CF13380 

8CF 13390 

8CF13400 

8CF13410 

8CF13420 

8CF13430 

8CF13440 

8CF13450 

8CF13460 

8CF13470 

8CF13480 

8CF13490 

8CF13500 

8CF13510 

8CF13520 

8CF13530 

8CF13540 

8CF13550 

8CF13560 

8CF13570 

8CF13580 

8CF13590 

8CF13600 

8CF13610 
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PROG ID 


08CF-1 


;DATE 
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10 


EC NO. 
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PROG ID 
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0280 







0280 





C021 


0281 





9022 


0282 





4808 


0283 





7005 


0284 





D01D 


0285 





C0F2 


0286 





801E 


0287 





DOFO 


0288 





70EB 


0289 







0289 





COEE 


028A 





4804 


028B 





7004 


028C 





C0F2 


028D 





8018 


028E 





00E9 


028F 





70DC 


0290 







0290 





6A2 3 


0291 





4359 



0292 801A 

0293 D001 

0294 C700 0000 

0296 D001 

0297 4F00 0000 



0299 
0299 
029B 
029C 
029D 
0290 
029F 



4700 0790 

0202 

0270 

4700 07A7 
0202 



02A0 
02A1 
02A2 
02A3 
02A4 
02A5 
02A6 
02A8 
02A8 
02AA 
02AB 
02AC 
02AD 
02AE 
02AF 
02B0 
02B1 



7400 

0028 

0001 

0001 

0001 

0064 

0005 

0000 

4F00 0217 

1000 

1000 

0F24 

024Q 

0237 

0267 

026A 

023B 



DP050 EQU 
LD 
S 

SKP 
B 

STO 
LO 
• A 
STO 
B 



0PC10 

DPC14 

+ 

0P060 

DPC10 

DP036+1 

0PC16 

DP036+1 

DP030 



* TEST RUN COMPLETE. 

* 



0P060 EOU 

LD 

SKP 

B 

LD 

A 

STO 

B 
* 

* TEST DONE. 
* 

DP070 EQU 

STX 2 
BSI 3 

* 

* UPON RETURN 
* 

A 

STO 
DP120 LO 

STO 
DP130 B 



DP036+1 

E 

DP070 

DP046+1 

DPC18 

DP036+1 

DP025 



DECREMENT ADDRESS LOOP 

COUNTER. 

SKIP FOR MORE LOOPS. 

BRANCH IF DONE. 

UPDATE LOOP COUNTER. 

INCREMENT ENTRY 

ADDRESS BY 100. 

LOOP. 



TEST FOR EVEN ENTRY ADDR. 
SKIP FOR ODD ADDRESS START 
BRANCH IF DONE. 
INCREMENT STARTING ADDRESS 
BY 5 AND RUN PATTERN TEST 
AGAIN. 



* 

DPC28 

AC010-BASE 



RESET MEMORY ADD RTN. SW. 
SET STATUS FLAG WORD 



THERE IS A VALUE OF - 5 IN THE ACC 



DPC24 COMPUTE TABLE ADDRESS AND 

DP120+1 AND STORE IN LOAD OPERAND. 

*-* GET TABLE ENTRY AND 

DP130+1 BUILD BRANCH TO 

L3 *-* ROUTINE ENTRY. 



L3 



* FULL, NORMAL TEST. 

* 

DP140 EQU * 

BSI 

DC 

DC 
DP150 EQU 

BSI 

DC 



L3 NE010-BASE 
DP020-BASE 
DP520-BASE 
* 

L3 NE200-BASE 
0P020-BASE 



RELOCATE CORE TEST. 
RE-ENTER AT DP020. 
RE-ENTER AT DP520. 



OSCILLATE. 
RE-ENTER AT DP020. 

************************************************* 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



DPC02 DC 
DPC08 DC 
0PC10 BSS 
DPC12 BSS 
DPC14 DC 
DPC16 DC 
DPC18 DC 

BSS 
DPC20 B 
DPC21 NOP 
NOP 
DPC22 DC 
DPC24 DC 
DPC26 DC 
DC 
DC 
DC 



/7400 

40 

1 

1 

1 

100 

5 
E 
L3 DP040-BASE 



PXK60-BASE 
DPC26-BASE 
DP140-BASE 
DP300-BASE 
DP400-BASE 
DP150-BASE 



MDX LO INSTRUCTION. 

LOOP AND PASS COUNT. 

LOOP COUNTER. 

PASS COUNTER. 

ONE, INCREMENT, DECREMENT. 

ADDRESS INCREMENT. 

FIVE. 

FORCE EVEN BOUNDARY. 

RETURN BRANCH. 
COMPENSATE FOR ODD PASS. 
TWO NOPS. 

LOOP TALLEY TABLE ADDRESS 

FLAG TABLE BASE ADDRESS. 

FULL, NORMAL TEST. 

LOOP ON ROUTINE. 

EXPLICIT BSM TEST. 

LOOP AND EXPLICIT. 
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8CF13620 

8CF13630 

8CF13640 

8CF13650 

8CF13660 

8CF13670 

8CF13680 

8CF13690 

8CF13700 

8CF13710 

8CF13720 

8CF13730 

8CF13740 

8CF13750 

8CF13760 

8CF13770 

8CF13780 

8CF13790 

8CF13800 

8CF13810 

8CF13820 

8CF13830 

8CF13840 

8CF13850 

8CF13860 

8CF13870 

8CF13880 

8CF13890 

8CF13900 

8CF13910 

8CF13920 

8CF13930 

8CF13940 

8CF13950 

8CF13960 

8CF13970 

8CF13980 

8CF13990 

8CF14000 

8CF14010 

8CF14020 

8CF14030 

8CF14040 

8CF14050 

8CF14060 

8CF14070 

8CF14080 

8CF14090 

8CF14100 

8CF14110 

8CF14120 

8CF14130 

8CF14140 

8CF14150 

8CF14160 

8CF14170 

8CF14180 

8CF14190 

8CF14200 

8CF14210 

8CF14220 

8CF14230 

8CF14240 

8CF142 50 

8CF14260 

8CF14270 

8CF14280 

8CF14290 
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02B2 0270 

. 02B3 0202 

02B4 0007 



02B5 
02B6 
02B7 
02B9 
02BB 
02BD 
02BE 
02BF 
02C0 
02C1 
02C2 
02C3 
02C4 
02C5 
02C6 
02C7 



0000 

C0E9 

4700 0BB5 

4700 0BD3 

4700 08EB 

DOBA 

DOCO 

71FF 

C8E7 
D900 
71FE 
C8E6 
D900 
6100 
69ED 
4F80 0253 



02C9 

02C9 4700 07AB 

02CB 0202 



02CC 

02CC 4700 07AF 
02CE 0202 
02CF 0270 



0200 
02D0 40E4 
02D1 70A7 



0202 

02D2 4700 0BE4 



DC 

DC 

DPC28 DC 

* 



DP520-BASE EXTERNAL BSM TEST. 8CF14300 
DP020-BASE LOOP AND EXTERNAL. 8CF14310 
7 MEMORY ADD RTN. SW. RESET. 8CF14320 

* 8CF14330 



*************************************************** 8CF 14340 



DP200 DC 
LD 



* INITIALIZE PATTERN SUBROUTINE. 
* 

*-* 
DPC02 
L3 TA010-BASE 
L3 TB010-BASE 
L3 SA200-BASE 
DP036+1 
DP046+1 
1 -1 

DPC20 
1 ZERO 
1 -2 

DPC21 
1 ZERO 



BSI 
BSI 
BSI 
STO 
STO 
MDX 
LDD 
STD 
MDX 
LDD 
STD 
LDX 
STX 
B 



1 ZERO 
1 OPC28 
13 DP200-BASE 



8CF14350 
8CF14360 
8CF14370 
8CF14380 
8CF14390 
8CF14400 
BITS 8CF14410 
8CF14420 
8CF14430 
8CF14440 
8CF14450 
8CF14460 
8CF14470 
8CF14480 
8CF14490 
8CF14500 
8CF14510 



MOVE ANYWHERE. 
RE-ENTER AT 0P020. 



ENTRY. 

LOAD INSTRUCTION INTO 
EACH POSITION. 
REMOVE STORAGE PROT. 
GET STARTING ADDRESS. 
INITIALIZE ENTRY AND 
LOOP BRANCHES. 
DECREMENT LAST ADDRESS. 
PUT RETURN BRANCH AT 
END OF INSTR. STREAM. 
PUT NOP INSTRUCTIONS 
BEFORE BRANCH TO COMPEN- 
SATE FOR ODD PASS. 
RESET XR1. 

SET MEMORY ADD RTN. SWITCH 8CF14520 
RETURN. 8CF14530 

8CF14540 
8CF14550 
8CF14560 
8CF14570 
8CF14580 
8CF1459Q 
8CF14600 
8CF14610 
8CF14620 
8CF14630 
8CF14640 
8CF14650 
8CF14660 
8CF14670 
8CF146 80 
8CF14690 
8CF14700 
8CF14710 
8CF14720 
8CF14730 
8CF14740 
8CF14750 
8CF14760 
8CF14770 
* 8CF14780 

BSI L3 UA010-BASE EXPLICIT TEST SUBROUTINE. 8CF14790 
*************************************************** 8CF 14800 
* 

* STORAGE PROTECT AND RESET STORAGE PROTECT 
* 



* LOOP ON PATTERN TEST. 
* 
DP300 EQU * 

BSI L3 NE300-BASE 
DC DP020-BASE 
* 

* EXPLICIT BSM TEST. 
* 
DP400 EQU * 

BSI 

DC 

DC 



L3 NE400-BASE 
DP020-BASE 
DP520-BASE 



RE-ENTRY ADDRESS 
PARAMETERS. 



IF A PARITY ERROR OCCURS DURING THE INSTRUCTION 
STREAM EXECUTION, CONTROL WILL RETURN HERE FROM 
THE INTERRUPT SUBROUTINE. 



* 
* 
* 
* 
* 
DP500 EQU 

BSI 

B 
* 

* TEST FOR EXPLICIT ROUTINE. 
* 
DP520 EQU 



DP200 
DP040 



RE-INITIALIZE INSTRUCTION 
STREAM AND EXECUTE PASS. 



* 8CF14810 

* 8CF14820 

* 8CF14830 



*************************************************** 8CF 14840 

* * 8CF14850 

* THIS PATTERN TEST WRITES ALL ONES IN A POSITION * 8CF14860 

* AND STORAGE PROTECTS IT. IT THEN TRIES TO WRITE* 8CF14870 
A ZERO IN EACH PROTECTED WORD AND CHECKS FOR THE* 8CF14880 



8CF14890 
8CF14900 



02D4 



STORAGE PROTECT INTERRUPT. WHEN THE PATTERN 

TEST EXERCISE IS COMPLETE, THE STORAGE PROTECT 

BIT IS CLEARED AND ZERO IS WRITTEN IN EACH WORD.* 8CF14910 

* 8CF14920 
3/16/69 * 8CF14930 

* 8CF14940 

*************************************************** 8CF 14950 
* * 8CF14960 

DZ010 EQU * 8CF14970 
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02D4 
02D5 
02D7 
02D7 
02D8 



6208 
4700 0043 

C02B 
4700 0876 



020A C025 
020B 406E 



02DC 
02DE 
02DF 
02E0 
02E2 
02E2 
02E3 
02E4 
02E5 
02E7 
02E9 
02E9 
02EA 
02EB 
02EC 
02ED 
02EE 
02EF 



4700 08E3 

D022 

1810 

D700 0492 





1810 

D100 

C100 

4F18 0287 

4700 059D 



6918 

C017 

F015 

4818 

7002 

7101 

70F2 



02F0 

02F0 4700 0059 



02F2 8011 
02F3 D001 
02F4 C700 0000 
02F6 D001 
02F7 4F00 0000 



02F9 









02F9 





4700 


0790 


02FB 





0275 




02FC 





02B0 




02FD 









02FD 





4700 


07A7 


02FF 





027 5 





0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 



FFFF 
0001 
0001 
0F24 
02A3 
0-29 7 



02A9 
02AC 
C29B 
02B0 



DZ020 



LDX 

BSI 

EOU 

LD 

BSI 

LD 

BSI 



2 

L3 



L3 



EIGHT 

AB010-BASE 

* 

0ZC08 

PS010-BASE 

0ZC02 

EY010 



XR2 
GO 



INDICATES ROUTINE ID. 
TO WAIT TEST. 



INCREMENT PASS 

COUNTER. 
LOAD PATTERN AND 
RUN EXERCISE. 



PATTERN TEST DONE 
SWITCH RESET. TRY 



, STORAGE 
TO STORE 



PROTECT 
ZEROS. 



BITS AND 



DZ030 



DZ040 



BSI 

STO 

SRA 

STO 

EQU 

SRA 

STO 

LD 

BZ 

BSI 

EOU 

STX 

LD 

EOR 

SKP 

B 

MDX 

B 



SA100 

DZC04 

16 

IXC12-BASE 

* 

16 

ZERO 
ZERO 

DZ040-BASE 
L3 JA010-BASE 
* 

DZC06 
DZC06 
DZC04 
+- 

0Z050 
ONE 
DZ030 



L3 



L3 



1 

1 

L3 



1 



1 



BASE SET ADDRESS LIMITS, UP. 
SAVE END ADDRESS. 
SAVE PATTERN FOR 
INTERRUPT SUBROUTINE. 



THE PATTERN IS ZERO. 
WRITE/READ/WRITE ZERO IN 
EACH POSITION. 

TEST FOR ZERO. 

BRANCH ON ERROR. 

TEST FOR LAST 
POSITION. 

SKIP NOT DONE. 
BRANCH TEST DONE. 
INCREMENT ADDRESS POINTER 
AND LOOP. 



* 

* PATTERN TEST COMPLETE. 

* 

DZ050 



EOU 
BSI 



L3 AC010-BASE SET STATUS FLAG WORD. 



* 



* UPON RETURN THERE IS A VALUE OF - 5 IN THE ACC. 

* 

A DZC10 COMPUTE TABLE ADDRESS AND 

STO DZ080+1 STORE IN LOAD OPERAND. 

DZ080 LD L3 *-* GET TABLE ENTRY AND BUILD 

STO DZ090+1 BRANCH TO ROUTINE 

DZ090 B L3 *-* ENTRY. 



* FULL, NORMAL TEST. 
* 

DZ140 EOU * 

BSI L3 NE010-BASE 
DC DZ020-BASE 

DC 0Z520-BASE 

DZ150 EOU ' * 

BSI L3 NE2Q0-BASE 
DC DZ020-BASE 

####$#******************* 

* 

* CONSTANTS AND WORK AREA 
* 

££$$*#*#*$**#************ 



DZC02 DC 

DZC04 BSS 

DZC06 BSS 

DZC08 DC 

DZC10 DC 

DZC12 DC 

DC 

DC 

DC 

DC 



/FFFF 

1 

1 

PXK60-BASE 

DZC12-BASE 

DZ140-BASE 

DZ300-BASE 

DZ400-BASE 

DZ150-BASE 

DZ520-BASE 



RELOCATE CORE TEST. 
RE-ENTRY ADDRESS 
PARAMETERS. 

OSCILLATE. 
RE-ENTER AT DZ020. 

#£##$*#*#**###*********»** 

* 

S * 

* 

PATTERN, ALL ONES. 
STORAGE FOR END ADDRESS. 
WORK AREA. 

LOOP TALLEY TABLE ADDRESS 

FLAG TABLE BASE ADDRESS. 

FULL, NORMAL TEST. 

LOOP ON ROUTINE. 

EXPLICIT BSM TEST. 

LOOP AND EXPLICIT. 

EXTERNAL BSM TEST. 
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8CF14980 

8CF14990 

8CF 15000 

8CF15010 

8CF15020 

8CF15030 

8CF15040 

8CF15050 

8CF15060 

8CF15070 

8CF15080 

8CF15090 

8CF15100 

8CF15U0 

8CF15120 

8CF15130 

8CF15140 

8CF15150 

8CF15160 

8CF15170 

8CF15180 

8CF15190 

8CF1520O 

8CF15210 

8CF15220 

8CF152 30 

8CF15240 

8CF15250 

8CF15260 

8CF15270 

8CF15280 

8CF15290 

8CF15300 

8CF15310 

8CF15320 

8CF15330 

8CF15340 

8CF15350 

8CF15360 

8CF15370 

8CF15380 

8CF15390 

8CF15400 

8CF15410 

8CF15420 

8CF154 30 

8CF15440 

8CF154 50 

8CF15460 

8CF15470 

8CF15480 

8CF15490 

8CF15500 

8CF15510 

8CF15520 

8CF15530 

8CF15540 

8CF15550 

8CF15560 

8CF15570 

8CF15580 

8CF15590 

8CF15600 

8CF15610 

8CF15620 

8CF15630 

8CF15640 

8CF 15650 
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030A 0275 



030B 

030B 4700 07AB 

030D 0275 



030E 

030E 4700 07AF 

0310 0275 

0311 02B0 



0312 

0312 4700 0BE4 

0314 7068 



0315 
0316 
0318 



0000 

D700 0492 
D029 



0319 C029 
031A D029 
031B C029 
031C D014 



0310 









031D 





C026 




031E 


c 


4804 




03 IF 





7003 




0320 





4700 


08E3 


032 2 





7002 




0323 









032 3 





4700 


08EB 


0325 









032 5 





D020 





DC 



DZ020-BASE LOOP AND EXTERNAL. 



as****************** ******** *********************** 
* 

* LOOP ON PATTERN TEST. 
* 

DZ300 EQU * 

BSI L3 NE300-BASE MOVE ANYWHERE. 

DC DZ020-BASE RE-ENTER AT DZ020. 
* 

* EXPLICIT BSM TEST. 
* 

DZ400 EOU * 

BSI L3 NE400-BASE 

DC DZ020-BASE RE-ENTRY ADDRESS 

DC DZ520-BASE PARAMETERS. 

* 

* TEST FOR EXPLICIT ROUTINE. 
* 

DZ520 EOU * 

BSI L3 UA010-BASE EXPLICIT TEST SUBROUTINE. 
B HZ010 BRANCH TO SUMMARY. 

**##$#*****#**##*#*********#*********************** 

* * 

* EXERCISE SUBROUTINE * 

* * 
if************************************************** 

* * 

* THIS SUBROUTINE RUNS A GENERAL EXERCISE OF * 

* WRITING AND READING A PATTERN. * 

* * 

* CALL - * 

* c * 

BSI L3 EX010-BASE * 

* 
THE ACCUMULATOR CONTAINS THE TEST PATTERN. * 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



XR1 MUST BE UNSPECIFIED AND WILL BE USED TO * 
ADDRESS CORE FOR THE EXERCISE. * 



XR2 CONTAINS THE PATTERN ID. 
XR3 IS THE PSEUDO BASE REGISTER 



3/26/69 



a************************************************** 
* * 

EX010 DC *"* ENTRY. 

STO L3 IXC12-BASE SAVE PATTERN FOR INTRPT. 
STO EXC02 SAVE PATTERN. 

INITIALIZE PASS 

COUNTER. 

INITIALIZE INCREMENT 

INDEX REGISTER INSTR. 



LD 


EXC04 


STO 


EXC06 


LD 


EXC08 


STO 


EX070 



* SET ADDRESS LIMITS. 

* 

EX020 EOU * 

LD EXC06 TEST PASS COUNTER. 

SKP E SKIP IF EVEN. 

B EX030 BRANCH IF ODD. 

BSI L3 SA100-BASE SET ADDRESS LIMITS, UP. 

B EX040 BRANCH TO CONTINUE. 

EX030 EOU * 

BSI L3 SA200-BASE SET ADDRFSS LIMITS, DOWN. 

EX040 EOU * 

STO EXC10 SAVE END ADDRESS. 
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8CF15660 
8CF15670 
8CF15680 
8CF15690 
8CF15700 
8CF15710 
8CF15720 
8CF15730 
8CF15740 
8CF15750 
8CF15760 
8CF15770 
8CF15780 
8CF15790 
8CFI5800 
8CF15810 
8CF15820 
8CF15830 
8CF15840 
8CF15850 
8CF15860 
8CF15870 
8CF15880 
8CF1^890 
8CF15900 
8CF15910 
8CF15920 
8CF15930 
8CF15940 
8CF15950 
8CF15960 
8CF15970 
8CF15980 
8CF15990 

8CF16000 

8CF16010 

8CF16020 

8CF16030 

8CF16040 

8CF16050 

8CF16060 

8CF16070 

8CF16080 

8CF16090 

8CF16100 

8CF16110 

8CF16120 

8CF16130 

8CF16140 

8CF16150 

8CF16160 

8CF16170 

8CF16180 

8CF16190 

8CF16200 

8CF16210 

8CF16220 

8CF16230 

8CF16240 

8CF16250 

8CF16260 

8CF16270 

8CF16280 

8CF16290 

8CF16300 

8CF16310 

8CF16320 

8CF16330 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


12 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
12A 



oooooooooooooooooooooooooooooooooc 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



PART NO. 2279484 
PAGE 13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



PART NO. 22 79484 
PAGE 13A 









* 










8CF16340 








* TEST PASS 


• 






8CF16350 








* 










8CF16360 


0326 







EX050 


EQU 




* 




8CF16370 


0326 





C01B 




LD 




EXC02 


WRITE AND READ PATTERN 


8CF16380 


0327 





D100 




STO 


1 


ZERO 


AND COMPARE. 


8CF16390 


0328 





CI 00 




LD 


1 


ZERO 




8CF16400 


0329 





F018 




EOR 




EXC02 




8CF16410 


032A 





48 20 




SKP 




Z 


SKIP IF CORRECT. 


8CF16420 


032B 





7013 




B 




EX200 


BRANCH IF ERROR. 


8CF16430 


032C 







EX060 


EOU 




* 




8CF 16440 


032C 





691A 




STX 


1 


EXC12 


TEST FOR 


8CF16450 


032D 





C019 




LD 




EXC12 


LAST POSITION. 


8CF16460 


032E 





F017 




EOR 




EXC10 




8CF16470 


032F 





4818 




SKP 




+- 


SKIP NOT DONE. 


8CF16480 


0330 





7002 


* 


B 




EX080 


BRANCH IF DONE. 


8CF16490 
8CF16500 








* THE 


FOLLOWING INSTRUCTION IS MODIFIED TO 


8CF16510 








* INCREMENT 


OR DECREMENT 


XR1 ON ALTERNATE TEST 


8CF16520 








* PASSES. 








8CF16530 








* 










8CF16540 


0331 





7101 


EX070 


MDX 


1 


ONE 


INCREMENT OR DECREMENT 


8CF16550 


0332 





70F3 


* 


B 




EX050 


ADDRESS POINTER AND LOOP. 


8CF16560 
8CF16570 








* A PASS IS 


DON I: 




8CF16580 








* 










8CF16590 


0333 







EX080 


EQU 




* 




8CF16600 


0333 





C010 




LD 




EXC06 


DECREMENT AND TEST 


8CF16610 


0334 





9013 




S 




EXC14 


PASS COUNTER. 


8CF16620 


0335 





4808 




SKP 




+ 




8CF16630 


0336 





7005 




B 




EX090 


BRANCH WHEN DONE. 


8CF16640 


0337 





DOOC 


* 


STO 




EXC06 


UPDATE COUNTER. 


8CF16650 
8CF16660 








* THE 


FOLLOWING INSTRUCTIONS MODIFY EX070 TO 


8CF16670 








* INCREMENT 


OR DECREMENT 


XR1 ON ALTERNATE PASSES. 


8CF16680 








* 










8CF16690 


0338 





C0F8 




LD 




EX070 




8CF16700 


0339 





FOOF 




EOR 




EXC16 




8CF16710 


03 3A 





D0F6 




STO 




EX070 




8CF16720 


033B 





70E1 




B 




EX020 


MAKE ANOTHER PASS. 


8CF16730 


033C 







EX090 


EOU 




* 




8CF16740 


03 3C 





C005 




LD 




EXC02 


RETURN WITH PATTERN IN ACC 


8CF16750 


033D 





4F80 02B3 


* 


B 


13 


EX010-BASE 


RETURN. 


8CF16760 
8CF16770 








* NON- 


-INTERRUPT ERROR DETECTED. 


8CF16780 








* 










8CF16790 


033F 







EX200 


EOU 




* 




8CF16800 


033F 





4700 059D 




BSI 


.3 


JA010-BASE 


LOG ERROR. 


8CF16810 


0341 





70EA 




B 




EX060 


RETURN. 


8CF16820 








************* 


*********** 


*************************** 


8CF16830 








* 








* 


8CF16840 








* CONSTANTS 


AND WORK AREAS * 


8CF16850 








* 








* 


8CF16860 








*************************************************** 


8CF16870 








* 








* 


8CF16880 








* 








EXC02 IS THE PATTERN. IT 


8CF16890 








* 








IS INITIALIZED BY THE 


8CF16900 


0342 




0001 


EXC02 


BSS 




1 


CALLING ROUTINE 


8CF16910 


0343 





0004 


EXC04 


DC 




4 


NUMBER OF PASSES. 


8CF16920 


0344 




0001 


EXC06 


BSS 




1 


PASS COUNTER. 


8CF16930 


0345 





7101 


EXC08 


MDX 


1 


ONE 


INSTRUCTION TO MODIFY XR1. 


8CF16940 


0346 




0001 


EXC10 


BSS 




1 


STORAGE FOR END ADDRESS. 


8CF16950 


0347 




0001 


EXC12 


BSS 




1 


WORK AREA. 


8CF16960 


0348 





0001 


EXC14 


DC 




1 


ONE. 


8CF16970 


0349 





OOFE 


EXC16 
* 


DC 




/OOFE 


MASK TO CHANGE BITS 8-14. 

* 


8CF16980 
8CF16990 








************************ 


*************************** 


8CF17000 








*************************************************** 


8CF17010 









* 












* 


8CF17020 








* 


EXERCISE SUBROUTINE 




* 


8CF17030 








* 












* 


8CF17040 








*************************************************** 


8CF17050 








* 












* 


8CF17060 








* 


THIS SUBROUTINE RUNS AN EXERCISE OF WRITING AND 


* 


8CF17070 








* 


READING 


A PATTERN THAT 


IS STORAGE PROTECTED. 


* 


8CF17080 








* 












* 


8CF17090 








* 


CALL - 








* 


8CF17100 








♦ 












* 


8CF17110 








* 




BSI 


L3 


EY010-BASE 




* 


8CF17120 








* 












* 


8CF17130 








* 




THE 


ACCUMULATOR CONTAINS THE TEST PATTERN. 


* 


8CF17140 








* 












* 


8CF17150 








* 




XR1 


MUST BE UNSPECIFIED AND WILL BE USED TO 


* 


8CF17160 








* 




ADDRESS 


CORE FOR THE EXERCISE. 


* 


8CF17170 








* 












* 


8CF17180 








* 




XR2 


CONTAINS THE PATTERN ID. 


* 


8CF17190 








# 












* 


8CF17200 








* 




XR3 


IS 


THE PSEUDO 


BASE REGISTER. 


* 


8CF17210 








* 












* 


8CF17220 








* 










3/16/69 


* 


8CF17230 








* 












* 


8CF17240 








*************************************************** 


8CF17250 








* 












* 


8CF17260 


034A 





0000 


EY010 


DC 




*-# 


ENTRY. 




8CF17270 


034B 





D0F6 






STO 




EXC02 


SAVE PATTERN FOR TEST. 




8CF17280 


034C 





C0F6 






LD 




EXC04 


INITIALIZE PASS 




8CF17290 


0340 





D0F6 






STO 




EXC06 


COUNTER. 




8CF17300 


034E 





C0F6 






LD 




EXC08 


INITIALIZE INCREMENT 




8CF17310 


034F 





D017 






STO 




EY080 


INDEX REGISTER INSTRUCTION 


8CF17320 


0350 





C0F1 






LD 




EXC02 


INITIALIZE PATTERN. 




8CF17330 


0351 





4700 0BB5 


* 




BSI 


L3 


TA010-BASE 






8CF17340 
8CF17350 








* 


SET 


ADDRESS 


LIMITS. 






8CF17360 








* 














8CF17370 


0353 







EY020 


EQU 




* 






8CF17380 


0353 





COFO 






LD 




EXC06 


TEST PASS COUNTER AND 




8CF17390 


0354 





4804 






SKP 




E 


SKIP IF EVEN. 




8CF17400 


0355 





7003 






B 




EY030 


BRANCH TO RIPPLE DOWN CORE 


8CF17410 


0356 





4700 08E3 






BSI 


L3 


SA100-BASE 


SET ADDRESS LIMlTSt UP. 




8CF17420 


0358 





7002 






B 




EY040 


BRANCH TO CONTINUE. 




8CF17430 


0359 







EY030 


EQU 




* 






8CF17440 


0359 





4700 08EB 






BSI 


L3 


SA200-BASE 


SET ADDRESS LIMITS, DOWN. 


8CF17450 


035B 







EY040 


EQU 




* 






8CF17460 


035B 





DOEA 


* 




STO 




EXC10 


SAVE END ADDRESS. 




8CF17470 
8CF17480 








* 


TEST PASS, 








8CF17490 








# 














8CF17500 


03 5C 







EY050 


EQU 




* 






8CF17510 


035C 





C100 






LD 


1 


ZERO 


READ/WRITE AND CHECK 




8CF17520 


035D 





F0E4 






EOR 




EXC02 


BIT PATTERN. 




8CF17530 


035E 





4820 






SKP 




Z 


SKIP IF OK. 




8CF17540 


035F 





7016 






B 




EY200 


BRANCH IF PATTERN ERROR. 




8CF17550 


0360 





D100 






STO 


1 


ZERO 


TEST STORAGE PROTECT BIT 




8CF17560 


0361 







EY060 


EQU 




* 


INTERRUPT ADDRESS 




8CF17570 


0361 





7014 






B 




EY200 


BRANCH NO INTERRUPT, ERROR 


8CF17580 


0362 







EY070 


EQU 




* 






8CF17590 


0362 





69E4 






STX 


1 


EXC12 


TEST FOR 




8CF17600 


0363 





C0E3 






LD 




EXC12 


LAST POSITION. 




8CF17610 


0364 





F0E1 






EOR 




EXC10 






8CF17620 


0365 





4818 






SKP 




+- 


SKIP NOT DONE. 




8CF17630 


0366 





7002 


* 




B 




EY090 


BRANCH IF DONE. 




8CF17640 
8CF17650 








* 


THE 


FOLLOWING INSTRUCTION IS MODIFIED TO 




8CF17660 








* 


INCREMENT OR DECREMENT 


XR1 ON ALTERNATE TEST 




8CF17670 








* 


PASSES. 










8CF17680 








* 














8CF17690 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


13 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
13A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



INCREMENT OR DECREMENT 
ADDRESS POINTER AND LOOP. 



DECREMENT AND TEST 
PASS COUNTER. 
SKIP NOT DONE. 
BRANCH IF DONE. 
UPDATE COUNTER. 



* THE FOLLOWING INSTRUCTIONS MODIFY EY080 TO 

* INCREMENT AND DECREMENT XR1 ON ALTERNATE PASSES. 



0367 7101 


EY080 


MDX 


1 ONE 


0368 70F3 






B 


EY050 




* A 


PASS IS 


DONE. 


0369 


EY090 


EQU 


* 


0369 CODA 






LD 


EXC06 


036A 90DD 






S 


EXC14 


036B 4808 






SKP 


+ 


036C 7005 






B 


EY100 


036D D0D6 






STO 


EXC06 



036E 





C0F8 




036F 





F0D9 




0370 





D0F6 




0371 





70E1 




0372 









0372 





4700 


0BD3 


0374 





4F80 


02E8 


0376 









0376 





4700 


0590 


0378 





C0C9 




0379 





D100 




037A 





2D41 


0000 


037C 





70E5 





LD 


EY080 


FOR 


EXC16 


STO 


EY080 


B 


EY020 



MAKE ANOTHER PASS. 



* PATTERN TEST DONE. 



EY100 EQU * 

BSI L3 TB010-BASE CLEAR BITS, RESET STOR. 

B 13 EY010-BASE PROT. SWITCH AND RETURN. 
* 

* NON-INTERRUPT ERROR DETECTED. 
* 

EY200 EOU * 

BSI L3 JA010-BASE RECORD THE ERROR. 

LD EXC02 RESTORE PATTERN IN 

STO 1 ZERO ERROR LOCATION. 

STS LI ZER0,/41 

B EY070 RETURN TO EXERCISE. 
* 

* UPPER ADDRESS LIMIT OF PATTERN TESTS. 
* 



CFT DONE. 

TEST LOOP PROGRAM. 
IF THIS IS A LOOP ON 
PROGRAM, SEND PASS 
COMPLETE MESSAGE. 
MAKE MESSAGE 0008 TO 

INDICATE LOOP ON PROGRAM 

PASS. 



037D 









ETEST 


EOU 




* 


037D 









HZ010 


EOU 




* 


037D 





OFOO 


0026 




XIO 


L3 


AAC50-BASE 


037F 





100B 






SLA 




11 


0380 





4810 






SKP 




- 


0381 





7008 






B 




HZ100 


0382 





C040 






LD 




HZK06 


0383 





0700 


08A7 




STO 


L3 


PSC12-BASE 


0385 





4700 


0691 




BSI 


L3 


MA010-BASE 


0387 





08A6 






DC 




PSC10-BASE 


0388 





4F00 


001C 


$ 


B 


L3 


AA100-BASE 










###$$#####*## 


*********** 










* SUMMARY 


LOG 


ROUTINE. 










* 
********** 


************** 


038A 









HZ100 


EOU 




* 


038A 





620F 






LDX 


2 


/F 


038B 





C038 






LD 




HZK08 


038C 





D700 


0B77 




STO 


L3 


SUC80-BASE 


038E 





C032 






LD 




HZK02 


038F 





D030 






STO 




HZK01 


0390 









HZ110 


EOU 




* 


0390 





1008 






SLA 




EIGHT 


0391 





D.03C 






STO 




HZK92 


0392 





403C 






BSI 




HZ200 


0393 





0F23 






DC 




PXK60-BASE 


0394 





7014 






B 




HZ145 


0395 





4700 


0691 




BSI 


L3 


MA010-BASE 



LOOP. 



XR2 INDICATES ROUTINE ID. 
INITIALIZE LINE BUFFER 

WORD COUNT FOR SUMMARY. 
INITIALIZE BSM ID. COUNTER 
STORAGE. 

LINE. 

TEST FOR NON-ZERO LOOP 
-1 COUNTER. 
BRANCH IF UNTESTED BSM. 
WRITE A SPACE. 
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8CF17700 

8CF17710 

8CF17720 

8CF17730 

8CF17740 

8CF17750 

8CF17760 

8CF17770 

8CF17780 

8CF17790 

8CF17800 

8CF17810 

8CF17820 

8CF17830 

8CF17840 

8CF17850 

8CF17860 

8CF17870 

8CF17880 

8CF17890 

8CF17900 

8CF17910 

8CF17920 

8CF17930 

8CF17940 

8CF17950 

8CF17960 

8CF17970 

8CF17980 

8CF17990 

8CF18000 

8CF18010 

8CF18020 

8CF18030 

8CF18040 

8CF18050 

8CF 18060 

8CF18O70 

8CF18080 

8CF18090 

8CF18100 

8CF18110 

8CF18120 

8CF18130 

8CF18140 

8CF18150 

8CF18160 
8CF18170 
8CF18180 
8CF18190 
8CF18200 
8CF18210 
8CF18220 
8CF18230 
8CF18240 
8CF182 50 
8CF18260 
8CF18270 
8CF18280 
8CF18290 
8CF18300 
8CF18310 
8CF18320 
8CF18330 
8CF18340 
8CF18350 
8CF18360 
8CF18370 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



0397 
0398 
039A 
039B 
039C 
039D 
039E 
03A0 
03A2 
03A4 
03A4 
03A6 
03A8 
03A9 
03A9 
03AB 
03AC 
03AD 
03AE 
03AF 
03 BO 
03B1 
03B2 
03B2 
03B4 
03B5 
03B7 
03B8 
03BA 
03BB 
03BC 
03 BE 



FOOO 
4700 
0363 
4033 
OEDB 
7006 
4700 
4700 
4700 



4700 
4700 

FOOO 



C700 
F014 
4818 
7004 
C011 
8011 
OOOF 
70DE 



0691 



08F4 
09CF 
0AB1 

0AF8 
0691 



FFF8 



4700 

FOOO 

4700 
0C58 
4700 
FOOO 
3050 
4700 
4F00 



0691 
0691 
0691 



08B2 
FFB3 



03C0 0001 
03C1 0001 



0009 
03C2 0009 
03C3 OAOA 



03C4 
03C5 
03C6 
03C7 
03C8 
03C9 
03CA 
03CB 
03 CC 
03CD 
03CE 



OOOB 
0009 
1214 
2424 
3129 
1800 
3626 
2900 
3212 
2400 



0000 



03CF 
03D0 
03D1 
03D2 
03D3 
03D4 



0000 
COEF 
90EF 
AOfcF 
18D0 
8780 036D 



DC 

BSI 

DC 

BSI 

DC 

B 

BSI 

BSI 

BSI 

HZ140 EQU 
BSI 
BSI 
DC 

HZ145 EOU 
LD 
EOR 
SKP 
B 

LD 
A 

STO 
B 

HZ150 EQU 



/FOOO SPACE FUNCTION. 
L3 MA010-BASE WRITE HEADING. 
HZK90-BASE HEADING MESSAGE. 
HZ200 TEST FOR NON-ZERO ERROR 
PXK50-BASE-1 COUNTER. 



HZ140 
L3 SB010-BASE 
L3 SE010-BASE 
L3 SI010-BASE 

* 
L3 SL010-BASE 
L3 MA010-BASE 

/FOOO 

* 

AAC04-BASE 

HZK01 



L3 



BSI 
DC 
BSI 
DC 
BSI 
DC 
WAT50 WAIT 
BSI 
B 



HZ150 

HZK01 

HZK02 

HZK01 

HZ110 

* 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

MSGU-BASE 
L3 MA010-BASE 

/FOOO 

/50 
L3 PT010-BASE 
L3 AA020-BASE 



BRANCH IF NO ERRORS. 
WRITE BIT FAIL. SUMMARY. 
WRITE AODR. LINE SUMMARY. 
WRITE S/I SUMMARY. 

WRITE PATT. FAIL. SUMMARY 
WRITE A SPACE. 
SPACE FUNCTION. 

TEST FOR LAST BSM 
SUMMARIZED. 
SKIP IF NOT. 
BRANCH IF DONE. 

UPDATE BSM 
ID. 

LOOP FOR ANOTHER SUMMARY. 



WRITE A SPACE. 
SPACE FUNCTION. 

WRITE END MESSAGE. 

MESSAGE. 

WRITE A SPACE. 
SPACE FUNCTION. 
END WAIT. 

ZERO SUMMARY STORAGE. 

LOOP ON PROGRAM. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



HZK01 BSS 1 BSM ID. 

HZK02 DC 1 ONE. 

* 

IF THE NUMBER OF PATTERN TEST ENTRIES CHANGES IN 

THE TABLE PXK50, THE FOLLOWING CONSTANTS MUST 
BE CHANGED. 



* 

* 

* 

* 

HZK03 EOU 9 

HZK04 DC 9 

HZK06 DC /OAOA 

* 

HZK08 DC 11 

HZK90 DC 9 

DC /1214 

DC /2424 

DC /3129 

DC /1800 

DC /3626 

DC /2900 

DC /3212 

DC /2400 

HZK92 DC /OOOO 

* * 

*************************************************** 

HZ200 DC *-* ENTRY. 

LD HZK01 IF EACH COUNTER IN THE 

S HZK02 INDICATED ARRAY IS ZERO, 

M HZK04 RETURN AT CALL+2, 

XCH OTHERWISE RETURN AT 

A 13 HZ200-BASE CALL+3. 



NUMBER OF SUMMARIES. 

NUMBER OF SUMMARIES. 

00 

RELATIVE BASE ADDRESS OF 

LINE BUFFER WORD COUNT. 

HEADING. 

SU 

MM 

AR 

Y 

FO 

R 

BS 

M 

X 
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8CF18380 
8CF18390 
8CF18400 
8CF18410 
8CF18420 
8CF18430 
8CF18440 
8CF18450 
8CF18460 
8CF18470 
8CF18480 
8CF18490 
8CF185O0 
8CF18510 
8CF18520 
8CF18530 
8CF18540 
8CF18550 
8CF18560 
8CF18570 
8CF18580 
8CF18590 
8CF18600 
8CF18610 
8CF18620 

8CF18630 

8CF18640 

8CF18650 

8CF18660 

8CF18670 

8CF186 80 

8CF18690 

8CF18700 

8CF18710 

8CF18720 

8CF18730 

8CF 18740 

8CF 18750 

8CF18760 

8CF18770 

8CF18780 

8CF18790 

8CF18800 

8CF18810 

8CF18820 

8CF18830 

8CF18840 

8CF18850 

8CF18860 

8CF18870 

8CF18880 

8CF18890 

8CF18900 

8CF18910 

8CF18920 

8CF18930 

8CF18940 

8CF18950 

8CF18960 

8CF18970 

8CF18980 

8CF18990 

8CF19000 

8CF19010 

8CF19020 

8CF 19030 

8CF19040 

8CF19050 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


14 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
14A 



oooooooooooooooooooooooooooooooooc 
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0306 





8301 




A 


3 


ONE 


03D7 





D005 




STO 




HZ210+1 


0308 





C0F6 




LD 




HZ200 


0309 





80E7 




A 




HZK02 


03DA 





D0F4 




STO 




HZ200 


03DB 





6109 




LDX 


1 


HZK03 


03DC 





C500 0000 


HZ210 


LD 


LI 


*-* 


03DE 





4820 




SKP 




Z 


03DF 





7003 




B 




HZ220 


03E0 





71FF 




MDX 


1 


-1 


03E1 





70FA 




B 




HZ210 


03E2 





7003 




B 




HZ230 


03E3 







HZ220 


EOU 




* 


03E3 





COEB 




LD 




HZ200 


03E4 





800C 




A 




HZK02 


03E5 





DOE 9 




STO 




HZ200 


03E6 







HZ230 


EOU 




* 


03E6 





4f80 036D 




B 


13 


HZ200-B: 



0400 

0400 0001 



INCREMENT RETURN ADORESS 
PAST ARRAY PARAMETER. 

USE XR1 AS A LOOP COUNTER. 

TEST EACH COUNTER IN ARRAY 

FOR ZERO. 

DECREMENT LOOP COUNTER 

UNTIL TOTAL ARRAY IS DONE. 

RETURN. 

INCREMENT RETURN ADDRESS 
IF A MEMBER OF THE 
ARRAY IS NON-ZERO. 



*************************************************** 

* * 

* CONSTANT FOR MEMORY ADD TEST * 

* * 
*************************************************** 

* * 

* THIS CONSTANT MUST BE NON ZERO AND MUST BE AT * 

* /0400. * 

* * 

* IF THE LENGTH OF THE ROUTINES ABOVE IS CHANGED, * 

* THIS CONSTANT MAY HAVE TO BE MOVED IN RELATION * 

* TO THE COOING. * 

* * 
*************************************************** 

* * 
ORG AA0OO+/4OO 

MAD01 DC 1 ONE, FOR MEMORY ADD TEST. 

* * 
*************************************************** 
*************************************************** 

* * 

* COUNTER OVERFLOW ERROR SUBROUTINE * 

* * 
*************************************************** 

* * 



0401 




HZ500 


EOU 


* 


0401 6A08 






STX 


2 HZX92 


0402 C007 






LD 


HZX92 


0403 400E 






BSI 


IC010 


0404 0005 






STO 


HZX92 


0405 4700 


0691 




BSI 


L3 MA010 


0407 03A7 






DC 


HZX90- 


0408 7081 




* 


B 


HZ100 



0409 





0008 


040A 





0000 


040B 





0A09 


040C 





0033 


040D 





1329 


04 OE 





3B00 


040F 





2636 


0410 





2 32 6 


0411 





163B 



CONVERT PATTERN ID. FOR 
ERROR MESSAGE. 
CONVERT CHARACTERS AND PUT 
IN MESSAGE AND 



BRANCH TO SUMMARIZE. 



*************************************************** 

* * 

* MESSAGE * 

* * 
*************************************************** 

* * 
HZX90 DC 8 MESSAGE. 

HZX92 DC /OOOO XX PATTERN 10. 

DC /0A09 09 ERROR ID. 

DC /0033 C 

DC /1329 TR 

DC /3B00 

DC Z2636 OF 

DC /2326 LO 

DC /163B W. 

* * 



PART NO. 2279484 
PAGE 15 



8CF19060 
8CF19070 
8CF19080 
8CF19090 
8CF19100 
8CF19110 
8CF19120 
8CF19130 
8CF19140 
8CF19150 
8CF19160 
8CF19170 
8CF19180 
8CF19190 
8CF19200 
8CF19210 
8CF19220 
8CF19230 
8CF19240 
8CF19250 
8CF19260 
8CF19270 
8CF19280 
8CF19290 
8CF19300 
8CF19310 
8CF19320 
8CF19330 

8CF19340 
8CF19350 
8CF19360 
8CF19370 
8CF19380 
8CF19390 
8CF19400 
8CF19410 
8CF19420 
8CF19430 
8CF19440 
8CF19450 
8CF19460 
8CF194 70 
8CF19480 
8CF19490 
8CF19500 
8CF19510 
8CF19520 
8CF19530 
8CF19540 
8CF19550 
8CF19560 
8CF19570 
8CF19580 
8CF19590 
8CF19600 
8CF19610 
8CF19620 
8CF19630 
8CF19640 
8CF19650 
8CF19660 
8CF19670 
8CF19680 
8CF19690 
8CF19700 
8CF19710 
8CF19720 
8CF19730 
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0412 

0413 

0414 



0000 
1890 
A809 



0415 4808 

0416 C007 










0417 
0418 
0419 
041A 
041 B 
041C 



18D0 
4808 
C004 
1008 
18C8 
4F80 03BO 



041E OOOA 



041F 
0420 
0422 
0423 
0424 
0425 
0427 
0429 
042B 
042C 
042D 
042D 
042E 
042F 



0000 

4700 0B66 

C045 

909D 

D001 

6500 0000 

4700 0600 
4700 0644 
7001 
C032 


40E4 
DOOB 
C80A 



*************************************************** 
*************************************************** 

* * 

* PATTERN ID. CONVERSION SUBROUTINE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE CONVERTS THE BINARY PATTERN * 

* IN THE ACCUMULATOR TO TWO 1443 CHARACTERS. * 

* THERE IS NO MAGNITUDE CHECK. * 

* * 

* CALL - 
* 

BSI IC010 



* 
* 
* 
* 

THE VALUE TO CONVERT IS IN THE ACCUMULATOR. * 

* 

XR1 AND XR2 ARF NOT USED. 



XR3 IS THE PSEUDO BASE REGISTER. 

TWO 1443 CHARACTERS ARE IN THE ACCUMULATOR 
AT EXIT. 

3/18/69 



*************************************************** 

* * 
IC010 DC *-* ENTRY. 

SRT 16 PREPARE FOR DIVISION. 

ICC02 DIVIDE BY TEN. 

SKP + SKIP NOT ZERO. 

LD ICC02 LOAD 1443 CHARACTER 0. 

RTE 16 EXCHANGE. 

SKP + SKIP NOT ZERO. 

LD ICC02 LOAD 1443 CHARACTER ZERO. 

SLA EIGHT PUT THE TWO CHARACTERS 

RTE EIGHT TOGETHER IN THE ACC. 

B 13 IC010-BASE RETURN. 
*************************************************** 

* * 

* CONSTANTS * 

* * 

*************************************************** 

* * 
ICC02 DC /OOOA TEN AND 1443 CHARACTER 0. 

* * 
*************************************************** 
*************************************************** 

* * 

* OP CODE CHECK * 

* * 
*************************************************** 



IG010 DC 
BSI 
LD 
S 
STO 

16020 LDX 
BSI 
BSI 
B 
LD 

IG030 EOU 
BSI 
STO 
LDD 



*-* ENTRY. 
L3 SU010-BASE ZERO LINE BUFFER. 

1 1010 COMPUTE ERROR ADDRESS 

HZK02 AND LOAD INTO 

IG020+1 MESSAGE. 
LI *-* 

L3 KB010-BASE PUT ADDR. IN LINE BUFFER. 
L3 KL010-BASE IS INTERRUPT IN PATTERN 

IG030 TESTS. NO. RETURN 0. 

I 1060+1 YES. RETURN 0. 

IC010 CONVERT CHARACTERS AND 

IGC02 PUT IN ERROR MESSAGE. 

IGC02 LOAD ERROR ID. 
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8CF19740 
8CF19750 
8CF19760 
8CF19770 
8CF19780 
8CF19790 
8CF19800 
8CF19810 
8CF19820 
8CF19830 
8CF19840 
8CF19850 
8CF19860 
8CF19870 
8CF19880 
8CF19890 
8CF19900 
8CF19910 
8CF19920 
8CF19930 
8CF19940 
8CF19950 
8CF19960 
8CF19970 
8CF19980 
8CF19990 
8CF20000 
8CF2001O 
8CF20020 
8CF20030 
8CF20040 
8CF20050 
8CF20060 
8CF20070 
8CF20080 
8CF20090 
8CF20100 
8CF20U0 
8CF20120 
8CF20130 
8CF20140 
8CF20150 
8CF20160 
8CF20170 
8CF20180 
8CF20190 
8CF20200 
8CF20210 
8CF20220 
8CF20230 
8CF20240 
8CF20250 
8CF20260 
8CF20270 
8CF20280 
8CF20290 
8CF20300 
8CF20310 
8CF20320 
8CF20330 
8CF20340 
8CF20350 
8CF20360 
8CF20370 
8CF20380 
8CF20390 
8CF20400 
8CF20410 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


15 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
15A 
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0430 





4700 


0B9D 


0432 





C700 


0472 


04 34 





1001 




04 35 





4828 




0436 





404D 




0437 





30F1 




0438 





7018 





043A 0001 
043B 0301 



043C 
043D 
04 3F 
0440 
0441 
0442 
0443 
0444 



0000 

C700 0493 

4820 

700A 

C019 

8301 

F024 

4818 



0445 7012 

0446 C015 











0447 
0448 
0449 
044 A 



8 301 
F01F 
4818 
7000 



044 B 
044B 
0440 



4700 0644 
4838 



044E C030 
044 F 40C2 
0450 DOOO 

4700 0691 
03FB 



0451 

0453 

0454 

0454 

0455 



C012 
8301 



0456 D011 

0457 7021 



0458 



0458 1 7401 0468 
045A 701E 



BSI L3 SV010-BASE LOG ERROR. 

LD L3 IIC34-BASE CHECK FOR PARITY ERROR 

SLA ONE TOO. 

SKP +Z SKIP IF NONE. 

BSI 1 1200 LOG PARITY ERROR. 
WATF1 WAIT /Fl OP CODE CHECK WAIT. 

B IH030 EXIT TO SUMMARY LOG. 
*************************************************** 

* * 

* CONSTANTS * 

* * 
*************************************************** 

* * 
IGC02 BSS E 1 ERROR CODE FOR OP 

DC /0301 CODE CHECK. 

* * 
*************************************************** 
*************************************************** 

* * 

* STORAGE PROTECT CHECK * 

* * 
*************************************************** 

* * 
IH010 DC 

LD 



*-* ENTRY. 
L3 IXC14-BASE CHECK STORAGE PROTECT 



SKP 

B 

LD 

A 

EOR 

SKP 

B 

LD 

A 

EOR 

SKP 

B 



Z 

IH020 

IHC02 
3 ONE 

II010 

+- 

IH040 

IHC04 
3 ONE 

II010 

+- 

IH040 



SWITCH, SKIP IF SET. 
BRANCH TO ERROR LOG. 
COMPARE INTERRUPT ADDRESS 
TO TABLE OF KNOWN ENTRIES. 

SKIP NOT THIS ENTRY. 
BRANCH IF KNOWN ENTRY. 



SKIP IF NOT THIS ENTRY. 
BRANCH IF KNOWN ENTRY. 



* UNKNOWN STORAGE PROTECT INTERRUPT. 

* 

IH020 EQU * 

BSI L3 KL010-BASE IS INTERRUPT IN PAT. TEST 
+-Z SKIP IF NOT, ID. = 0. 
1 1 060+1 PUT ID. IN STORAGE PROTECT 
IC010 INTERRUPT MESSAGE. 
IHC08 
L3 MA010-BASE WRITE MESSAGE. 
IHC06-BASE 
* 

IHC10 RESET RETURN ADDRESS TO 

3 ONE SUMMARY LOG AND 

II010 EXIT. 
II 040 



SKP 

LD 

BSI 

STO 

BSI 

DC 
IH030 EQU 

LD 

A 

STO 

B 
* 

* VALID STORAGE PROTECT INTERRUPT. 
* 

IH040 EQU * 

* 

* THE OPERAND OF THE MDX INSTRUCTION IS INITIALIZED 

* IN TA010. 

* 

MDX LO 11010,1 INCREMENT RETURN ADDRESS. 

B 1 1 040 

*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 
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PAGE 



8CF20420 

8CF20430 

8CF20440 

8CF20450 

8CF20460 

8CF20470 

8CF20480 

8CF20490 

8CF20500 

8CF20510 

8CF20520 

8CF20530 

8CF20540 

8CF20550 

8CF20560 

8CF20570 

8CF20580 

8CF20590 

8CF20600 

8CF20610 

8CF20620 

8CF20630 

8CF20640 

8CF20650 

8CF20660 

8CF20670 

8CF20680 

8CF20690 

8CF20700 

8CF20710 

8CF20720 

8CF20730 

8CF20740 

8CF20750 

8CF20760 

8CF20770 

8CF20780 

8CF20790 

8CF20800 

8CF20810 

8CF20820 

8CF20830 

8CF20840 

8CF20850 

8CF20860 

8CF20870 

8CF20880 

8CF20890 

8CF20900 

8CF20910 

8CF20920 

8CF20930 

8CF20940 

8CF20950 

8CF20960 

8CF20970 

8CF20980 

8CF20990 

8CF21000 

8CF21010 

8CF21020 

8CF21030 

8CF21040 

8CF21050 

8CF21060 

8CF21070 

8CF21080 

8CF21090 



2279484 
16 
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* 

IHC02 DC 

IHC04 DC 

IHC06 DC 

IHC08 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

IHC10 DC 

* 



045B 





02FF 


045C 





05A6 


045D 





0009 


045E 





0000 


045F 





0306 


0460 





0000 


0461 





1213 


0462 





2629 


0463 





3B00 


0464 





2729 


0465 





2613 


0466 





3B00 


0467 





0328 



EY060- 


BASE 


INTERRUPT ADDRESS. 


JA032- 


BASE 


INTERRUPT ADDRESS. 


9 




MESSAGE. 


/oooo 




XX 


/0306 




36 


/oooo 






/1213 




ST 


/2629 




OR 


/3B00 




. 


/2729 




PR 


/2613 




OT 


/3B00 




. 


HZ100- 


•BASE 


SUMMARY LOG ENTRY 



*************************************************** 
*************************************************** 

* * 

* INTERNAL INTERRUPT SUBROUTINE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE HANDLES ALL OF THE INTERNAL * 

* INTERRUPTS. * 

* * 
*************************************************** 



INTERNAL INTERRUPT ROUTINE 

SAVE A £ Q. 

SAVE XR1. 

SAVE XR2. 

SAVE STATUS. 

XR2 = COUNT 

COMPUTE ABSOLUTE ADDRESS 

OF BASE OF INTERRUPT 

SUBROUTINE TABLE. 

SENSE ILSW. 

SAVE ILSW. 

CHECK INTERRUPT CAUSE. 

COMPUTE ABSOLUTE ADDRESS 



0468 





oooo 




II010 


DC 




*-* 


0469 





D85C 






STD 




IIC02 


046A 





6912 






STX 


1 


II050+1 


046B 





6A13 






STX 


2 


II060+1 


046 C 





2813 






STS 




1 1 070 


046D 





6205 






LDX 


2 


FIVE 


046 E 





C05B 






LD 




IIC06 


046F 





8301 






A 


3 


ONE 


0470 





D004 






STO 




1 1020+1 


0471 





0856 






XIO 




IIC04 


0472 





D061 






STO 




IIC34 


0473 





1240 






SLCA 


2 


ZERO 


0474 





C600 


OOOO 


II020 


LD 


L2 


*-* 


0476 





D001 






STO 




II030+1 


0477 





4700 


OOOO 


II030 


BSI 


L3 


*-* 


0479 









1 1 040 


EQU 




* 


0479 





084E 






XIO 




IIC04 


04 7 A 





4820 






SKP 




Z 


047B 





7059 






B 




WATF2 


04 7C 





65 00 


OOOO 


II050 


LDX 


LI 


*-* 


047E 





6600 


OOOO 


1 1 060 


LDX 


L2 


*-* 


0480 





2000 




1 1 070 


LDS 







0481 





C844 






LDD 




IIC02 


0482 





4FC0 


0406 


# 

* B R 


BOSC 


13 


II010-B 










AGISTER 


PARITY E 


0484 





OOOO 




I I 200 


DC 




*-* 



RESTORE REGISTERS. 
CHECK FOR MORE INTERNAL 
INTERRUPTS. 
MULTIPLE ERRORS. 
RESTORE XR1 
RESTORE XR2. 
RESTORE STATUS. 
RESTORE A £ Q. 
RETURN. 



ENTRY. 
* 
* PREPARE FOR POSSIBLE SEARCH. 



0485 





1810 




0486 





0700 


0528 


0488 





903F 




048 9 





D700 


0527 


048B 





C046 




048C 





8301 




048D 





D400 


0008 


048F 





4700 


0644 


0491 





702D 




0492 





COEC 





SRA 

STO 

S 

STO 

LD 

A 

STO 

BSI 

B 

LD 



16 
L3 IXC34-BASE 

IIC04 
L3 IXC32-BASE 

1IC26 
3 ONE 
L EIGHT 
L3 KL010-BASE 

1 1 300 

1 1060+1 



INITIALIZE SEARCH ADDRESS 

SWITCH, INITIALIZE 
PARITY COUNTER. 

INITIALIZE NEW INTERNAL 
INTERRUPT CELL. 

IS INTERRUPT IN PATTERN 
TESTS. NO, BRANCH. 
YES,, LOAD PATTERN ID. AND 
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8CF21100 
8CF21110 
8CF21120 
8CF21130 
8CF21140 
8CF21150 
8CF21160 
8CF21170 
8CF21180 
8CF21190 
8CF21200 
8CF21210 
8CF21220 
8CF21230 
8CF21240 
8CF21250 

8CF21260 
8CF21270 
8CF21280 
8CF21290 
8CF21300 
8CF21310 
8CF21320 
8CF21330 
8CF21340 
8CF21350 
8CF21360 
8CF21370 
8CF21380 
8CF21390 
8CF21400 
8CF21410 
8CF21420 
8CF21430 
8CF21440 
8CF21450 
8CF21460 
8CF21470 
8CF21480 
8CF21490 
8CF21500 
8CF21510 
8CF21520 
8CF21530 
8CF21540 
8CF21550 
8CF21560 
8CF21570 
8CF21580 
8CF21590 
8CF21600 
8CF21610 
8CF21620 
8CF21630 
8CF21640 
8CF21650 
8CF21660 
8CF21670 

8CF21680 
8CF21690 
8CF21700 
8CF21710 
8CF21720 
8CF21730 
8CF21740 
8CF21750 
8CF21760 
8CF21770 



DATE 
EC NO. 



14N0V69 30JAN70 17APR70 
431319 431319A 431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


16 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
16A 
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ooooooooooooooooooooooooooooooooc 
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0493 





D700 


04F2 






STO 


L3 


IX610+1-BASE PUT IN XR2 LOAD OPERAND 


8CF21780 


0495 





4700 


0676 






BSI 


L3 


KM010- 


BASE 




8CF21790 


0497 





0830 








XIO 




IIC04 




MAKE SURE THERE WERENT ANY 


8CF21800 


0498 





4820 




* 




SKP 




Z 




MORE INTERNAL CHECKS. 


8CF21810 
8CF21820 


0499 





703B 




* 




B 




WATF2 




MULTIPLE ERRORS. 


8CF21830 
8CF21840 


049A 





4878 








BOSC 




+-Z 




RESET INTERRUPT 


8CF21850 


049B 





1000 




* 




NOP 








LEVEL. 


8CF21860 
8CF21870 










* 


TEST LOCATION ADDRESSED BY XR1 FIRST, 


8CF21880 










* 














8CF21890 


049C 





C100 




# 




LD 


1 


ZERO 




READ/WRITE LOCATION. 


8CF21900 
8CF21910 










* 


IF 


THERE 


WAS NO INTERRUPT, THE ERROR LOCATION 


8CF21920 










* 


MUST BE SEARCHED OUT. 




8CF21930 










* 














8CF21940 


049D 









1 1 240 


EQU 




* 




IAR AT INTERRUPT TIME. 


8CF21950 


049D 





6500 


0000 


II250 


LDX 


LI 


*-* 




USE XR1 TO ADDRESS CORE. 


8CF21960 


04 9F 









II255 


EOU 




* 






8CF21970 


049F 





C100 








LD 


1 


ZERO 




READ/WRITE EACH POSITION. 


8CF21980 


04 AO 









1 1 260 


EOU 




* 




IAR AT INTERRUPT TIME. 


8CF21990 


04A0 





71FF 








MDX 


1 


-1 




DECREMENT ADDRESS REGISTER 


8CF22000 


04A1 





1000 








NOP 








AND IGNORE SKIPS AT 32K. 


8CF22010 


04A2 





7100 








MDX 


1 


ZERO 




ADDRESS REGISTER ZERO. 


8CF22020 


04A3 





70FB 




* 




B 




II255 




NO, LOOP. 


8CF22030 
8CF22040 










* 


SEARCHED 


ALL POSITIONS 




8CF22050 










# 














8CF22060 


04A4 





C700 


0528 






LD 


L3 


IXC34- 


BASE 


WAS THERE AN INTERNAL 


8CF22070 


04A6 





48 20 




* 




SKP 




Z 




PARITY ERROR. 


8CF22080 
8CF22090 


04A7 





702F 




# 




B 




WATF3 




INTERNAL ERROR. 


8CF22100 
8CF22110 


04 A 8 





C700 


0252 






LD 


L3 


DPC28- 


BASE 


IN MEMORY ADD PATTERN 


8CF22120 


04 AA 





4820 








SKP 




Z 




TEST. SKIP IF SO. 


8CF22130 


04AB 





7008 








B 




II295 




BRANCH NOT IN PATTERN. 


8CF22140 


04AC 





C301 








LD 


3 


ONE 




IF EXECUTING ADD TO MEMORY 


8CF22150 


04AD 





FOBA 








EOR 




II010 




STREAM, RESET RETURN 


8CF22160 


04AE 





180C 








SRA 




12 




ADDRESS TO DP500. 


8CF22170 


04AF 





4818 








SKP 




+- 






8CF22180 


04 BO 





7003 








B 




II295 




BRANCH NOT TRUE. 


8CF22190 


04B1 





COIF 








LD 




IIC12 




RESET ADDRESS. 


8CF22200 


04B2 





8301 








A 


3 


ONE 






8CF22210 


04B3 





D0B4 








STO 




II010 






8CF22220 


04B4 









II295 


EQU 




* 






8CF22230 










* 














8CF22240 










* 


CHECK FOR WAIT ON 


ERROR. 


8CF22250 










* 














8CF22260 


04 B4 





OFOO 


0026 






XIO 


L3 


AAC50- 


BASE 


CHECK SWITCH 14. 


8CF22270 


04B6 





1801 








SRA 




ONE 






8CF22280 


04 B7 





4804 








SKP 




E 




SKIP IF OFF. 


8CF22290 


04B8 





3072 




WAT?? 


WAIT 




/72 




WAIT ON ERROR, SW. 14 SET. 


8CF22300 


04B9 





C019 








LD 




IIC32 




RESTORE INTERRUPT CELL. 


8CF22310 


04BA 





8301 








A 


3 


ONE 






8CF22320 


04 BB 





D400 


0008 






STO 


L 


EIGHT 






8CF22330 


04BD 





4F80 


0422 






B 


13 


II200- 


•BASE 


RETURN. 


8CF22340 


04 BF 









1 1 300 


EQU 




* 






8CF22350 


04BF 





D700 


04F2 






STO 


L3 


IX610+1-8ASE PUT OR 7 IN XR2 OPER. 


8CF22360 


04C1 





0806 








XIO 




IIC04 




MAKE SURE THERE WERE NO 


8CF22370 


04C2 





4820 




* 




SKP 




Z 




MORE INTERNAL CHECKS. 


8CF22380 
8CF22390 


04C3 





7011 




* 




B 




WATF2 




BRANCH TO MULTIPLE ERROR 
WAIT. 


8CF22400 
8CF22410 


04C4 





4F40 


043B 






BOSC 


L3 


1 1240- 


-BASE 


IGNORE SRI TEST. 


8CF22420 










************* 


************************************** 


8CF22430 










* 












* 


8CF22440 










* 


CON 


STANT 


S A 


ND WORC 


( AREAS * 


8CF22450 



04C6 




0002 • 


IIC02 


BSS 


-. 2 


04C8 





0001 


IIC04 


DC 


1 


04C9 





0300 




DC 


/0300 


04CA 





0469 


IIC06 


DC 


IIC08-BASE 


04CB 





05 8D 


IIC08 


DC 


IY010-BASE 


04CC 





057F 




DC 


IXXXX-BASE 


04CD 





0562 




DC 


IX800-BASE 


04CE 





03DA 




DC 


IH010-BASE 


04CF 





0422 




DC 


II200-BASE 


04D0 





03BD 




DC 


IG010-BASE 


04D1 





026E 


IIC12 


DC 


DP500-BASE 


04D2 





0477 


IIC26 

* 

IIC32 


DC 


IX010-BASE 


04D3 





0406 


DC 


1 1 010- BASE 


04D4 




0001 


IIC34 

* 


BSS 


1 



04D5 
04D5 30F2 
04D6 70FE 



0407 
04D7 30F3 
04D8 70FE 



04D9 
04DA 
04DB 
04DD 
04DE 
04DF 
04E0 
04E1 
04E2 



0000 

D018 

4700 0B66 

6205 

COOB 

8301 

D003 

0816 

1240 



*************************************************** 



AREA TO SAVE A 6 Q. 
ONE, ALSO, IOCC TO SENSE 
INTERNAL ILSW. 
RELATIVE BASE ADDRESS 

OF INTERRUPT TABLE. 

FALSE INTERRUPT. 

AUX CORE ERROR 

CAR CHECK INTERRUPT. 

STORAGE PROTECT INTERRUPT 

B REGISTER PARITY CHECK. 

OP CODE CHECK. 

RELATIVE ADDRESS OF DP500 
RELATIVE BASE ADDRESS OF 

SEARCH INTERRUPT SUBR. 
RELATIVE BASE ADDRESS 

OF INTERRUPT ROUTINE. 
STORAGE FOR ILSW. 



*************************************************** 

* 

* MULTIPLE INTERNAL INTERRUPTS. 



ERROR WAIT. 
UNRECOVERABLE ERROR. 



ERROR WAIT. 
UNRECOVERABLE ERROR. 

*************************************************** 

* . * 

* ALTERNATE INTERNAL INTERRUPT SUBROUTINE * 

* * 
*************************************************** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



WATF2 EOU 
WAIT 
B 


* 

/F2 

WATF2 


* INTERNAL 
* 

WATF3 EQU 
WAIT 

B 


PARITY ERROR 


* 
/F3 

WATF3 



* 
* 
* 
* 
* 
* 
* 
* 
.* 
* 

THERE SHOULD NEVER BE ANY MEMORY PROTECT ERRORS.* 

* 
CAR CHECKS AND FALSE INTERRUPTS ARE HANDLED BY * 
INTERFACING WITH THE NORMAL SUBROUTINES, 1X800 * 
AND IY010. * 



THIS SUBROUTINE IS USED BY THE INTERNAL INTER- 
RUPT SUBROUTINE TO FIND THE LOCATION OR 
LOCATIONS WITH PARITY ERRORS. 

OP CODE CHECK ERRORS ARE HANDLED BY INTERFACING 
WITH THE NORMAL SUBROUTINE IG010. 

PARITY ERRORS ARE HANDLED AND LOGGED INTERNALLY 



3/19/69 



*************************************************** 



1X010 DC 
STO 
BSI 
LDX 
LD 
A 

STO 
XIO 
SLCA 



*-* 
IXC10 
L3 SU010-BASE 

2 FIVE 
IXC02 

3 ONE 
1X020+1 
IXC22 

2 ZERO 



ENTRY. 

SAVE POSSIBLE FAILURE PTRN 

ZERO LINE BUFFER. 
XR2 = COUNT 

COMPUTE ABSOLUTE ADDRESS 
FOR INTERRUPT LOOKUP 
OPERAND. 

DETERMINE CAUSE OF 
INTERRUPT. 
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8CF22460 
8CF22470 
8CF22480 
8CF22490 
8CF22500 
8CF22510 
8CF22520 
8CF22530 
8CF22540 
8CF22550 
8CF22560 
8CF22570 
8CF22580 
8CF22590 
8CF22600 
8CF22610 
8CF22620 
8CF22630 
8CF22640 
8CF22650 
8CF22660 
8CF22670 
8CF22680 
8CF22690 
8CF22700 
8CF22710 
8CF22720 
8CF22730 
8CF22740 
8CF22750 
8CF22760 
8CF22770 
8CF22780 
8CF22790 
8CF22800 
8CF22810 
8CF22820 
8CF22830 
8CF22840 
8CF22850 
8CF22860 
8CF22870 
8CF22880 
8CF22890 
8CF22900 
8CF22910 
8CF22920 
8CF22930 
8CF22940 
8CF22950 
8CF22960 
8CF22970 
8CF22980 
8CF22990 
8CF23000 
8CF23010 
8CF23020 
8CF23030 
8CF23040 
8CF23050 
8CF23060 
8CF23070 
8CF23080 
8CF23090 
8CF23100 
8CF23110 
8CF23120 
8CF23130 
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PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


17 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
17A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



04E3 C600 0000 
04E5 D001 
04E6 4700 0000 
04E8 4FC0 0477 



1X020 LD 

STO 
1X030 BS1 



L2 *-* 

1X030+1 
L3 *-* 



BOSC 13 IX010-BASE 



LOAD SUBROUTINE BASE ADDR. 

INITIALIZE BRANCH OPERAND. 

ENTER INTERRUPT SUBROUTINE 

RESET INTERRUPT AND EXIT. 

* * 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* 

RELATIVE BASE ADDRESS OF 

INTERRUPT TABLE. 

FALSE INTERRUPT. 

AUX CORE ERROR 

CAR CHECK INTERRUPT. 

STORAGE PROTECT INTERRUPT 

B REGISTER PARITY CHECK. 

OP CODE CHECK. 

INTERRUPT ADDRESS. 

INTERRUPT ADDRESS. 
TEMPORARY STORAGE. 

TEST PATTERN. 

STORAGE PROTECT SWITCH. 

CHANGE SP BIT TO ONE. 

CHANGE P BIT. 

FORCE EVEN BOUNDARY. 

ONE AND IOCC TO SENSE 

ILSW. 

* 
*************************** 

ENTRY. 
# 

* THE LOCATION UNDER TEST FAILED. THE BAD PATTERN 

* IS AT IIC02. THE KNOW PATTERN IS AT IXC12. 

* THE GOOD PATTERN HAS ODD PARITY, THE BAD PATTERN 

* HAS EVEN PARITY. 



FILL KNOWN PATTERN 
FILL FAILURE PATTERN. 



04EA 





0489 


* 
* 
IXC02 


DC 


IXC04-BASE 


04EB 





05 8D 


IXC04 


DC 


IY010-BASE 


04EC 





057F 




DC 


IXXXX-BASE 


04ED 





0562 




DC 


IX800-BASE 


04EE 





03E9 




DC 


IH020-BASE 


04EF 





04B6 




DC 


1X200- BASE 


04F0 





03BD 




DC 


1G010-BASE 


04F1 





043B 


IXC06 


DC 


II240-BASE 


04F2 





043E 


IXC08 


DC 


II260-BASE 


04F3 




0001 


IXC10 


BSS 


1 


04F4 




0001 


IXC12 


BSS 


1 


04F5 





FFFF 


IXC14 


DC 


/FFFF 


04F6 





OBOO 


IXC18 


DC 


/OBOO 


04F7 





000 B 


IXC20 


DC 


/OOOB 


04F8 




0000 




BSS 


E 


04F8 





0001 


IXC22 


DC 


1 


04 F 9 





0300 


* 
***** 


DC 


/0300 








******************* 


04FA 





0000 


1X100 


DC 


*-* 



04FB 





4700 


05CD 




BSI 


L3 


JB010-BASE 


04FD 





C0C8 






LD 




IIC02 


04FE 





4700 


05E3 


if. 


BSI 


L3 


KA010-BASE 










* CHECK IF 


STORAGE PROTE 


0500 





08F7 




# 


XIO 




IXC22 


0501 





4820 






SKP 




Z 


0502 





70D2 






B 




WATF2 


0503 





D100 






STO 


1 


ZERO 


0504 





08F3 






XIO 




IXC22 


0505 





1002 






SLA 




TWO 


0506 





4810 






SKP 




- 


0507 





7008 






B 




1X130 


0508 





COEC 






LD 




IXC14 


0509 





4820 






SKP 




Z 


050A 





7002 






B 




1X120 


050B 





2D40 


0000 




STS 


LI 


ZER0,/40 


050D 









1X120 


EOU 




* 


050D 





C200 






LD 


2 


ZERO 


050E 





F0E7 






EOR 




IXC18 


05 OF 





7002 






B 




1X140 


0510 









1X130 


EOU 




* 


0510 





C200 






LD 


2 


ZERO 


0511 





F0E5 






EOR 




IXC20 


0512 









1X140 


EOU 




* 


0512 





D200 






STO 


2 


ZERO 


0513 





4700 


07BB 




BSI 


L3 


PQ010-BASE 


0515 





403C 






BSI 




1X600 


0516 





4F80 


0498 




B 


13 


IX100-BASE 



CHECK ILSW. 

SKIP IF OK. 

BRANCH ON MULTIPLE ERRORS. 

TRY TO STORE ZERO IN 

ERROR POSITION AND CHECK 

FOR STOR. PROT. INTERRUPT. 

SKIP IF INTERRUPT SET. 

BRANCH NO INTERRUPT. 

WAS THERE SUPPOSED TO BE 

A STOR. PROT. INTERRUPT. 

BRANCH NOT SET. 

TRY TO RESET STOR. PROT. 

SET STORAGE PROTECT BIT 
ON, EVEN PARITY. 



CHANGE PARITY BIT TO MAKE 
PARITY EVEN. 



TALLEY FAILURES BY BIT. 
UPDATE COUNTERS AND LOG. 
RETURN. 
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8CF23140 
8CF23150 
8CF23160 
8CF23170 
8CF23180 
8CF23190 
8CF23200 
8CF23210 
8CF23220 
8CF23230 
8CF23240 
8CF23250 
8CF23260 
8CF23270 
8CF23280 
8CF23290 
8CF23300 
8CF23310 
8CF23320 
8CF23330 
8CF23340 
8CF23350 
8CF23360 
8CF23370 
8CF23380 
8CF23390 
8CF23400 
8CF23410 
8CF23420 
8CF23430 
8CF23440 
8CF23450 
8CF23460 
8CF23470 
8CF23480 
8CF23490 
8CF23500 
8CF23510 
8CF23520 
8CF23530 

8CF23540 
8CF23550 
8CF23560 
8CF23570 
8CF23580 
8CF23590 
8CF23600 
8CF23610 
8CF23620 
8CF23630 
8CF23640 
8CF23650 
8CF23660 
8CF23670 
8CF23680 
8CF23690 
8CF23700 
8CF23710 
8CF23720 
8CF23730 
8CF23740 
8CF23750 
8CF23760 
8CF23770 
8CF23780 
8CF23790 
8CF23800 
8CF23810 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0518 
0519 
051A 
051B 
051C 
051D 
051E 
051F 



0000 
C0D7 
8301 
FOBD 
4820 
7003 
40DB 
4F00 0452 



0521 

0521 CODO 

0522 8301 

0523 F0B5 

0524 4820 



0525 70AF 



0526 





C02D 


0527 





4820 


0528 





7069 


0529 







0529 





C85C 


052A 





DFOO 0B8C 


052C 





C700 003D 


052E 





D001 


052F 





6600 0000 


0531 





C0C1 


0532 





4700 05E3 


05 34 





C09F 


0535 





1002 


05 36 





4828 


0537 





7008 


0538 





08 BF 


05 39 





4820 


05 3A 





709A 


053B 





D100 


053C 





08BB 


05 3D 





1002 


053E 





4810 


05 3F 





7003 


0540 







0540 





C200 


0541 





F0B4 


0542 





7002 


0543 







0543 





C200 


0544 





F0B2 


0545 







0545 





D200 


0546 





C042 


0547 





80B0 



* B REGISTER PARITY ERROR. 

* 



1X200 



DC 

LD 

A 

EOR 

SKP 

B 

BSI 

B 



L3 



*-* 

IXC06 

ONE 

1X010 

Z 

1X300 

I XI 00 

II295-BASE 



ENTRY. 

BE SURE INTERRUPT ADDRESS 

IS CORRECT. 



BRANCH IF IN 
LOG ERROR. 
BRANCH OUT. 



SEARCH RTN. 



* PARITY ERROR SEARCH INTERRUPT. 
* 

1X300 EQU * 

LD IXC08 

A 3 ONE 

EOR 1X010 

SKP Z 
* 

* THE PARITY ERROR IS 

* SUBROUTINE, ABEND. 
* 

B WATF2 
* 

* THE BAD 

* ADDRESS 

* THE BAD 
* 

LD 

SKP 

B 

EQU 

LDD 

STO 

LD 

STO 

LDX 

LD 

BSI 

LD 

SLA 

SKP 

B 



BE SURE INTERRUPT ADDRESS 
IS CORRECT. 

SKIP IF SO. 

INTERNAL TO THE SEARCH 



1X305 



1X310 



PATTERN IS 
IS IN XR1. 
PATTERN HAS 

1X610+1 

Z 

1X700 

* 

IXC26 



BRANCH TO ERROR WAIT. 

SAVED IN IXC10. THE FAILURE 
THERE IS NO TEST PATTERN. 
EVEN PARITY. 

IF ERROR OCCURRED IN 
MEMORY ADD INSTRUCTION 
STREAM, BRANCH TO 1X700. 



L3 
L3 

L2 
L3 



PUT FOUR ASTERISKS IN 
SUC88+6-BASE TEST PATTERN BUFFER. 
AAC66-BASE PUT ADDRESS OF FAILURE 

PATTERN BUFFER AREA IN 

XR2, LOAD FAILURE PATTERN 

AND FILL. 



1X310+1 

*-* 

ixcio 

KA010-BASE 

IIC34 

TWO 

+Z 

1X320 



CHECK FOR SP. PICK. 



1X320 



1X330 



1X340 



XIO 
SKP 

B 

STO 

XIO 

SLA 

SKP 

B 

EOU 

LD 

EOR 

B 

EOU 

LD 

EOR 

EQU 

STO 

LD 

A 



IXC22 
Z 

WATF2 

ZERO 

1XC22 

TWO 

1X330 

* 

ZERO 

IXC18 

1X340 

ZERO 

IXC20 

# 

ZERO 

IXC32 

IXC22 



CHECK FOR STORAGE PROTECT 

INTERRUPT. 

SKIP NO SP. INTERRUPT. 

BRANCH TO CHANGE SP. BIT. 



CHECK FOR INTERRUPTS. 
SKIP IF NONE. 

MULTIPLE ERRORS. 

TRY TO STORE IN ERROR 
POSITION AND CHECK FOR 
SP. ERROR. 

SKIP IF SP. INTERRUPT. 
BRANCH IF NOT. 

SET SP. BIT WITHOUT 
SETTING PARITY. 



CHANGE PARITY BIT TO SHOW 
EVEN PARITY. 

UPDATE SP, PARITY STORAGE 
INCREMENT PARITY ERROR 
COUNTER. 
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8CF23840 

8CF23850 

8CF23860 

8CF23870 

8CF23880 

8CF23890 

8CF23900 

8CF23910 

8CF23920 

8CF23930 

8CF23940 

8CF23950 

8CF23960 

8CF23970 

8CF23980 

8CF23990 

8CF24000 

8CF24010 

8CF24020 

8CF24030 
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8CF24140 

8CF24150 

8CF24160 

8CF24170 

8CF24180 

8CF24190 

8CF24200 
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8CF24220 
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8CF24250 
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8CF24310 

8CF24320 
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8CF24340 
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8CF24360 

8CF24370 
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8CF24460 
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1800 SYSTEM 


PART NO. 2279484 






















PAGE 19 


TION 


TEST 


















0548 





D040 




* 


STO 




IXC32 






8CF24500 
8CF24510 










* IF 


ERROR 


ADDRESS IN CORF TEST, SET SWITCH. 


8CF24520 










* 












8CF24530 


0549 





693E 






STX 


1 


IXC28 




CHECK ERROR ADDRESS FOR 


8CF24540 


054A 





C03D 






LD 




IXC28 




INTERNAL RANGE. 


8CF24550 


054B 





F301 






EOR 


3 


ONE 






8CF24560 


054C 





180C 






SRA 




12 






8CF24570 


054D 





4818 






SKP 




+- 




SKIP NOT INTERNAL. 


8CF24580 


054E 





683B 






STX 





IXC34 




SET INTERNAL PARITY SWITCH 


8CF24590 


054F 





4002 






BSI 




1X600 




UPDATE COUNTERS AND LOG. 


8CF24600 


0550 





4F80 


04B6 




B 


13 


^DO- 


BASE 


RETURN. 


8CF24610 


0552 





0000 




1X600 


DC 




'S:-* 




ENTRY. 


8CF24620 










* XR2 


LOAD 


OPERAND INITIALIZED IN II200 OR II300. 


8CF24630 


0553 





6600 


0000 


1X610 


LDX 


L2 


*-* 






8CF24640 


0555 





4700 


0823 




BSI 


L3 


PR010- 


BASE 


TALLEY FAILURES BY LINE. 


8CF24650 


0557 





C033 






LD 




IXC38 




TALLEY FAILURES BY 


8CF24660 


0558 





4700 


0876 




BSI 


L3 


PS010- 


BASE 


PATTERN TEST. 


8CF246 70 


055A 





C0F9 






LD 




1X610+1 


TEST VALUE IN XR2. 


8CF24680 


055B 





4818 






SKP 




+— 




SKIP IF INTERRUPT IN TESTS 


8CF24690 


055C 





700D 






B 




1X650 




BRANCH NOT IN PATTERN TEST 


8CF24700 


0550 





18D0 






XCH 








SAVE PATTERN ID. 


8CF24710 


055E 





C095 






LD 




IXC12 




PUT CORRECT TEST PATTERN 


8CF24720 


055F 





0700 


0464 




STO 


L3 


IIC02- 


BASE 


IN ACCUM. RESTORE WORD. 


8CF24730 


0561 





18D0 






XCH 








SAVE PATTERN, RESTORE ID. 


8CF24740 


0562 





F029 






EOR 




IXC40 




INTERRUPT IN WORST CASE 


8CF24750 


0563 





48 20 






SKP 




z 




PATTERN TEST, SKIP IF SO. 


8CF24760 


0564 





7005 






B 




1X650 




BRANCH NOT TEST FOUR. 


8CF24770 


0565 





2D28 


0000 




STS 


LI 


ZERO, 40 


RESET ANY STOR. PROT. BIT. 


8CF24780 


0567 





1800 






XCH 








RESTORE PATTERN TO ERROR 


8CF24790 


0568 





D100 






STO 


1 


ZERO 




WORD. 


8CF24800 


0569 





688B 






STX 





IXC14 




RESET STOR. PROT. SWITCH. 


8CF24810 


056A 









1X650 


EOU 




# 






8CF24820 


056A 





OFOO 


0026 




XIO 


L3 


AAC50- 


BASE 


CHECK FOR BYPASSING 


8CF24830 


056C 





1802 






SRA 




TWO 




IMMEDIATE ERROR LOG. 


8CF24840 


056D 





4804 






SKP 




E 




SKIP TO LOG. 


8CF24850 


056E 





7012 






B 




1X660 




BRANCH NO LOG. 


8CF24860 


056F 





4700 


0600 




BSI 


L3 


KB010- 


BASE 


PUT ADDR. IN LINE BUFFER. 


8CF24870 


0571 





C0E2 






LD 




1X610+1 


CONVERT PATTERN ID TO 


8CF24880 


0572 





4700 


03BO 




BSI 


L3 


IC010- 


BASE 


TWO 1443 ERROR CODES FOR 


8CF24890 


0574 





DOOF 






STO 




IXC24 




LOG. 


8CF24900 


0575 





6600 


0302 


' 


LDX 


L2 


IXC30 




ERROR CODE 32. 


8CF24910 


0577 





C012 






LD 




IXC34 




PARITY IN PROGRAM SWITCH. 


8CF24920 


0578 





4820 






SKP 




Z 




SKIP IF OFF. 


8CF24930 


0579 





7201 






MDX 


2 


ONE 




UPDATE ERROR CODE. 


8CF24940 


057A 





COOE 






LD 




IXC32 




MULTIPLE MEMORY SELECTS. 


8CF24950 


057B 





48 30 






SKP 




-Z 




SKIP IF OFF. 


8CF24960 


057C 





7202 






MDX 


2 


TWO 




UPDATE ERROR CODE. 


8CF24970 


057D 





6A07 






STX 


2 


IXC25 




STORE PARITY ERROR CODE. 


8CF24980 


057E 





C805 






LDD 




IXC24 




LOAD ERROR ID. 


8CF24990 


057F 





4700 


0B90 




BSI 


L3 


SV010- 


•BASE 


LOG ERROR. 


8CF25000 


0581 









1X660 


EOU 




# 






8CF2501O 


0581 





4F80 


04F0 




B 


13 


1X600- 


-BASE 


RETURN. 


8CF25020 










**##**#***#*****#**#. •>*#* 


*«£**##***>!<#>);**#**«*##*#:*** 


8CF25030 










* 










* 


8CF25040 










* CONSTANTS AND WQRK AREAS * 


8CF250 50 










# 










* 


8CF25060 










**#*#*#*#*#**#**#******« 


*****#******:#**#*********** 


8CF25070 










# 










* 


8CF25080 


0584 




0001 




IXC24 


BSS 


E 


1 




STORAGE AREA FOR PARITY 


8CF25090 


0585 




0001 




IXC25 


BSS 




1 




CODES. 


8CF25100 


0586 





2C2C 




IXC26 


DC 




/2C2C 




FOUR ASTERISKS. 


8CF25110 


0587 





2C2C 






DC 




/2C2C 






8CF25120 


0588 




0.001 




IXC2 8 


BSS 




1 




WORK AREA. 


8CF25130 


0302 









IXC30 


EOU 




/0302 




PARITY ERROR CODE 32. 


8CF25140 


0589 





FFFF 




IXC32 


DC 




-1 




PARITY ERROR COUNTER. 


8CF25150 


058A 




0001 




IXC34 


BSS 




1 




INTERNAL PARITY SWITCH. 


8CF25160 


058B 





OEDC 




IXC38 


DC 




PXK50- 


•BASE 


FAILURE TABLE ADDRESS. 


8CF25170 
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058C 0004 
058D 0699 
058E 0217 
058F F400 

0590 1000 

0591 7400 



0592 
0592 
0593 
0595 
0596 
0597 
0598 
0599 
059A 
059B 
059B 
059C 
059D 
059E 
059F 
05A0 
05A1 
05A2 
05A2 
05A3 
05A4 
05A5 
05A6 
05A7 
05A7 
05A8 
05A9 
05AA 
05AB 
05AC 
05AD 
05AD 

05AE 
05AF 
05B0 
05B1 
05B2 
05B3 
05B3 
05 B4 
05B5 
05 B6 
05 B7 
05B8 
05B9 
05B9 
05BA 
05 BA 
05BC 
05BE 
05C0 
05C2 



69F5 

4700 08C6 
F0F2 



180C 
4820 

7002 

1800 

7007 



















B0E5 
7003 
7002 
C0E8 
7013 



18D0 
FOEB 
188C 
4820 
7089 
108C 
F0E6 



80E1 
BODF 
7003 
7002 

C0E3 

7000 




























800B 
B0D9 
7003 
7002 
CODE 
7007 

80D5 
B0D3 
7003 
7002 
C0D8 
7001 

C0D7 

D700 0492 
C700 0491 
D700 0464 
4700 0498 
4F80 04B6 



IXC40 DC 4 WORST CASE PATTERN TEST ID 

IXC42 DC MA020-BASE RE-ENTRY, 1443 SUBROUTINE 
IXC44 DC DP040-BASE INSTRUCTION IN MEMORY ADD 
IXC46 DC /F400 AREA. 
IXC48 DC /1000 
IXC50 DC /7400 

* * 
a************************************************** 
* 

* CHECK ADDRESS LIMITS FOR MEMORY ADD TEST. 



1X715 



1X720 



1X700 EQU 
STX 
BSI 

EOR 
SRA 
SKP 
B 

XCH 
B 
1X710 EOU 
XCH 
EOR 
SRT 
SKP 
B 

SLT 
EOR 
EOU 
CMP 
B 
B 

LD 
B 

EOU 
A 

CMP 
B 
B 

LD 
B 

EOU 
A 

CMP 
B 
B 

LD 
B 

EOU 
A 

CMP 
B 
B 

LD 
B 

EQU 
LD 
EQU 
STO 
LD 
STO 
BSI 
B 



1X730 



1X740 



1X750 



1X760 



* 
1 IXC28 
L3 SA010-BASE 
IXC28 
12 
Z 
1X710 

1X715 



IXC28 

12 

Z 

1X305 

12 

IXC28 

* 

IXC28 

1X720 

1X720 

IXC44 

1X760 

IXC32 

IXC28 

1X730 

1X730 

IXC46 

1X760 

* 

IXC32 

IXC28 
1X740 
1X740 
IXC48 
1X760 
* 

IXC32 
IXC28 
1X750 
1X750 
IXC48 
1X760 

IXC50 

# 

IXC12-BASE 

IXC10-BASE 

IIC02-BASE 

IX100-BASE 

IX200-BASE 



L3 
L3 
L3 
L3 
13 



SAVE ERROR ADDRESS. 

DETERMINE ADDRESS LIMITS. 
TEST ADDRESS FOR 4K BSM. 

SKIP* IF IN TEST AREA. 
SKIP TO 1X710. 
RESTORE END ADDRESS. 
BRANCH TO END ADDRESS TEST 

END ADDRESS TO ACC. 

TEST ADDRESS FOR 4K BSM. 

CHECK BITS 0-3. 

SKIP' IF IN TEST AREA. 

BRANCH NOT IN TEST AREA. 

RESTORE END 

ADDRESS. 

COMPARE TO ERROR ADDRESS. 
SKIP IF NOT EQUAL. 
SKIP IF NOT EOUAL. 
ERROR IN LAST WORD, LOAD 
BRANCH OPERAND. 

DECREMENT ADDRESS AND 

COMPARE TO ERROR ADDRESS. 

SKIP IF NOT EQUAL. 

SKIP IF NOT EQUAL. 

IF SAME LOAD BRANCH OP 

CODE. 

DECREMENT ADDRESS AND 

COMPARE TO ERROR ADDRESS. 
SKIP IF NOT EQUAL. 
SKIP IF NOT EOUAL. 
IF SAME LOAD NOP 
INSTRUCTION. 

DECREMENT ADDRESS AND 
COMPARE TO ERROR ADDRESS. 
SKIP IF NOT EQUAL. 
SKIP IF NOT EOUAL. 
IF SAME LOAD NOP 
INSTRUCTION. 

LOAD MEMORY ADD INSTRUC. 



PUT WORD IN TEST 
PUT FAILURE WORD 
FAILURE PATTERN. 
LOG ERROR. 
RETURN. 



PATTERN. 
IN 



05C4 0000 
05C5 C700 06B7 



* CAR CHECK 

* 

1X800 DC 

LD I 



INTERNAL INTERRUPT. 

*-* ENTRY. 

3 MAC01-BASE CHECK 1443 WRITE SWITCH. 



PART NO. 2279484 
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8CF25180 
8CF25190 
8CF25200 
8CF25210 

8CF25220 
8CF25230 
8CF25240 
8CF25250 
8CF25260 
8CF25270 
8CF25280 
8CF25290 
8CF25300 
8CF25310 
8CF25320 
8CF25330 
8CF25340 
8CF25350 
8CF25360 
8CF2-5370 
8CF25380 
8CF25390 
8CF25400 
8CF25410 
8CF25420 
8CF25430 
8CF25440 
8CF25450 
8CF25460 
8CF25470 
8CF25480 
8CF25490 
8CF25500 
8CF25510 
8CF25520 
8CF25530 
8CF25540 
8CF25550 
8CF25560 
8CF25570 
8CF25580 
8CF25590 
8CF25600 

8CF25610 
8CF25620 
8CF25630 
8CF25640 
8CF25650 
8CF25660 
8CF25670 
8CF25680 
8CF25690 
8CF25700 
8CF25710 
8CF25720 
8CF25730 
8CF25740 
8CF25750 
8CF25760 
8CF25770 
8CF25780 
8CF25790 
8CF25800 
8CF25810 
8CF25820 
8CF25830 
8CF25840 
8CF25850 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


19 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
19A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



05C7 





4818 






SKP 




+- 


SKIP IF 1443 CAR CHECK. 




8CF25860 


05C8 





7009 




* 


B 




1X810 


BRANCH IF FALSE CAR CHECK 


• 


8CF25870 
8CF25880 










* THERE IS 


NO 


ERROR MESSAGE FOR A LEGITAMATE 1443 




8CF25890 










* CAR 


CHECK, BECAUSE IT WOULD DESTROY THE RETURN 




8CF25900 










* ADDRESS FROM THE 1443 WRITE SUBROUTINE. 




8CF25910 










* 












8CF25920 


05C9 





3074 




WAT74 


WAIT 




/74 


CAR CHECK WAIT. 




8CF25930 


05CA 





C0C2 






LD 




IXC42 


SET RETURN ADDRESSES TO 




8CF25940 


05CB 





8301 






A 


3 


ONE 


RETRY WRITE. 




8CF25950 


05CC 





D700 


0406 




STO 


L3 


II010-BASE 






8CF25960 


05CE 





D700 


0477 




STO 


L3 


IX010-BASE 






8CF25970 


05D0 





4F80 


0562 


* 


B 


13 


IX800-BASE 


RETURN. 




8CF25980 
8CF25990 










* FAtSE CAR CHECK. 






8CF26000 










* 












8CF26010 


05D2 









1X810 


EQU 




* 






8CF26020 


05D2 





OFOO 


0026 




XIO 


L3 


AAC50-BASE 


CHECK FOR IMMEDIATE ERROR 


8CF26030 


05D4 





1802 






SRA 




TWO 


LOG. 




8CF26040 


05D5 





4804 






SKP 




E 


SKIP TO LOG. 




8CF26050 


05D6 





7003 






B 




1X820 


BRANCH NO LOG. 




8CF26060 


05D7 





4700 


0691 




BSI 


L3 


MA010-BASE 


WRITE ERROR MESSAGE. 




8CF26070 


05D9 





0C45 






DC 




MSG09-BASE 


MESSAGE. 




8CF26080 


05DA 









1X820 


EQU 




* 






8CF26090 


05DA 





OFOO 


0026 




XIO 


L3 


AAC50-BASE 


CHECK FOR WAIT ON ERROR. 




8CF26100 


05DC 





1801 






SRA 




ONE 






8CF26110 


05DD 





4804 






SKP 




E 


SKIP IF OFF. 




8CF26120 


05DE 





3075 




WAT75 


WAIT 




/75 


FALSE CAR CHECK WAIT. 




8CF26130 


05DF 





4F80 


0562 


* 


B 


13 


IX800-BASE 


RETURN. 




8CF26140 
8CF26150 










* AUX 


CORE 


ERROR 






8CF26160 










* 












8CF26170 


05E1 





0000 




IXXXX 


DC 




*-* 


ENTRY 




8CF26180 


05E2 





0B26 


' 




XIO 


3 


AAC50-BASE 


CK BYPASS ERROR LOG 




8CF26190 


05E3 





1802 






SRA 




TWO 


* 




8CF26200 


05 E4 





4804 






SKP 




E 


SKIP TO LOG 




8CF26210 


05E5 





7003 






B 




IXX20 


ELSE BR 




8CF26220 


05E6 





4700 


0691 




BSI 


L3 


MA010-BASE 


LOG ERR MESSAGE 




8CF26230 


05E8 





0C62 






DC 




MSG12-BASE 


MESSAGE ADDRS 




8CF26240 


05E9 









IXX20 


EOU 




* 






8CF26250 


05E9 





0B26 






XIO 


3 


AAC50-BASE 


CK WAIT ON ERROR 




8CF26260 


05EA 





1801 






SRA 




ONE 


SKIP IF SW 14 OFF 




8CF26270 


05EB 





4804 






SKP 




E 


* 




8CF26280 


05EC 





3077 




WAT 77 


DC 




/3077 


ERROR WAIT 




8CF26290 


05ED 





4F80 


057F 




B 


13 


IXXXX-BASE 


RETURN 




8CF26300 










*************************************************** 


8CF26310 










* 










* 


8CF26320 










* NO 


INTERRUPT CONDITION 




* 


8CF26330 










* 










* 


8CF26340 










*************************************************** 


8CF26350 










* 










* 


8CF26360 


05EF 





0000 




IY010 


DC 




*-* 


ENTRY. 




8CF26370 


05F0 





OFOO 


0026 




XIO 


L3 


AAC50-BASE 


CHECK FOR BYPASSING ERROR 


8CF26380 


05F2 





1802 






SRA 




TWO 


LOG. 




8CF26390 


05F3 





4804 






SKP 




E 


SKIP TO LOG. 




8CF26400 


05F4 





7003 






B 




I Y 02.0 


BRANCH AROUND LOG. 




8CF26410 


05F5 





4700 


0691 




BSI 


L3 


MA010-BASE 


LOG ERROR MESSAGE. 




8CF26420 


05F7 





0C3B 






DC 




MSG08-BASE 


MESSAGE. 




8CF26430 


05F8 









IY020 


EOU 




* 






8CF26440 


05F8 





OFOO 


0026 




XIO 


L3 


AAC50-BASE 


CHECK FOR WAIT ON ERROR 




8CF26450 


05FA 





1801 






SRA 




ONE 


SKIP IF SWITCH 




8CF26460 


05FB 





4804 






SKP 




E 


14 IS OFF. 




8CF26470 


05FC 





3076 




WAT76 


WAIT 




/76 


ERROR WAIT. 




8CF26480 


05FD 





4F80 


058D 




B 


13 


IY010-BASE 


RETURN. 




8CF26490 










*************************************************** 


8CF26500 










* 










* 


8CF26510 










* LOG 


NON 


INTERRUPT ERRORS 


* 


8CF26520 










* 










* 


8CF26530 



*************************************************** 



05FF 0000 

0600 6A0E 

0601 4700 0B66 

0603 402B 

0604 C100 

0605 403F 



0606 

0607 

0608 

0608 

0609 
060A 
060B 
060C 
060E 
0610 
0612 
0614 
0615 
0617 
0619 
06 1A 
061B 
061C 
061D 
061E 
0620 
0621 
0622 
0624 
0624 
0626 
0627 



1810 
D100 

7005 
C200 
F023 
D200 
2D40 
6600 
4700 
4700 
C016 
4700 
OFOO 
1802 
4804 
7008 
4045 
C0F1 
4700 
DOOB 
C80A 
4700 



0000 
0000 
07BB 
0823 

0876 
0026 



03B0 



0B9D 



OFOO 0026 
1801 

4804 



0628 3078 



0629 4F80 059D 



* THIS SUBROUTINE LOGS DATA ON NON INTERRUPT 

* ERRORS. 
* 

* CALL - 
* 

BSI L3 JA010-BASE 



XR1 CONTAINS THE ADDRESS OF THE POSITION 
WITH THE ERROR. 

XR2 CONTAINS THE PATTERN ID. 

XR3 IS THE PSEUDO BASE REGISTER. 

3/26/69 



*************************************************** 



* 
JA010 



DC 

STX 

BSI 

BSI 

LD 

BSI 



2 

L3 



*-* 

JA040+1 

SU010-BASE 

JB010 

ZERO 

KA010 



* CHECK STORAGE PROTECT 
* 



ENTRY. 
SAVE XR2. 

ZERO LINE BUFFER. 
FILL KNOWN PATTERN. 
LOAD AND FILL 
FAILURE PATTERN. 

BIT IN ERROR WORD. 



SRA 
STO 

JA032 EQU 
B 

LD 
EOR 
STO 
STS 

JA040 LDX 
BSI 
BSI 
LD 
BSI 
XIO 
SRA 
SKP 
B 

BSI 
LD 
BSI 
STO 
LDD 
BSI 
EQU 
XIO 
SRA 
SKP 



JA050 



2 

LI 
L2 

L3 
L3 

L3 

L3 



L3 



L3 



L3 



,/40 



16 

ZERO 

* 

JA040 

ZERO 

JAC06 

ZERO 

ZERO 

*_* 

PQ010-BASE 

PR010-BASE 

JAC02 

PS010-BASE 

AAC50-BASE 

TWO 

E 

JA050 

KB010 

JA040+1 

IC010-BASE 

JAC04 

JAC04 

SV010-BASE 

* 

AAC50-BASE 

ONE 

E 

/78 



TRY STORING ZERO ON ERROR 
WORD. 

INTERRUPT ADDRESS. 
BRANCH NO INTERRUPT. 
SET STORAGE PROTECT BIT 
AND CHANGE PARITY BIT TO 
MAINTAIN 000 PARITY. 
RESET STORAGE PROTECT BIT. 
RESTORE PATTERN ID. 

TALLEY FAILURES BY BIT. 

TALLEY FAILURES BY LINE,. 
UPDATE TEST FAILURE 

STORAGE. 

CHECK FOR BYPASSING 
IMMEDIATE ERROR LOG. 
SKIP TO LOG. 
BRANCH NO LOG. 
PUT ADDR. IN LINE BUFFER. 
CONVERT PATTERN ID. TO 

TWO 1443 CHARACTERS AND 
PUT IN ERROR CODE. 

LOG ERROR. 

CHECK FOR HALT ON ERROR. 



HALT ON ERROR WAIT. 



062B OEDC 
062C 0001 



* 

WAT78 WAIT 

* 

B 13 JA010-BASE RETURN. 

*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 

JAC02 DC PXK50-BASE FAILURE TABLE ADDRESS. 
JAC04 BSS E 1 ERROR CODE 21. 



PART NO. 
PAGE 



8CF26540 
8CF26550 
8CF26560 
8CF26570 
8CF26580 
8CP26590 
8CF26600 
8CF26610 
8CF26620 
8CF26630 
8CF26640 
8CF26650 
8CF26660 
8CF26670 
8CF266 80 
8CF26690 
8CF26700 
8CF26710 
8CF26720 
8CF26730 
8CF26740 
8CF26750 

8CF26760 
8CF26770 
8CF26780 
8CF26790 
8CF26800 
8CF26810 
8CF26820 
8CF26830 
8CF26840 

8CF26850 

8CF26860 

8CF26870 

8CF26880 

8CF26890 

8CF26900 

8CF26910 

8CF26920 

8CF26930 

8CF26940 

8CF26950 

8CF26960 

8CF26970 

8CF26980 

8CF26990 

8CF27000 

8CF27010 

8CF27020 

8CF27030 

8CF27040 

8CF27050 

8CF27060 

8CF27070 

8CF27080 

8CF27090 

8CF27100 

8CF27110 

8CF27120 

8CF27130 

8CF27140 

8CF27150 

8CF27160 

8CF27170 

8CF27180 

8CF27190 

8CF27200 

8CF27210 



2279484 

20A 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


20 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
20A 



oooooooooooooooooooooooooooooooooc 



oooooooooooooooooooooooooooooooooc 
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062D 





0201 








DC /0201 




8CF27220 


062E 





OBOB 




JAC06 


DC /OBOB MASK TO SET STOR. PROT. 




8CF272 30 










* 




BIT, CHANGE PARITY BIT. 




8CF27240 










* 






* 


8CF27250 










*************************************************** 


8CF27260 










*************************************************** 


8CF27270 










* 






* 


8CF27280 










* 


FILL KNOWN PATTERN 


* 


8CF27290 










* 






* 


8CF27300 










*************************************************** 


8CF27310 










* 






* 


8CF27320 


062F 





0000 




JB010 


DC *-* ENTRY. 




8CF27330 


0630 





C700 


003C 






LD L3 AAC64-BASE PUT ADDRESS OF TEST 




8CF27340 


0632 





D001 








STO JB020+1 PATTERN BUFFER AREA IN 




8CF27350 


0633 





6600 


0000 


JB020 


LDX L2 ■*-* XR2, LOAD TEST PATTERN 




8CF27360 


0635 





C700 


0492 






LD L3 IXC12-BASE AND FILL. 




8CF27370 


0637 





400D 








BSI KA010 




8CF27380 


06 38 





C700 


0493 






LO L3 IXC14-BASE TEST STORAGE PROTECT SW 




8CF27390 


063A 





4820 








SKP Z SKIP IF SET. 




8CF27400 


063B 





700 3 








B JB030 SKIP NOT ON. 




8CF27410 


063C 





C200 








LD 2 ZERO LOG STORAGE PROTECT BIT 




8CF27420 


06 3D 





FOFO 








EOR JAC06 AND UPDATE PARITY BIT. 




8CF27430 


063E 





D200 








STO 2 ZERO 




8CF27440 


063F 









JB030 


EOU * 




8CF27450 


063F 





C33D 








LD 3 AAC66-BASE PUT ADDRS OF FAILURE 




8CF27460 


0640 





D001 








STO JB040+1 PATTERN BUFFER AREA IN 




8CF27470 


0641 





6600 


0000 


JB040 


LDX L2 *-* XR2. 




8CF27480 


0643 





4F80 


05CD 






B 13 JB010-BASE RETURN. 




8CF27490 










*************************************************** 


8CF27500 










* 






* 


8CF27510 










* 


FILL SUB ROUT INE 


* 


8CF27520 










* 






* 


8CF27530 










*************** ************************* *********** 


8CF27540 










* 






* 


8CF27550 










* 


THIS SUBROUTINE FILLS THE LINE BUFFER AREA 


* 


8CF27560 










* 


DESIGNATED BY XR2 WITH THE PATTERN IN THE 


* 


8CF27570 










* 


ACCUMULATOR. 


* 


8CF27580 










* 






* 


8CF27590 










* 


CALL - 


* 


8CF27600 










* 






* 


8CF27610 










* 




BSI L3 KA010-BASE 


* 


8CF27620 










* 






* 


8CF27630 










* 




THE ACCUMULATOR CONTAINS THE WORD TO BE 


* 


8CF27640 










* 




FILLEO. 


* 


8CF27650 










* 






# 


8CF27660 










* 




XR1 IS SAVED AND RESTORED. 


* 


8CF27670 










* 






* 


8CF27680 










* 




XR2 CONTAINS THE ADDRESS OF THE BUFFER AREA 


.* 


8CF27690 










* 






* 


8CF27700 










* 




XR3 IS THE PSEUDO BASE REGISTER. 


* 


8CF27710 










* 








8CF27720 










* 


UPON EXIT XR2 CONTAINS THE ADDRESS OF THE PARITY* 


8CF27730 










* 


AND 


SP BITS. 


* 


8CF27740 










* 






* 


8CF27750 










* 






* 


8CF27760 










*************************************************** 


8CF27770 










* 






* 


8CF27780 


0645 





0000 




KA010 


DC *-* ENTRY. 




8CF27790 


0646 





D014 








STO KAC02 SAVE PATTERN. 




8CF27800 


0647 





6908 








STX 1 KA050+1 SAVE XR1. 




8CF27810 


0648 





6188 








LDX 1 -120 XR1 POINTS TO LEFT BYTE. 




8CF27820 


0649 





C012 








LD KAC04 INITIALIZE LOOP 




8CF27830 


064A 





D031 








STO KCC02 AND DIGIT COUNTERS. 




8CF27840 


064B 





D031 








STO KCC04 




8CF27850 


064C 





COOE 








LD KAC02 LOAD PATTERN INTO 




8CF27860 


064D 





18D0 








RTE 16 Q AND POSITION FIRST BIT 


• 


8CF27870 


064E 





4033 








BSI KC010 LOAD CHARACTERS INTO LINE. 


8CF27880 


064F 





65 00 


0000 


KA050 


LDX LI *-* RESTORE XR1. 




8CF27890 



0651 


7201 




MDX 


0652 


COOA 




LD 


0653 


4804 




SKP 


0654 


7002 




B 


0655 


COOB 




LD 


0656 


7001 




B 


0657 




KA070 


EOU 


065 7 


C008 




LD 


0658 




KA080 


EQU 


065 8 


D200 




STO 


0659 


4F80 05E3 




B 



065B 




0001 


065C 





0004 


065D 




0001 


065E 





0B7B 


065F 





0003 


0660 





OAOA 


0661 





0A01 



0662 

0663 

0664 

0665 

0666 

0667 
0669 
066A 
066B 
066C 
066D 
066E 
066F 
0670 
0671 
0672 
0673 



0000 

6A15 

C0F9 

8301 

D001 

6600 0000 

690D 

6188 

COFO 

DOOF 

C0F1 

DOOE 

C007 

18D0 

4010 

7201 

C0E8 



INCREMENT WORD POINTER. 

TEST BIT COUNTER FOR 

EVEN. 

BRANCH TO LOAD 00. 

LOAD 01, EVEN PARITY. 

SKIP. 



2 ONE 

KAC06 

E 

KA070 

KAC14 

KA080 

* 

KAC12 

* 
2 ZERO LOAD SP AND PARITY BITS. 

13 KA010-BASE RETURN. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



LOAD 00, ODD PARITY. 



1 

4 
1 

SUC86-BASE 

3 

/OAOA 

/0A01 



PATTERN STORAGE. 

LOOP COUNT. 

BIT COUNTER. 

RELATIVE BASE ADDRESS OF 

LINE BUFFER FILL AREA. 
THREE. 

1443 CHARACTERS 00. 
1443 CHARACTERS 01. 



KAC02 BSS 
KAC04 DC 
KAC06 BSS 

* 

KAC08 DC 
KAC10 DC 
KAC12 DC 
KAC14 DC 

* * 
*************************************************** 
*************************************************** 

* * 

* LOAD ADDRESS IN LINE BUFFER SUBROUTINE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE CONVERTS THE ADDRESS IN XR1 * 

* TO A STRING OF 1443 CHARACTERS AND FILLS THEM * 

* INTO THE LINE BUFFER AT SUC86. * 

* * 

* CALL - * 

* * 

* BSI L3 KB010-BASE * 

* * 

* XR1 CONTAINS THE ADDRESS. * 

* * 

* XR2 IS SAVED AND RESTORED. * 

* * 

* XR3 IS THE PSEUDO BASE REGISTER. * 

* * 

* 3/12/69 * 

* * 

*************************************************** 

* * 

KB010 DC *-* ENTRY. 

STX 2 KB050+1 SAVE XR1 AND ADDRESS. 

LD KAC08 COMPUTE ABSOLUTE BASE 

A 3 ONE ADDRESS OF ADDRESS AREA 

STO KB020+1 IN LINE BUFFER AND 

KB020 LDX L2 *-* INITIALIZE XR2. 

STX 1 KB040+1 SAVE XR1. 

LDX 1 -120 XR1 POINTS TO LEFT BYTE. 

LD KAC04 INITIALIZE LOOP 

STO KCC02 COUNTER. 

LD KAC10 INITIALIZE DIGIT 

STO KCC04 COUNTER VALUE. 

LD KB040+1 MOVE ADDRESS TO CONVERT 

RTE 16 INTO Q. 

BSI KC010 CONVERT AND LOAD CHARS. 

MDX 2 ONE UPDATE WORD POINTER. 

LD KAC04 INITIALIZE DIGIT COUNTER 
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8CF27900 
8CF27910 
8CF27920 
8CF27930 
8CF27940 
8CF27950 
8CF27960 
8CF27970 
8CF27980 
8CF27990 
8CF28000 
8CF28010 
8CF28020 
8CF28030 
8CF28040 
8CF28050 
8CF28060 
8CF28070 
8CF28080 
8CF28090 
8CF28100 
8CF28110 
8CF28120 
8CF28130 
8CF28140 
8CF28150 
8CF28160 
8CF28170 
8CF28180 
8CF28190 
8CF28200 
8CF28210 
8CF28220 
8CF28230 
8CF28240 
8CF28250 
8CF28260 
8CF28270 
8CF282 80 
8CF28290 
8CF28300 
8CF28310 
8CF28320 
8CF28330 
8CF28340 
8CF28350 
8CF28360 
8CF28370 
8CF28380 
8CF28390 
8CF28400 
8CF28410 
8CF28420 
8CF28430 
8CF28440 
8CF28450 
8CF28460 
8CF28470 
8CF28480 
8CF28490 
8CF28500 
8CF28510 
8CF28520 
8CF28530 
8CF28540 
8CF28550 
8CF28560 
8CF28570 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


21 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
21A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0674 





D008 




STO KCC04 


0675 





400 C 




BSI KC010 

# 

* CONVERSION DONE. 










0676 





65 00 


0000 


KB040 LDX LI *-* 


0678 





6600 


0000 


KB050 LOX L2 *-* 


067A 





4F80 


0600 


B 13 KB010 



067C 




0001 


067D 




0001 


067E 




0001 


067F 




0001 


0680 





OOOA 


0681 





0001 


0682 





0000 


0683 





1810 


0684 





D0D8 


0685 







0685 





C0F7 


0686 





D0F7 


0687 







0687 





1804 


0688 





1081 


0689 





D0F5 


068A 





4808 


068B 





C0F4 


068C 





1100 


068D 





EAOO 


068E 





0200 


068F 





COCD 


0690 





80EE 



FOR LAST FOUR DIGITS. 
CONVERT AND FILL CHARS. 



RESTORE XR1, ADDRESS. 
RESTORE XR2. 
iE RETURN. 

* * 

* LOAD SUBROUTINE * 

$ # 

A************************************************** 

* * 

* THIS SUBROUTINE IS COMMON TO THE FILL AND LOAD * 

* ADDRESS SUBROUTINES. * 

* * 

* CALL - * 

* * 

BSI KC010 * 

* 

XR1 POINTS TO THE INITIAL BYTE TO FILL. * 

* 

XR2 CONTAINS THE ADDRESS OF THE BUFFER AREA.* 



XR3 IS THE PSEUDO BASE REGISTER. 

THE WORD TO CONVERT AND FILL IS IN THE Q. 

THE LOOP COUNTER, KCC02, IS ALREADY 
INITIALIZED. 

3/12/69 



* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 

* * 
is************************************************* 

* * 

* CONSTANTS AND WORK AREAS * 

* * 

* * 

LOOP COUNTER. 

VALUE TO PUT IN DIGIT CTR. 
DIGIT COUNTER. 
STORAGE AREA FOR BIT. 
1443 CHARACTER 0. 

ONE. 

* 



ENTRY. 

ZERO BIT COUNTER. 



KCC02 


BSS 






KCC04 


BSS 






KCC06 


BSS 






KCC08 


BSS 






KCC10 


DC 




/OOOA 


KCC12 


DC 






*********#********#> 


* 








KC010 


DC 




*-* 




SRA 




16 




STO 




KAC06 


KC020 


EOU 




# 




LD 




KCC04 




STO 




KCC06 


KC030 


EQU 




* 




SRA 




FOUR 




SLT 




ONE 




STO 




KCC08 




SKP 




+ 




LD 




KCC10 




SLA 


1 


ZERO 




OR 


2 


ZERO 




STO 


2 


ZERO 




LD 




KAC06 




A 




KCC08 



INITIALIZE THE 

DIGIT COUNTER. 3 OR 4. 

CLEAR ACCUMULATOR. 

GET NEXT BIT TO CONVERT. 

SAVE FOR COUNTING. 

SKIP IF ONE. 

LOAD CHARACTER ZERO. 

LOAD CHARACTER INTO 

PROPER WORD AND BYTE 

POSITION IN BUFFER AREA. 

UPDATE THE BIT 

COUNTER. 
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8CF28580 
8CF28590 
8CF28600 
8CF28610 
8CF28620 
8CF28630 
8CF28640 
8CF28650 
8CF28660 
8CF28670 
8CF28680 
8CF28690 
8CF28700 
8CF28710 
8CF28720 
8CF28730 
8CF28740 
8CF28750 
8CF28760 
8CF28770 
8CF28780 
8CF28790 
8CF28800 
8CF28810 
8CF28820 
8CF28830 
8CF28840 
8CF28850 
8CF28860 
8CF28870 
8CF28880 
8CF28890 
8CF28900 
8CF28910 
8CF28920 
8CF28930 
8CF28940 
8CF28950 
8CF28960 
8CF28970 
8CF28980 
8CF28990 
8CF29000 
8CF29010 
8CF29020 
8CF29030 
8CF29040 
8CF29050 
8CF29060 
8CF29070 
8CF29080 
8CF29090 
8CF29100 
8CF29110 
8CF29120 
8CF29130 
8CF29140 
8CF29150 
8CF29160 
8CF29170 
8CF29180 
8CF29190 
8CF29200 
8CF29210 
8CF29220 
8CF29230 
8CF29240 
8CF29250 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



0691 





DOCB 


0692 





COEB 


0693 





90ED 


0694 





4808 


0695 





7007 


0696 





D0E7 


0697 





7100 


0698 





7178 


0699 





7188 


069A 





7001 


069B 





7201 


069C 





70EA 


069D 







069D 





CODE 


069E 





90E2 


069F 





4808 


06A0 





7003 


06A1 





DODA 


06A2 





7201 


06A3 





70E1 


06A4 







06A4 





4F80 0620 



06A6 
06A7 
06 A9 
06AA 
06AB 
06AC 
06AD 
06AE 
06AF 
06B0 
06B1 
06 B2 
06B3 
06 B4 
06 B4 
06B5 
06 B6 
06B7 
06B8 
06B9 
06BA 
06BA 
06 BB 
06BB 



0000 
C700 0406 







D016 

188C 

100C 

F301 

180C 

4820 

7016 

108C 

BOOB 

7001 

7006 



B009 

7004 

1000 

COEE 

8006 

DOEC 



1810 



4F80 0644 



STO 




KAC06 


LD 




KCC06 


S 




KCC12 


SKP 




+ 


B 




KC040 


STO 




KCC06 


MDX 


1 


ZERO 


MDX 


1 


120 


MDX 


1 


-120 


MDX 




*+l 


MDX 


2 


ONE 


B 




KC030 


* 






* DIGIT COUNTER ZER( 


* 






KC040 EQU 




# 


LD 




KCC02 


S 




KCC12 


SKP 




+ 


B 




KC050 


STO 




KCC02 


MDX 

B 


2 


ONE 
KC020 



DECREMENT DIGIT COUNTER 

AND TEST FOR MORE DIGITS 

TO CONVERT. 

BRANCH NO MORE DIGITS. 

UPDATE DIGIT COUNTER. 

SKIP IF RIGHT BYTE. 

MAKE RIGHT BYTE, SKIP. 

MAKE LEFT BYTE, SKIP. 

SKIP. 

INCREMENT WORD POINTER. 

LOOP TO CONVERT. 



DECREMENT THE 
LOOP COUNTER. 
TEST IF DONE. 
BRANCH IF DONE. 
UPDATE THE LOOP COUNTER. 
INCREMENT WORD POINTER. 
CONVERT MORE DIGITS. 
* 

* CONVERSION DONE. 
* 

KC050 EOU * 

B 13 KC010-BASE RETURN. 

* * 

* INTERRUPT ADDRESS IN PATTERN TEST * 

* * 



* 

* CALL 

* 



BSI 
XXXX 

xxxx 



L3 KL010-BASE 



NO, 
YES, 



EXIT. 
EXIT. 



OR 7 



4/22/69 



*-* ENTRY. 
L3 II010-BASE SAVE INTERRUPT 
KLC08 SAVE ADDRESS. 
12 ADDRESS BITS 4 - 15. 

RESTORE BITS - 4. 

COMPARE MEMORY SELECT BITS 

0-3 AND SKIP IF INTERRUPT 

IS IN PROGRAM. 

BRANCH IF NOT. 

COMPARE ADDRESS BITS 

TO PTEST. 

II010 GT PTEST. 

II010 LT PTEST. 



KL010 DC 
LD 
STO 
SRT 
SLA 
EOR 
SRA 
SKP 
B 

SLT 
CMP 
B 
B 

KL020 EQU 
CMP 
B 

NOP 
LD 
A 
STO 

KL030 EQU 
SRA 

KL040 EQU 
B 



12 

3 ONE 
12 
I 

KL050 
12 

KLC02 
KL020 
KL030 
* 

KLC04 
KL030 

KL010 

KLC06 

KL010 

* 

16 

* 

13 KL010-BASE 



CMPRE ADDR. BITS 
II010 GT ETEST. 
II010 LT ETEST. 
INCREMENT RETURN 
ADDRESS. 



RETURN WITH ACC, 
RETURN. 



TO ETEST. 



0. 
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8CF29260 

8CF29270 

8CF29280 

8CF29290 

8CF29300 

8CF29310 

8CF29320 

8CF29330 

8CF29340 

8CF29350 

8CF29360 

8CF29370 

8CF29380 

8CF29390 

8CF29400 

8CF29410 

8CF29420 

8CF29430 

8CF29440 

8CF29450 

8CF29460 

8CF29470 

8CF29480 

8CF29490 

8CF29500 

8CF29510 

8CF29520 

8CF29530 

8CF29540 

8CF29550 

8CF29560 

8CF29570 

8CF29580 

8CF29590 

8CF29600 

8CF29610 

8CF29620 

8CF29630 

8CF29640 

8CF29650 

8CF29660 

8CF29670 

8CF29680 

8CF29690 

8CF29700 

8CF29710 

8CF29720 

8CF29730 

8CF29740 

8CF29750 

8CF29760 

8CF29770 

8CF29780 

8CF29790 

8CF29800 

8CF29810 
8CF29820 
8CF29830 
8CF29 840 
8CF29850 
8CF29 860 
8CF29870 
8CF29880 
8CF29890 
8CF29900 
8CF29910 
8CF29920 
8CF29930 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



Q6BD 
06 BE 
06BF 
06C0 
06C1 
Q6C2 
06C3 
06C4 
06C5 



06C6 
06C6 
06C8 
06C9 
06CA 
06CB 
06CC 
06CD 
06CE 
06CF 
06D0 
0601 
06D2 
06D2 
0604 
06D5 
0606 
0607 



00A5 
037D 
0001 
0001 
0001 
0007 
0004 
FFFF 
01BA 



4700 08E3 

F0F7 

180C 

4818 

7006 

69F4 

C0F3 

F0F1 

180C 

4820 

70E8 

C700 0252 
4820 



70E4 
COEB 
70E3 



06D8 





0000 


06D9 





F0E9 


060 A 





4820 


06DB 





7015 


06DC 





69E4 


06DD 





C0E3 


06DE 





1806 


06DF 





D0E1 



*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



PTEST-AAOOO 

ETEST-AAOOO 

1 ONE. 

1 STORAGE AREA. 

1. SAVE AREA. 

7 SEVEN. 

4 FOUR. 

/FFFF PATTERN, ALL ONES. 

0CO68-AA0O0 ADDRESS OF DC068 



KLC02 DC 

KLC04 DC 

KLC06 DC 

KLC08 BSS 

KLC10 BSS 

KLC12 DC 

KLC14 DC 

KLC16 DC 

KLC18 DC 

* * 

*************************************************** 



L3 SA100-BASE 

KLC08 

12 

+- 

KL060 
1 KLC10 

KLC10 

KLC08 

12 

Z 

KL030 

* 
L3 DPC28-BASE 

Z 

KL030 

KLC12 

KL040 



GET ADDR. LIMITS OF TEST. 
COMPARE MEMORY SELECT 
BITS. 

SKIP NOT IN THIS 4K. 
BRANCH IF IN THIS 4K. 
GET OTHER ADDRESS LIMIT. 
COMPARE MEMORY SELECT 
BITS. 

SKIP IF IN THIS 4K. 
BRANCH INTRPT. NOT IN TEST 

TEST IF PATTERN 7. 
SKIP IF SO. 



EXIT WITH 7, 



KL050 EQU 

BSI 

EOR 

SRA 

SKP 

B 

STX 

LD 

EOR 

SRA 

SKP 

B 
KL060 EQU 

LD 

SKP 

B 

LD 

B 

*************************************************** 

* * 

* WORST CASE PATTERN DETERMINATION * 

* * 

*************************************************** 

* * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



CALL 



THE INTERNAL INTERRUPT IS IN THE PATTERN TESTS. * 
IF IT IS IN THE WORST CASE PATTERN, THE ACTUAL * 
BIT PATTERN MUST BE DETERMINED FROM THE ADDRESS.* 

# 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



BSI L3 KM010-BASE 

XR1 CONTAINS THE ADDRESS OF THE TEST 
LOCATION. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



4/22/69 



*************************************************** 



KM010 DC 
EOR 
SKP 
B 

STX 
LD 
SRA 
STO 



*-* 

KLC14 

Z 

KM050 

KLC10 

KLC10 

SIX 

KLC10 



ENTRY. 

IF WORST CASE PATTERN TEST 
SKIP TO DETERMINE PATTERN. 
BRANCH NOT PATTERN TEST 4. 
DETERMINE PATTERN, /OOOO 
OR /FFFF. A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



06 EO 





1802 




06E1 





FODF 




06E2 





4804 




06E3 





7002 




06E4 





CODF 




06E5 





7001 




06E6 









06E6 





1810 




06E7 









06E7 





D700 


0492 


06E9 





C700 


0406 


06EB 





F0D9 




06EC 





1004 




06ED 





4820 




06EE 





7002 




06EF 





D700 


0493 


06F1 









06F1 





4F80 


0676 



06F3 
06F4 
06F4 
06F6 
06F7 
06F8 
06F9 
06FA 
06FB 
06FB 
06FC 
06FD 
06FE 
06FF 
0700 
0701 
0702 
0703 
0704 
0704 
0705 
0706 
0707 



0000 

C780 0691 

D027 

0822 

1806 

4804 

7031 

0820 
4804 
7019 
681A 
C01E 
4810 
7002 
0827 
7003 

8301 
D018 
0817 



SRA 




TWO 


EOR 




KLC10 


SKP 




E 


B 




KM020 


LD 




KLC16 


B 




KM030 


EQU 




* 


SRA 




16 


EQU 




* 


STO 


L3 


IXC12-BASE 


LD 


L3 


II010-BASE 


EOR 




KLC18 


SLA 




FOUR 


SKP 




Z 


B 




KM050 


STO 


L3 


IXC14-BASE 


EQU 




* 


B 


13 


KM010-BASE 



SKIP IF PATTERN IS /FFFF. 
BRANCH IF /OOOO. 

SKIP. 



KM020 

KM030 

SAVE PATTERN FOR INTRPT. 
COMPARE INTERRUPT ADDRESS 
TO DC068. 

GET RID OF MEMORY SELECT 
BITS AND SKIP IF EQUAL. 
BRANCH NOT AT DC068. 
SET STOR. PROT. SWITCH. 
KM050 

RETURN. 
*************************************************** 

* * 

* WRITE SUBROUTINE * 

* * 
*************************************************** 



THIS SUBROUTINE WRITES ON THE 1443 IF DATA 
ENTRY SWITCH 9 IS OFF, AND WRITES ON THE 1816/ 
1053 IF SWITCH 9 IS ON. 

THE MESSAGE IS IN 1443 FORMAT. IF NECESSARY IT 
IS CONVERTED TO 1816/1053 CODE. 



CALL - 

BSI 
DC 



L3 MA010-BASE 
MS G- BASE 



ABSOLUTE 
MESSAGE. 



DISPLACEMENT OF 



XR1 IS SAVED AND RESTORED. 
XR2 IS SAVED AND RESTORED. 



XR3 IS THE PSEUDO BASE ADDRESS REGISTER. 



*************************************************** 
* * 

MA010 
MA015 



MA020 



MA025 



MA030 



DC 

EQU 

LD 

STO 

XIO 

SRA 

SKP 

B 

EQU 

XIO 

SKP 

B 

STX 

LD 

SKP 

B 

XIO 

B 

EQU 

A 

STO 

XIO 

EQU 



13 



*-* 

* 

MA010-BASE 

MAC15 

MAC05 

SIX 

E 

MA 100 

* 

MAC10 

E 

MA 050 

MAC01 

MAC15 

MA025 

MAC50 

MA030 

* 

ONE 

MAC15 

MAC15 

* 



ENTRY TO WRITE ROUTINE. 

SAVE RELATIVE ADDRESS OF 
MESSAGE IN 1443 IOCC. 
SENSE DATA SWITCHES. 
DETERMINE I/O DEVICE. 
SKIP IF 1443. 
BRANCH IF 1816/1053. 

SENSE 1443 DSW. 
SKIP IF 1443 READY. 
BRANCH TO DISPLAY. • 
SET 1443 WRITE SWITCH ON. 
TEST FOR FUNCTION. 
SKIP IF SPACE FUNCTION. 
BRANCH TO WRITE MESSAGE. 
EXECUTE SPACE. 
BRANCH TO CONTINUE. 



COMPUTE ABSOLUTE ADDRESS 

OF MESSAGE. 

WRITE. 
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8CF30620 
8CF30630 
8CF30640 
8CF30650 
8CF30660 
8CF30670 
8CF30680 
8CF30690 
8CF30700 
8CF30710 
8CF30720 
8CF30730 
8CF30740 
8CF30750 
8CF30760 
8CF30770 
8CF30780 
8CF30790 
8CF30800 
8CF30810 
8CF30820 
8CF30830 
8CF30840 
8CF30850 
8CF30860 
8CF30870 
8CF30880 
8CF30890 
8CF30900 
8CF30910 
8CF30920 
8CF3093JJ 
8CF30940 
8CF30950 
8CF30960 
8CF30970 
8CF30980 
8CF30990 
8CF31000 
8CF31010 
8CF31020 
8CF31030 
8CF31040 
8CF31050 
8CF31060 
8CF31070 
8CF31080 
8CF31090 
8CF31100 
8CF31110 
8CF31120 
8CF31130 
8CF31140 
8CF31150 
8CF31160 
8CF31170 
8CF31180 
8CF31190 
8CF31200 
8CF31210 
8CF31220 
8CF31230 
8CF31240 
8CF31250 
8CF31260 
8CF31270 
8CF31280 
8CF31290 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


23 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
23A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



0707 
0708 
0709 
070A 
070B 
070C 
070D 
070E 
070F 
070F 
0710 
0711 



0818 
1002 
4810 
70FC 
4802 
7007 
1810 
DOOA 



C0E3 
8011 
D0E1 
0712 4F80 0691 

0714 

0714 3030 

0715 0806 

0716 70DO 

0717 

0717 3031 

0718 70DB 



0719 
071A 
071B 
071C 



0000 
0001 
0740 
0000 



071D 3701 
07 IE 0000 
071F 3500 



0720 0001 

0721 3700 



0722 0001 

0723 0FO3 



0724 8100 

0725 0F02 



0726 





0000 


0727 





0902 


0728 




0001 


0729 





06C6 


07 2A 





2100 


072B 





3400 



XIO 
SLA 
SKP 
B 

SKP 
B 

SRA 
STO 
MA036 EQU 
LD 
A 

STO 
B 
MA040 EOU 
WAT30 WAIT 
XIO 

B 
MA050 EQU 
WAT31 WAIT 

B 



MAC20 
TWO 

MA030 

C 

MA 040 

16 

MAC01 

* 

MA010 

MAC25 

MA 010 



SENSE 1443 DSW, NO RESET. 
TEST PRINTER COMPLETE. 
SKIP WHEN DONE. 
LOOP TILL PRINTER DONE. 
SKIP NO ERROR, CARRY OFF. 
BRANCH TO ERROR ROUTINE. 
RESET 1443 WRITE 
SWITCH. 



INCREMENT RETURN 
ADDRESS AND UPDATE 
IT. 
13 MA010-BASE RETURN. 

* ERROR ROUTINE. 
/30 ERROR WAIT. 
MAC10 RESET 1443 OSW. 

START OVER AGAIN, MAY USE 
MA015 1816/1053. 

* 1443 NOT READY DISPLAY. 
/31 NOT READY WAIT. 
MA015 RETURN TO TRY AGAIN. 

t 
* CONSTANTS AND WORK AREAS * 



1443 WRITE SWITCH, OFF. 
FORCE EVEN BOUNDARY FOR 
IOCC TO SENSE DES. 
SENSE 1443 DSW AND 
RESET. 



IOCC TO WRITE AT 1443. 



MAC01 DC /OOOO 

MAC05 BSS E 1 

DC /0740 

MAC10 DC /OOOO 

DC /3701 

MAC15 DC *-* 

DC /3500 
* 

* MAC20 IS ALSO WORD COUNT STORAGE. 

MAC20 BSS 1 SENSE 1443 DSW WITHOUT 

DC /3700 RESET. 
* 

* MAC25 IS ALSO THE CONSTANT OF ONE. 

MAC25 DC 1 SENSE FIRST PRINTER DSW 

DC /0F03 WITH RESET. 
* 

* MAC30 IS ALSO AN 1816/1053 CARRIER RETURN. 

MAC30 DC /8100 SENSE FIRST PRINTER DSW 

DC /0F02 WITHOUT RESET. 

* THE ADDRESS OF MAC40 IS CALCULATED AND STORED IN 

* MAC35. 



MAC35 DC 
DC 
MAC40 BSS 
MAC45 DC 
MAC 50 DC 
DC 
* 



072C 



*_* WRITE IOCC TO FIRST 

/0902 1816 OR 1053. 

1 CHARACTER TO PRINT. 

MAC40-BASE RELATIVE ADDRESS OF MAC40 

/2100 IOCC TO SPACE 

/3400 IMMEDIATE. 

* WRITE ROUTINE FOR 1816/1053. 

*************************************************** 
MA100 EOU * 
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8CF31300 

8CF31310 

8CF31320 

8CF31330 

8CF31340 

8CF31350 

8CF31360 

8CF31370 

8CF31380 

8CF31390 

8CF31400 

8CF31410 

8CF31420 

8CF31430 

8CF31440 

8CF31450 

8CF31460 

8CF31470 

8CF31480 

8CF31490 

8CF31500 

8CF31510 

8CF3X520 

8CF31530 

8CF31540 

8CF31550 

8CF31560 

8CF31570 

8CF31580 

8CF31590 

8CF31600 

8CF31610 

8CF31620 

8CF31630 

8CF31640 

8CF31650 

8CF31660 

8CF31670 

8CF31680 

8CF31690 

8CF31700 

8CF31710 

8CF31720 

8CF31730 

8CF31740 

8CF31750 

8CF31760 

8CF31770 

8CF31780 

8CF31790 

8CF31800 

8CF31810 

8CF31820 
8CF31830 
8CF31840 
8CF31850 
8CF31860 
8CF31870 
8CF31880 
8CF31890 
8CF31900 
8CF31910 
8CF31920 
8CF31930 
8CF31940 
8CF31950 
8CF31960 
8CF31970 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



072C 6923 


STX 


1 MA145+1 


072D 6A20 


STX 


2 MA140+1 


072E C301 


LO 


3 ONE 


072F 80F9 


A 


MAC45 


0730 D0F5 


STO 


MAC35 


0731 COEC 


LD 


MAC15 


0732 4808 


SKP 


+ 


0733 7018 


B 


MA130 


0734 8301 


A 


3 ONE 


0735 D001 


STO 


MA105+1 


0736 6500 OOOO 


MA105 LDX 


LI *-* 


0738 C100 


LD 


1 ZERO 


0739 D0E6 


STO 


MAC20 


073A 7101 


MDX 


1 ONE 


073B 6288 


LDX 


2 -120 


073C 4015 


BSI 


MAI 50 


07 3D 


MA110 EOU 


* 


0730 402B 


BSI 


MM010 


073E D0E9 


STO 


MAC40 


073F 08E6 


XIO 


MAC35 


0740 4011 


BSI 


MA150 


0741 7200 


MDX 


2 ZERO 


0742 7278 


MDX 


2 120 


0743 7288 


MDX 


2 -120 


0744 70F8 


B 


MAUO 


0745 CODA 


LD 


MAC20 


0746 90DB 


S 


MAC25 


0747 48 08 


SKP 


+ 


0748 7003 


B 


MA130 


0749 D0D6 


STO 


MAC20 


074A 7101 


MDX 


1 ONE 


074B 70F1 


B 
* 
* DONE PR I 


MA110 




NTING. 


074C 


MA130 EQU 


* 


074C 4015 


BSI 


MA 2 00 


074D 6600 OOOO 


MA140 LOX 


L2 *-* 


074F 6500 OOOO 


MA145 LDX 


LI *-* 


0751 70BD 


B 

* PRINTER 

* 

MA150 DC 


MA036 




STATUS LOOP 


0752 OOOO 


*-* 


0753 08D0 


XIO 


MAC30 


0754 1004 


SLA 


FOUR 


0755 4828 


SKP 


+Z 


0756 70FC 


B 


MA150+1 


0757 


MA155 EQU 


* 


0757 08CA 


XIO 


MAC25 


0758 1806 


SRA 


SIX 


0759 4804 


SKP 


E 


075A 7005 


B 


MA180 


075B 1804 


SRA 


FOUR 


075C 4804 


SKP 


E 


075D 7002 


B 


MA180 


075E 4F80 06F0 


B 


13 MA150-BA 


0760 


MA180 EQU 


* 


0760 3032 


WAT32 WAIT /32 


0761 70F5 


B 

* 


MA155 




* RETURN CARRIAGE 


0762 OOOO 


MA200 DC 


*-* 


0763 COCO 


LD 


MAC30 


0764 D0C3 


STO 


MAC40 


0765 08C0 


XIO 


MAC35 


0766 40EB 


BSI 


MA150 



SAVE XR1. 

SAVE XR2. 

COMPUTE ABSOLUTE ADDRESS 

OF CHARACTER BUFFER AND 

STORE IN IOCC. 

INITIALIZE XR1 

SKIP IF MESSAGE TO WRITE. 

BRANCH TO SPACE FUNCTION. 

COMPUTE ABSOLUTE ADDRESS 

TO POINT TO I/O 

BUFFER AREA. 

GET WORD COUNT. 

AND SAVE. 

BUMP XR1 TO FIRST WORD. 

XR2 POINTS TO LEFT BYTE. 

TEST FOR PRINTER READY. 

CONVERT CHARACTER. 

CHARACTER TO I/O BUFFER. 

WRITE. 

TEST FOR PRINTER DONE. 

TEST RIGHT BYTE, SKIP YES. 

MAKE RIGHT BYTE, SKIP. 

MAKE LEFT BYTE, SKIP. 

PRINT RIGHT BYTE. 

DECREMENT WORD COUNTER. 

AND TEST. 

SKIP NOT ZERO YET. 

DONE PRINTING LINE. 

UPDATE COUNTER. 

BUMP WORD POINTER. 

PRINT NEXT CHARACTER. 



RETURN CARRIAGE. 

RESTORE XR2 

RESTORE XR1. 

BRANCH TO EXIT ROUTINE. 



SENSE DSW WITHOUT RESET. 
TEST FOR BUSY. 
SKIP NOT BUSY. 
LOOP IF BUSY. 

SENSE DSW WITH RESET AND 
TEST FOR PARITY ERROR. 
SKIP IF OFF. 
BRANCH TO WAIT. 
TEST FOR PRINTER NOT READY 
SKIP IF READY. 
BRANCH TO WAIT. 
SE RETURN. 

NOT READY OR ERROR WAIT. 
RETURN TO SENSE READY. 



LOAD CARRIER RETURN 

INTO CHARACTER BUFFER. 

WRITE. 

TEST STATUS. 
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8CF31980 

8CF31990 

8CF32000 

8CF32010 

8CF32020 

8CF32030 

8CF32040 

8CF32050 

8CF32060 

8CF32070 

8CF32080 

8CF32090 

8CF32100 

8CF32110 

8CF32120 

8CF32130 

8CF32140 

8CF32150 

8CF32160 

8CF32170 

8CF32180 

8CF32190 

8CF32200 

8CF32210 

8CF32220 

8CF32230 

8CF32240 

8CF32250 

8CF32260 

8CF32270 

8CF32280 

8CF32290 

8CF32300 

8CF32310 

8CF32320 

8CF32330 

8CF32340 

8CF32350 

8CF32360 

8CF32370 

8CF32380 

8CF32390 

8CF32400 

8CF32410 

8CF32420 

8CF32430 

8CF32440 

8CF32450 

8CF32460 

8CF32470 

8CF32480 

8CF32490 

8CF32500 

8CF32510 

8CF32520 

8CF32530 

8CF32540 

8CF32 550 

8CF32560 

8CF32570 

8CF32580 

8CF32590 

8CF32600 

8CF32610 

8CF32620 

8CF32630 

8CF32640 

8CF32650 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


24 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
24A 



oooooooooooooooooooooooooooooooooc 



oooooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0767 4F80 0700 



0769 





0000 


076A 





6B0F 


076B 





6308 


076C 





C100 


0760 





1A00 


076 E 





EOOF 


076F 





48 04 


0770 





73F8 


0771 





1000 


0772 





1801 


0773 





8006 


0774 





8008 


0775 





D001 


0776 





C400 0000 


0778 





1300 



0779 6700 0000 
077B 4F80 0707 



077D 





0710 


077E 





OOFF 


077F 







077F 





FC21 


0780 





DCD8 


0781 





F4F0 


0782 





D4D0 


0783 





E0E4 


0784 





C2C4 


0785 





E604 


0786 





8646 


0787 





BCDA 


0788 





9E9A 


0789 





B6B2 



B 13 MA200-BASE RETURN. 

*************************************************** 

* * 

* 1816/1053 CHARACTER CONVERSION SUBROUTINE * 

* * 

*************************************************** 

* * 

* THIS SUBROUTINE CONVERTS A CHARACTER IN 1443 * 

* COOE TO AN 1816 OR 1053 CHARACTER. * 

* * 

* CALL - * 

* * 

* BSI MM010 * 

* * 

* XR1 AND XR2 INDICATE THE CHARACTER TO * 

* CONVERT. * 

* * 

* XR3 IS SAVED AND RESTORED. * 

* * 

*************************************************** 



SAVE BASE REGISTER. 
SET SHIFT COUNT TO 8. 
GET CHARACTER TO PRINT. 
IN RIGHT BYTE OF ACC. 



MM010 


DC 




*-* 




STX 


3 


MM050+1 




LDX 


3 


EIGHT 




LD 


1 


ZERO 




SRA 


2 


ZERO 




AND 




MMC10 


* 










SKP 




E 




MDX 


3 


-8 


* 


NOP 








SRA 




ONE 



SKIP IF CHARACTER IS LEFT 

BYTE IN TABLE. 

LEFT BYTE, RETURN SHIFT 

COUNT TO 0, SKIP. 

RIGHT BYTE, LEAVE SHIFT 

COUNT AT 8. 

PLACE 5 HI BITS IN ACC. 



* COMPUTE ABSOLUTE ADDRESS OF CONVERTED CHARACTERS. 
* 

A MM050+1 ADD CONTENTS OF BASE 

A MMC05 REGISTER AND DISPLACEMENT 

STO MM030+1 STORE IN LOAD INSTRUCTION 

MM030 LD L *-* L0AD1816/1053 CHARACTERS 

SLA 3 ZERO SHIFT TO LEFT BYTE. 

* 

* IF THE RIGHT BYTE IS EXTRANEOUS, IT IS NOT MASKED 
* 

MM050 LDX L3 *-* RESTORE XR3. 

B 13 MM010-BASE RETURN. 

*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



DISPLACEMENT OF TABLE 

T1053. 

MASK OFF LEFT BYTE. 

1816/1053 CHARACTER TABLE 

1, SPACE 

32 

54 

76 

98 

= 

•a 
/ + 

TS 

vu 



MMC05 


DC 


T1053 


MMC10 


DC 


/OOFF 


T1053 


EQU 


* 




DC 


/FC21 




DC 


/DCD8 




DC 


/F4F0 




DC 


/D4D0 




DC 


/E0E4 




DC 


/C2C4 




DC 


/E604 




DC 


Z8646 




DC 


/BCDA 




DC 


/9E9A 




DC 


/B6B2 
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8CF32660 

8CF32670 

8CF32680 

8CF32690 

8CF32700 

8CF32710 

8CF32720 

8CF32730 

8CF32740 

8CF32750 

8CF32760 

8CF32770 

8CF32780 

8CF32790 

8CF32800 

8CF32810 

8CF32820 

8CF32830 

8CF32840 

8CF32850 

8CF32860 

8CF32870 

8CF32880 

8CF32890 

8CF32900 

8CF32910 

8CF32920 

8CF32930 

8CF32940 

8CF32950 

8CF32960 

8CF32970 

8CF32980 

8CF32990 

8CF33000 

8CF33010 

8CF33020 

8CF33030 

8CF33040 

8CF33050 

8CF33060 

8CF33070 

8CF33080 

8CF33090 

8CF33100 

8CF33110 

8CF33120 

8CF33130 

8CF33140 

8CF33150 

8CF33160 

8CF33170 

8CF33180 

8CF33190 

8CF3320O 

8CF33210 

8CF33220 

8CF33230 

8CF33240 

8CF33250 

8CF33260 

8CF33270 

8CF33280 

8CF33290 

8CF33300 

8CF33310 

8CF33320 

8CF33330 



2279484 
25 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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078A 





9692 


078B 





A2A6 


078C 





8006 


078D 





BEFE 


078E 





E282 


078F 





7E84 


0790 





5E5A 


0791 





7672 


0792 





5652 


0793 





6266 


0794 





40C0 


0795 





42 D6 


0796 





F2D2 


0797 





3E44 


0798 





1E1A 


0799 





3632 


079A 





1612 


079B 





2226 


07 9C 





0021 


079D 





02F6 



079E 
079E 
079F 
07A0 
07A1 
07A2 
07A3 
07A4 
07A5 
07A6 
07A7 
07A8 
07 A9 
07A9 
07AA 
07AB 
07AC 
07AE 



9024 
100D 
E823 
D023 
C301 
E022 
F020 
4818 
7002 
C01D 
4006 

C01B 
801D 
D001 

4400 0000 
001C 



DC 


/9692 


XW 


DC 


/A2A6 


ZY 


DC 


/8006 


,S 


DC 


/BEFE 


( 


DC 


/E282 


i 


DC 


/7E84 


J- 


DC 


/5E5A 


LK 


DC 


/7672 


NM 


DC 


/5652 


PO 


DC 


/6266 


RQ 


DC 


/40C0 


t# 


DC 


/42D6 


.* 


DC 


/F2D2 


. 


DC 


/3E44 


AS 


DC 


/1E1A 


CB 


DC 


/3632 


ED 


DC 


/1612 


GF 


DC 


Z2226 


IH 


DC 


/0021 


• 


DC 


/02F6 


C) 



LOZ 



*************************************************** 
*************************************************** 

* * 

* EXPLICIT RELOCATION ROUTINE * 

* * 



*************************************************** 

* 

THIS SUBROUTINE HILL RELOCATE THE CORE FUNCTION 
TEST TO THE HI 4K OF AN EXPLICITLY DEFINED BSM. 



CALL 



BSC L3 NA010-BASE 

THE ACCUMULATOR CONTAINS THE BSM NUMBER 
TO BE RELOCATED TO - 1 TO 8 . 

XR1 AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



IN. 



*************************************************** 
* * 

NA010 EQU * 

S NAC02 

SLA 13 

OR NAC04 

STO NAC06 

LD 3 ONE 

AND NAC08 

EOR NAC06 

SKP +- 

B NA020 

LD NAC06 

BSI NA100 

NA020 EOU * 

LD NAC06 

A NAC12 

STO 
NA030 BSI 



OF BSM TO MOVE TO. 

MOVE TO HI HALF BYTE. 

ADD BIT 3. 

SAVE. 

GET BSM ADDRESS OF 

MODULE THAT PROGRAM IS 

COMPARE TO ONE WANTED. 

SKIP NOT EQUAL. 

BRANCH IF PROGRAM IS HERE 

LOAD BITS 0-3 OF ADDRESS. 

EXECUTE MOVE ROUTINE. 

GENERATE ENTRY ADDRESS. 



NA030+1 

*-* BRANCH TO RELOCATED RTN. 

DC AA100-BASE RE-ENTRY ADDRESS. 

****** ********************************* ************ 

* * 

* CORE RELOCATE ROUTINE * 

* * 
*************************************************** 

* * 
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8CF33340 

8CF33350 

8CF33360 

8CF33370 

8CF33380 

8CF33390 

8CF33400 

8CF33410 

8CF33420 

8CF33430 

8CF33440 

8CF33450 

8CF33460 

8CF33470 

8CF33480 

8CF33490 

8CF33500 

8CF33510 

8CF33520 

8CF33530 

8CF33540 

8CF33550 

8CF33560 

8CF33570 

8CF33580 

8CF33590 

8CF33600 

8CF33610 

8CF33620 

8CF33630 

8CF33640 

8CF33650 

8CF33660 

8CF33670 

8CF33680 

8CF33690 

8CF33700 

8CF33710 

8CF33720 

8CF33730 

8CF33740 

8CF33750 

8CF33760 

8CF33770 

8CF33780 

8CF33790 

8CF33800 

8CF33810 

8CF33820 

8CF33830 

8CF33840 

8CF33850 

8CF33860 

8CF33870 

8CF33880 

8CF33890 

8CF33900 

8CF33910 

8CF33920 

8CF33930 

8CF33940 

8CF33950 

8CF33960 

8CF33970 

8CF33980 

8CF33990 

8CF34000 

8CF34010 
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CORE FUNCTION TEST 









* 


THIS SUBROUTINE MOVES THE FUNCTION TEST TO THE 


* 8CF34020 








* 


INDICATED 4K BLOCK. 


* 8CF34030 








* 






* 8CF34040 








* 


CALL 




# 8CF34050 








* 






* 8CF34060 








* 




BSI L3 NA100-BASE 


* 8CF34070 








* 






* 8CF34080 








* 




THE ACCUMULATOR CONTAINS BITS 0-3 OF THE 


* 8CF34090 








* 




*T0* ADDRESS. 


* 8CF34100 








* 






* 8CF34110 








* 




XR1 IS SAVED AND RESTORED. 


* 8CF34120 








* 






* 8CF34130 








* 




XR2 IS NOT USED. 


* 8CF34140 








* 






* 8CF34150 








* 




XR3 IS THE PSEUOO BASE REGISTER. 


* 8CF34160 








* 






* 8CF34170 








***** **************************************** ****** 8CF34180 








* 






* 8CF34190 


07AF 





0000 


NA100 


DC *-* 


8CF34200 


07B0 





E816 






OR NAC10 GENERATE FULL ADDRESS. 


8CF34210 


07B1 





DOOA 






STO NA120+1 INITIALIZE STORE INSTR. 


8CF34220 


07B2 





690D 






STX 1 NA130+1 SAVE XR1. 


8CF34230 


07B3 





6500 F012 






LDX LI NAC14 NUMBER OF WORDS TO MOVE. 


8CF34240 


07B5 





C301 






LD 3 ONE GET BASE AND DETERMINE 


8CF342 50 


07B6 





EOOF 






AND NAC08 BASE ADDRESS FOR 


8CF34260 


07B7 





E80F 






OR NAC10 MOVE. 


8CF34270 


07B8 





D001 






STO NA110+1 INITIALIZE STORE INSTR. 


8CF34280 


07 B9 





CDOO 0000 


NA110 


LDD LI *-* RELOCATE CORE TEST 


8CF34290 


07BB 





DDOO 0000 


NA120 


STD LI *-* ROUTINE. 


8CF34300 


07BD 





7102 






MDX 1 TWO INCREMENT INDEX REGISTER 


. 8CF34310 


07BE 





70FA 






B NA110 CONTINUE MOVE. 


8CF34320 


07BF 





6500 0000 


NA130 


LDX LI *-* RESTORE XR1. 


8CF34330 


07C1 





4F80 074D 


# 




B 13 NA100-BASE RETURN. 


8CF34340 
* 8CF34350 








************************************************* 


** 8CF34360 








# 






* 8CF34370 








* 


CONSTANTS AND WORK AREAS 


* 8CF34380 








* 






* 8CF34390 








*************************************************** 8CF34400 








* 






* 8CF34410 


07C3 





0001 


NAC02 


DC 1 INCREMENT. 


8CF34420 


07C4 





1000 


NAC04 


DC /1000 BIT 3, 4K. 


8CF34430 


07C5 




0001 


NAC06 


BSS 1 TEMPORARY STORAGE. 


8CF34440 


07C6 





FOOO 


NAC08 


DC /FOOO MASK TO LEAVE HI 4 BITS. 


8CF34450 


07C7 





OFFE 


NAC10 


DC /OFFE HI ADDRESS FOR MOVE. 


8CF34460 








* 




DISPLACEMENT FOR 


8CF34470 


07C8 





0077 


NAC12 


DC AA080-AA000 ENTRY ADDRESS OF AA080 


. 8CF34480 


F012 







NAC14 


EOU -4078 WORD COUNT FOR MOVE RTN. 


8CF34490 








* 






* 8CF34500 








*************************************************** 8CF34510 








*******#*#************#************************#*** 8CF34520 








* 






* 8CF34530 








* 


OSCILLATE RELOCATION ROUTINE 


* 8CF34540 








* 






* 8CF34550 








************************************************* 


** 8CF34560 








* 






* 8CF34570 








* 


THIS SUBROUTINE RELOCATES THE CORE FUNCTION 


* 8CF34580 








* 


PROGRAM WITHIN A BSM. IF THE PROGRAM IS IN THE 


* 8CF34590 








* 


HI 


4K, IT IS MOVED TO THE LOW 4K. IF IT IS IN 


* 8CF34600 








* 


THE 


LOW 4K, IT IS MOVED TO THE HI 4K. 


* 8CF34610 








* 






* 8CF34620 








* 


CALL - 


* 8CF34630 








* 






* 8CF34640 








* 




BSI L3 NB010-BASE 


* 8CF34650 








* 






* 8CF34660 








* 




XR1 AND XR2 ARE NOT USED. 


* 8CF34670 








* 






* 8CF34680 








* 




XR3 IS THE PSEUDO BASE REGISTER. 


* 8CF34690 



07C9 0000 
07CA C301 















07CB 
07CC 
07CD 
07CE 
07CF 
07D0 



EOFA 
F0F7 
D0F7 
40E0 
C0F5 
4F80 0767 



07D2 
07D3 
07D4 
07D5 
07D6 
07D7 
07D8 
07D9 
07DA 
07DB 



0000 
C301 
180D 
80ED 
100D 
E8EC 
DOEC 
40D5 
COEA 
4F80 0770 



* 

* UPON EXIT, THE ACCUMULATOR HAS BITS 0-3 OF * 

* THE NEW PROGRAM ADDRESS. * 

* * 
*************************************************** 

* * 

nb010 dc *-* entry. 

ld 3 one Change address 

and nac08 bit 3. 

e0r nac04 for regular bsm. 

sto nac06 save 

bsi na100 execute move routine. 

ld nac06 return with bits 0-3 of 

b 13 nb010-base new address in acc. 

*************************************************** 

* * 

* MOVE TO NEXT BSM RELOCATION ROUTINE * 

* * 
*************************************************** 

* * 

* 
* 
# 
* 
* 
* 
* 
* 
* 
* 
# 
* 
* 



* THIS SUBROUTINE RELOCATES THE CORE FUNCTION 

* PROGRAM TO THE HIGH 4K OF THE NEXT BSM. 
* 

* CALL - 
* 

BSI L3 NC010-BASE 



XR1 AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

UPON EXIT, THE ACCUMULATOR HAS BITS 0-3 OF 
THE NEW PROGRAM ADDRESS. 



*************************************************** 

* * 
NC010 DC *-* ENTRY. 

LD 3 ONE GET BASE ADDRESS OF CFT. 

SRA 13 ADDRESS BITS 0-2 ONLY IN 

A NAC02 ACCUMULATOR. INCREMENT 

SLA 13 RESTORE TO 0-2. 

OR NAC04 ADD BIT 3. 

STO NAC06 SAVE 

BSI NA100 EXECUTE MOVE. 

LD NAC06 RETURN WITH BITS 0-4 OF 

B 13 NC010-BASE NEW ADDRESS IN ACC. 

*************************************************** 

* * 

* MOVE ANYWHERE RELOCATION ROUTINE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE RELOCATES THE CORE FUNCTION * 

* PROGRAM DEPENDING ON SEVERAL FACTORS. IF THE * 

* PROGRAM IS IN THE HI 4K OF A BSM, IT WILL BE * 

* RELOCATED TO THE LOW 4K. IF IT IS ALREADY IN * 

* THE LOW 4K, IT WILL BE RELOCATED TO ANOTHER BSM.* 

$ * 

* 

* 

BSI L3 ND010-BASE * 

* 

XR1 AND XR2 ARE NOT USED. * 



* CALL 
# 



* 
* 
* 
* 
* 
* 
* 
* 



XR3 IS THE PSEUDO BASE REGISTER. 

UPON EXIT THE ACCUMULATOR HAS BITS 0-3 OF 
THE NEW PROGRAM ADDRESS. 
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8CF34810 

8CF34820 

8CF34830 

8CF34840 

8CF34850 

8CF34860 

8CF34870 

8CF34880 

8CF34890 

8CF34900 

8CF34910 

8CF34920 

8CF34930 

8CF34940 

8CF34950 

8CF34960 

8CF34970 

8CF34980 

8CF34990 

8CF35000 

8CF35010 

8CF35020 

8CF3503O 

8CF35040 

8CF35050 

8CF35060 

8CF35070 

8CF35080 

8CF35090 

8CF35100 

8CF35110 

8CF35120 

8CF35130 

8CF35140 

8CF35150 

8CF35160 

8CF35170 

8CF35180 

8CF35190 

8CF35200 

8CF35210 
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8CF35360 
8CF35370 
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070D 

07DE 

07DF 

07E0 

07E1 

07E2 

07E3 

07E3 

07E5 

07E5 

07E6 

07E7 

07E8 

07E9 

07EA 

07EB 

07EC 

07ED 

07E0 

07EE 

07EF 

07F0 

07F1 



0000 
C301 
1003 
4810 
7003 
40E6 

4F80 077B 

C301 
1800 
800B 
93F8 
4810 
7002 
40E6 
70F6 

C0D6 
D0D6 
40BF 
C0D4 
70F1 



07F2 





0000 


07F3 





1082 


07F4 





4804 


07F5 





7005 


07F6 





1801 


07F7 





48 04 


07F8 





700B 



07F9 
07FA 






4008 
7001 


07FB 







07FB 
07FC 
07FC 
07FD 








40CD 

801E 
D004 



*************************************************** 

* * 

ND010 



*-* 
3 ONE 
THREE 

NO 020 

NB010 

* 
13 ND010-BASE 

* 
3 ONE 

13 

NAC02 
3 AAC04-BASE 

ND030 

NC010 

N0015 

* 

NAC04 

NAC06 

NA100 

NAC06 

N0015 



ENTRY. 

IS PROGRAM IN HIGH 4K. 

TEST BIT 3. 

SKIP IF IN HIGH 4K. 

BRANCH TO RELOCATE. 

OSCILLATE. 

RETURN. 
MUST MOVE TO ANOTHER BSM. 
TEST IF IN LAST BSM. 
DETERMINE RESIDENT BSM. 
INCREMENT. 

COMPARE TO HIGHEST BSM 
SKIP IF NOT IN LAST BSM. 
BRANCH, MOVE TO FIRST BSM. 
MOVE TO NEXT BSM. 
RETURN. 

LOAD BASE ADDRESS FOR 8K. 

SAVE. 

EXECUTE MOVE ROUTINE. 
RETURN WITH BITS 0-4 OF 
NEW ADDRESS IN ACC. 



DC 

LD 

SLA 

SKP 

B 

BSI 
ND015 EOU 

B 
ND020 EOU 

LD 

SRA 

A 

S 

SKP 

B 

BSI 

B 
ND030 EOU 

LD 

STO 

BSI 

LD 

B 

*************************************************** 



THIS SUBROUTINE DETERMINES WHERE TO RELOCATE 
THE CORE FUNCTION TEST. 



CALL 



BSI 
DC 



DC 



L3 NE010-BASE 

XXXXX-BASE OSCILLATE RE-ENTRY 

ADDRESS PARAMETER. 
XXXXX-BASE TEST COMPLETE RE-ENTRY 

ADDRESS PARAMETER. 



XR1 AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



4/9/69 



*************************************************** 
* * 

NE010 DC *-* ENTRY. 

SLT TWO RESTORE HIGH/LOW FLAGS. 

SKP E SKIP IF IN LOW HALF OF BSM 

B NE020 OSCILLATE IF IN HIGH HALF. 

SRA ONE TEST IF IN LAST BSM TOO. 

SKP E SKIP IF NOT LAST. 

B NE100 BRANCH LOW, LAST. 



* FULL, NORMAL TEST. 

* MOVE CORE TEST TO NEXT 



BSI 
B 
* 

* OSCILLATE 

* 

NE020 EOU 
BSI 

NE030 EQU 
A 
STO 



NC010 
NE030 

INTERFACE. 



NB010 
* 

NEC02 
NE040+1 



BSM. 

MOVE TO NEXT BSM. 

GO TO RE-ENTER ROUTINE. 



OSCILLATE. 

COMPUTE RE-ENTRY ADDRESS 
AND PUT IN BRANCH OPERAND. 
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8CF35380 
8CF35390 
8CF35400 
8CF35410 
8CF35420 
8CF35430 
8CF35440 
8CF35450 
8CF35460 
8CF35470 
8CF35480 
8CF35490 
8CF35500 
8CF35510 
8CF35520 
8CF35530 
8CF35540 
8CF35550 
8CF35560 
8CF35570 
8CF35580 
8CF35590 
8CF35600 
8CF35610 
8CF35620 
8CF35630 
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8CF35670 
8CF35680 
8CF35690 
8CF35700 
8CF35710 

8CF35720 
8CF35730 
8CF35740 
8CF35750 
8CF35760 
8CF35770 
8CF35780 
8CF35790 
8CF35800 
8CF35810 
8CF35820 
8CF35830 
8CF35840 
8CF35850 
8CF35860 
8CF35870 
8CF35880 
8CF35890 
8CF35900 
8CF35910 
8CF35920 
8CF35930 
8CF35940 
8CF35950 
8CF35960 
8CF35970 
8CF35980 
8CF35990 
8CF36000 
8CF36010 
8CF36020 
8CF36030 
8CF36040 
8CF36050 
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07FE C780 0790 

0800 D002 

0801 4400 0000 
0803 0000 
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0804 







0804 





COED 


0805 





8016 


0806 





DOEB 


0807 







0807 





4005 


0808 





70F3 


0809 





0000 


080A 





COFE 


080B 





D0E6 


080C 





70EE 


08 OD 





0000 


080E 





COFE 


080F 





D0E2 


0810 





70F6 


0811 





0000 


0812 





COFE 


0813 





DODE 


0814 





1082 


0815 





48 04 


0816 





70E4 


0817 





CODA 


0818 





8003 


0819 





D0D8 


081A 





70EO 



081B 0077 
08 1C 0001 



LD 


13 NE010- 


BASE 


GET RE-ENTRY ADDRESS ANC 


) 


8CF36060 


STO 


NE050 




STORE IN CALL. 




8CF36070 


NE040 BSI 


L *-* 




BRANCH TO RE-ENTRY ADDRESS 


8CF36080 


NE050 DC 

* 


*-* 








8CF36090 
8CF36100 


* PATTERN 


TEST COMPLETE. 






8CF36110 


>f> 










8CF36120 


NE100 EQU 


* 








8CF36130 


LD 


NE010 




GET SECOND PARAMETER AS 




8CF36140 


A 


NEC04 




RETURN ADDRESS. 




8CF36150 


STO 


NE010 








8CF36160 


NE110 EQU 


* 








8CF36170 


BSI 


ND010 




MOVE TO LOWEST BSM. 




8CF36180 


B 


NE030 




BRANCH TO RE-ENTER. 




8CF36190 


* 










8CF36200 


* OSCILLATE ONLY. 








8CF36210 


* 










8CF36220 


NE200 DC 


*-* 








8CF36230 


LD 


NE200 




MAKE IT APPEAR AS NORMAL 




8CF36240 


STO 


NE010 




ENTRY. 




8CF36250 


B 


NE020 




OSCILLATE. 




8CF36260 


* 










8CF36270 


* LOOP ON 


PATTERN TEST ENTRY. 




8CF362 80 


* 










8CF36290 


NE300 DC 


*-* 








8CF36300 


LD 


NE300 




MAKE IT APPEAR AS NORMAL 




8CF36310 


STO 


NE010 




ENTRY. 




8CF36320 


B 


NE110 




MOVE ANYWHERE. 




8CF36330 


* 










8CF36340 


* EXPLICIT 


BSM TEST 


ENTRY. 




8CF36350 


* 










8CF36360 


NE400 DC 


*-* 








8CF36370 


LD 


NE400 




MAKE IT APPEAR AS 




8CF36380 


STO 


NE010 




NORMAL ENTRY. 




8CF36390 


SLT 


TWO 




RESTORE HIGH/LOW FLAGS. 




8CF36400 


SKP 


E 




SKIP IF IN LOW HALF. 




8CF36410 


B 


NE020 




OSCILLATE. 




8CF36420 


LD 


NE010 




GET SECOND PARAMETER 




8CF36430 


A 


NEC04 




AS RETURN ADDRESS. 




8CF36440 


STO 


NE010 








8CF36450 


B 


NE020 




OSCILLATE. 




8CF36460 


*************************************************** 


8CF36470 


* 








* 


8CF36480 


* CONSTANTS AND WORK AREAS 


* 


8CF36490 


* 








* 


8CF36500 


************************ 


:*************************** 


8CF36510 


* 








* 


8CF36520 


NEC02 DC 


AA080- 


-AAOOO ENTRY ADDRESS OF AA080 


. 


8CF36530 


NEC04 DC 


1 




ONE, INCREMENT. 




8CF36540 


* 








* 


8CF36550 


********** 


I***************************************** 


8CF36560 


********************************************* **#*■ 


** 


8CF36570 


* 








* 


8CF36580 


* BIT FAILURE TALLEY SUBROUTINE 


* 


8CF36590 


* 








* 


8CF36600 


*************************************************** 


8CF36610 


* 








# 


8CF36620 


* CALL - 








* 


8CF36630 


* 








* 


8CF36640 


* BSI 


L3 PQ010- 


-BASE 


* 


8CF36650 


* 








* 


8CF36660 


* THE 


KNOWN TEST PATTERN IS AT SUC88 IN THE 


* 


8CF36670 


* LINE 


i BUFFER. 


THE 


FAILURE PATTERN IS IN 


* 


8CF366 80 


* SUC90 IN THE 1 


_INE 


BUFFER. 


* 


8CF36690 


* 








* 


8CF36700 


* XR1 


IS SAVED AND RESTORED. 


* 


8CF36710 


* 








* 


8CF36720 


* XR2 


IS SAVED / 


\ND f 


RESTORED. 


* 


8CF36730 
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081D 0000 



081E OFOO 0026 

0820 1807 

0821 4804 
7003 
C301 
180D 
7002 



* 

* 
* 
* 

* 

PQ010 

* 

* DETE 

* 



0822 
0823 
0824 
0825 
0826 
0826 
0827 
0828 
0828 
08 29 



C3F9 
9052 

A052 
18D0 



082A 8051 
082B 8301 
082C D050 



* 

XR3 IS THE PSEUDO BASE REGISTER. * 

* 

3/11/69 * 

##$*#:(!****#**********#*********************** 

DC *-* ENTRY. 

RMINE BASE ADDRESS OF TABLE TO UPDATE. 

XIO L3 AAC50-BASE CHECK FOR EXTERNAL BSM. 

SRA SEVEN 

SKP E SKIP IF INTERNAL. 

B PQ020 BRANCH IF EXTERNAL. 

LO 3 ONE 

SRA 13 

B PQ030 

EQU * 

LD 3 AAC10-BASE USE EXTERNAL BSM ID. 

S PQC02 

EOU * 

M P0C04 COMPUTE ADDRESS OF FIRST 

RTE 16 WORD OF STORAGE TABLE 

A P0C06 AND SAVE AS INDIRECT 

A 3 ONE ADDRESS. 

STO PQC08 
* 

* INDIRECT ADDRESS IS POINTING TO DROP BIT 0. 
* 



PQ020 



PQ030 



082D 
082E 
082F 
0830 
0831 
08 32 
0833 
0834 
0835 
08 36 
0837 
0838 
0838 
08 39 
083A 
083C 
083D 
083E 
083F 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
084A 
084B 
084D 
084E 
084F 
0850 
0852 
0853 
0854 
0855 



C050 
8301 
D010 
C04E 
8301 
D008 
693B 
6A3C 
61F5 
6288 
2000 



C049 

D047 

C500 0000 

1A00 

E045 

D045 

C500 0000 



































1A00 

E040 

9040 

4818 

7017 

4808 

700E 

C034 

8030 

D032 

C780 081B 

802C 

4801 

7024 

D780 081B 

C02A 

8026 

D028 

700A 



PQ050 



PQ060 



PQ070 



LD 

A 

STO 

LD 

A 

STO 

STX 

STX 

LDX 

LDX 

LDS 

EOU 

LD 

STO 

LD 

SRA 

AND 

STO 

LD 

SRA 

AND 

S 

SKP 

B 

SKP 

B 

LD 

A 

STO 

LD 

A 

SKP 

B 

STO 

LD 

A 

STO 

B 



PQC10 

ONE 

P0070+1 

PQC12 

ONE 

P0060+1 

PQ120+1 

PQ130+1 

-11 

-120 



* 

P0C18 

PQC16 

*-* 

ZERO 

PQC20 

PQC22 

*-* 

ZERO 

PQC20 

P0C22 

+- 

PQ090 

+ 

P0080 

P0C08 

PQC02 

PQC08 
13 P0C08-BASE 

PQC02 



P0140 
13 P0C08-BASE 

PQC08 

PQC02 

PQC08 

PQiOO 



LI 
2 



LI 
2 



COMPUTE ABSOLUTE ADDRESS 
OF TEST PATTERN AND 
INITIALIZE OPERAND. 
COMPUTE ABSOLUTE ADDRESS 
OF FAILURE PATTERN AND 
INITIALIZE OPERAND. 
SAVE XR1. 
SAVE XR2. 

USE XR1 AS A COUNTER. 
XR2 POINTS TO LEFT BYTE. 
SET OVERFLOW STATUS OFF. 

INITIALIZE 

COUNTER. 

LOAD BIT EQUIVALENT 

OF FAILURE PATTERN. 

MASK POSSIBLE LEF.T BYTE. 

SAVE. 

LOAD BIT EQUIVALENT 

OF TEST PATTERN. 

MASK POSSIBLE LEFT BYTE. 

COMPARE. 

SKIP IF PICK OR DROP. 

BRANCH NO PROBLEM. 

SKIP IF PICK. 

BRANCH DROP. 

INCREMENT INDIRECT ADDRESS 

TO PICK STORAGE. 

INCREMENT PICK COUNTER. 

SKIP NO OVERFLOW. 
BRANCH ON OVERFLOW. 
UPDATE COUNTER. 
INCREMENT INDIRECT 
ADDRESS TO NEXT ENTRY. 

BRANCH TO CONTINUE. 
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8CF36740 

8CF36750 

8CF36760 

8CF36770 

8CF36780 

8CF36790 

8CF36800 

8CF36810 

8CF36820 

8CF36830 

8CF36840 

8CF36850 

8CF36860 

8CF36870 

8CF36880 

8CF36890 

8CF36900 

8CF36910 

8CF36920 

8CF36930 

8CF36940 

8CF36950 

8CF36960 

8CF36970 

8CF369S0 

8CF36990 

8CF37000 

8CF37010 

8CF37020 

8CF37030 

8CF37040 

8CF37050 

8CF37060 

8CF37070 

8CF37080 

8CF37O90 

8CF37100 

8CF37110 

8CF37120 

8CF37130 

8CF37140 

8CF37150 

8CF37160 

8CF37170 

8CF37180 

8CF37190 

8CF37200 

8CF37210 

8CF37220 

8CF372 30 

8CF37240 

8CF372 50 

8CF37260 

8CF37270 

8CF37280 

8CF37290 

8CF37300 

8CF37310 

8CF37320 

8CF37330 

8CF37340 

8CF37350 

8CF37360 

8CF37370 

8CF37380 

8CF3 7390 

8CF37400 

8CF37410 
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CORE FUNCTION TEST 



0856 









0856 





C780 


081B 


0858 





8021 




0859 





4801 




085A 





7019 




085B 





D780 


08 IB 


085D 









085D 





COIF 




085E 





8021 




085F 





D01D 





0860 
0860 
0861 
0862 
086 3 
0864 

0865 
0866 
0867 
0868 
086 9 
086A 
086B 



C020 
9018 
4808 
7008 
D01C 
7200 
7278 
7288 
7001 
7101 
70CF 
7002 



086C 
086C 7101 
086D 70CA 



086E 
0870 
0872 
0874 
0874 
0875 
0876 



6500 0000 
6600 0000 
4F80 07BB 

COFC 
D001 
6600 0000 



0878 4FO0 39F 



087A 0001 
087B 0024 

087C 0C6C 
087D 0001 

087E 0B91 

087F 0B9D 
0880 0002 



0881 
0882 



0001 

0004 



0883 OOFF 



0884 



0001 



PQ080 



PQ090 



EQU 

LD 

A 

SKP 

B 

STO 

EQU 

LD 

A 

STO 



13 



13 



PQC08-BASE 

PQC02 



PQ140 

PQC08-BASE 

* 

PQC08 

PQC14 

PQC08 



DROP. 
INCREMENT DROP COUNTER. 

SKIP NO OVERFLOW. 
BRANCH ON OVERFLOW. 
UPDATE COUNTER. 

INCREMENT INDIRECT ADDRESS 
BY TWO. 



* DONE UPDATING AN ENTRY. 

* 

PQIOO 



EQU 

LD 

S 

SKP 

B 

STO 

MDX 

MDX 

MDX 

MDX 

MDX 

B 

B 



* 

PQC16 

PQC02 

+ 

PQ110 

PQC16 

ZERO 

120 

-120 

*+l 

ONE 

PQ060 

PQ120 



* LOOP COUNTER ZERO. 
* 

PQ110 EQU * 

MDX 1 ONE 
B PQ050 

* 

* SUBROUTINE DONE. 
* 



DECREMENT LOOP COUNTER. 

SKIP NOT ZERO TO CONTINUE. 

BRANCH IF ZERO. 

UPDATE COUNTER. 

IF RIGHT BYTE SKIP. 

MAKE RIGHT BYTE AND SKIP. 

MAKE LEFT BYTE AND SKIP. 

SKIP. 

UPDATE WORD POINTER. 

LOOP. 

BRANCH OUT WHEN DONE. 



DECREMENT WORD POINTER. 
BRANCH NOT DONE. 



PQ120 
PQ130 



LDX 
LDX 
B 

PQ140 EQU 
LD 
STO 

PQ150 LDX 
B 



LI 
L2 

13 



L2 
L3 



*-* 
*-* 

PQ010-BASE 

* 

PQ130+1 

PQ150+1 

#-* 

HZ500-BASE 



RESTORE XR1. 
RESTORE XR2. 
RETURN. 

RESTORE XR2. 



OVERFLOW EXIT. 

A************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
****##«#***«#************************#************* 

* * 

ONE. 

NO. WORDS IN EACH TABLE. 

RELATIVE BASE ADDRESS OF 

BIT FAIL. STORAGE TABLE. 
INDIRECT ADDRESS. 



1 
36 

PXK20-BASE 
1 



DC 

DC 
DC 
BSS 
DC 

DC 
BSS 



RELATIVE BASE ADDRESS OF 
SUC88+11-BASE TEST PATTERN. 

RELATIVE BASE ADDRESS OF 
SUC90+11-BASE FAILURE PATTERN. 



PQC02 DC 

PQC04 DC 

* 

PQC06 DC 

PQC08 BSS 

* 

PQC10 

* 

PQC12 
PQC14 

PQC16 
PQC18 
PQC20 
PQC22 

* * 
$#$***#$***************#**********************#**** 
**#******#«*##**#**#***«**#*#****#«**»************* 

* * 

* FAILURES BY ADDRESS LINE TALLEY SUBROUTINE * 



2 

1 

4 

/OOFF 

1 



TWO. 

COUNTER. 

FOUR. 

MASK TO LEAVE RIGHT BYTE. 

STORAGE AREA. 



PART NO. 2279484 
PAGE 28A 



8CF37420 
8CF37430 
8CF3 7440 
8CF37450 
8CF37460 
8CF37470 
8CF37480 
8CF37490 
8CF37500 
8CF37510 
8CF37520 
8CF37530 
8CF37540 
8CF37550 
8CF37560 
8CF37570 
8CF37580 
8CF37590 
8CF37600 

8CF37610 

8CF37620 

8CF37630 

8CF37640 

8CF37650 

8CF37660 

8CF37670 

8CF37680 

8CF37690 

8CF37700 

8CF37710 

8CF37720 

8CF37730 

8CF37740 

8CF37750 

8CF37760 

8CF37770 

8CF37780 

8CF37790 

8CF37800 

8CF37810 

8CF37820 

8CF37830 

8CF37840 

8CF37850 

8CF37860 

8CF37870 

8CF37880 

8CF37890 

8CF37900 

8CF37910 

8CF37920 

8CF37930 

8CF37940 

8CF37950 

8CF37960 

8CF37970 

8CF37980 

8CF37990 

8CF38000 

8CF38010 

8CF38020 

8CF38030 

8CF38040 

8CF38050 

8CF38060 

8CF38070 

8CF3808O 

8CF38090 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 

431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


28 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
28A 



oooooooooooooooooooooooooooooooooc 



o«o oooooooooooooooooooooooooooooooc 
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CORE FUNCTION TEST 









* 














* 


8CF38100 








*************************************************** 


8CF38110 








* 














* 


8CF38120 








* 


THIS SUBROUTINE TAUEYS THE FAILURES BY ADDRESS 


* 


8CF38130 








* 


LINE. TOTALS ARE 


KEPT 


IN MATRIX PXK30. IT ALSO* 


8CF38140 








* 


TALLEYS 


FAILURES BY SENSE/INHIBIT BLOCK IN 


* 


8CF38150 








* 


MATRIX PXK40. 






# 


8CF38160 








* 














* 


8CF38170 








* 


CALL - 










* 


8CF38180 








* 




BSI 


L3 


PR010- 


BASE 




* 


8CF38190 








* 














* 


8CF38200 








* 




XR1 


CONTAINS THE FAILURE ADDRESS. 


* 


8CF38210 








* 














* 


8CF38220 








* 




XR2 


IS NOT USED. 




* 


8CF382 30 








* 














* 


8CF38240 








* 




XR3 


IS THE PSEUDO BASE REGISTER. 


* 


8CF38250 








# 














* 


8CF38260 








*************************************************** 


8CF38270 








* 














* 


8CF38280 


0885 





0000 


PR010 


DC 




*-# 




ENTRY. 




8CF38290 


0886 





6940 






STX 


1 


PR040+ 


1 


SAVE XR1 AND ADDRESS. 




8CF38300 


0887 





OFOO 0026 






XIO 


L3 


AAC50- 


BASE 


CHECK FOR EXTERNAL BSM. 




8CF38310 


0889 





1807 






SRA 




SEVEN 








8CF38320 


088A 





4804 






SKP 




E 




SKIP IF INTERNAL TEST. 




8CF38330 


088B 





7003 






B 




PR014 




BRANCH EXTERNAL. 




8CF38340 


088C 





C301 






LD 


3 


ONE 




LOAD INTERNAL ID. 




8CF3 8350 


088D 





180D 






SRA 




13 








8CF38360 


088E 





7002 






B 




PR016 








8CF38370 


088F 







PR014 


EOU 




* 








8CF38380 


088F 





C3F9 






LD 


3 


AAC10- 


BASE 


USE EXTERNAL BSM ID. 




8CF38390 


0890 





9040 






S 




PRC06 








8CF38400 


0891 







PR016 


EQU 




* 








8CF38410 


0891 





D045 






STO 




PRC18 




SAVE FOR S/I UPDATE. 




8CF38420 


0892 





A03F 






M 




PRC08 




LINE FAILURE STORAGE 




8CF38430 


0893 





18D0 






RTE 




16 




TABLE AND SAVE AS 




8CF38440 


08 94 





803E 






A 




PRCIO 




BASIC INDIRECT ADDRESS. 




8CF3 8450 


0895 





8301 






A 


3 


ONE 








8CF38460 


0896 





D039 






STO 




PRC04 








8CF384 70 


0897 





2000 






LDS 









RESET OVERFLOW STATUS. 




8CF38480 


0898 





6103 






LDX 


1 


THREE 




USE XR1 AS A COUNTER. 




8CF38490 


0899 





C02D 






LD 




PR040+1 


LOAD ADDRESS PATTERN AND 




8CF38500 


089A 





188D 






SRT 




13 




PUT BITS 3-15 IN Q. 




8CF38510 


089B 







PR020 


EOU 




* 








8CF38520 


089B 





1810 






SRA 




16 




CLEAR ACC. FOR ADDR. GEN 


. 


8CF38530 


089C 





1083 






SLT 




THREE 




COMPUTE ADDRESS AND 




8CF38540 


089D 





8032 






A 




PRC04 




STORE IN INDIRECT 




8CF38550 


089E 





D035 






STO 




PRC12 




ADDRESS PRC12. 




8CF38560 


08 9F 





C780 0872 






LD 


13 


PRC12- 


BASE 


INCREMENT HI X, LO X AND 


8CF38570 


08A1 





802F 






A 




PRC06 




HI Y STORAGE. 




8CF38580 


08A2 





4801 






SKP 









SKIP NO OVERFLOW. 




8CF38590 


08A3 





702A 






B 




PR060 




BRANCH IF COUNTER FULL. 




8CF38600 


08 A4 





D780 0872 






STO 


13 


PRC12- 


•BASE 






8CF38610 


08A6 





C029 






LD 




PRC04 




UPDATE BASE 




8CF38620 


08A7 





802D 






A 




PRC14 




INDIRECT 




8CF38630 


08A8 





0027 






STO 




PRC04 




ADDRESS. 




8CF38640 


08A9 





71FF 






MDX 


1 


-1 




DECREMENT COUNTER. 




8CF38650 


08AA 





70F0 






B 




PR020 




LOOP. 




8CF38660 


08AB 





1810 






SRA 




16 








8CF38670 


08AC 





1084 






SLT 




FOUR 








8CF38680 


08 AD 





8022 






A 




PRC04 








8CF3 8690 


08AE 





D025 






STO 




PRC12 








8CF38700 


08AF 





C780 0872 






LD 


13 


PRC12- 


•BASE 






8CF38710 


08B1 





801F 






A 




PRC06 








8CF38720 


08B2 





4801 






SKP 









SKIP NO OVERFLOW. 




8CF38730 


08B3 





701A 






B 




PR060 




BRANCH IF COUNTER FULL. 




8CF38740 


08 B4 





D7H0 0872 


* 


UPD 


STO 
ATE . 


13 
SENS 


PRC12- 
E/INHIf 


-BASE 
1 IT F 


AILURE STORAGE. 




8CF38750 
8CF38760 
8CF38770 



08B6 





C020 






LD 


08 B7 





1001 






SLA 


08B8 





8010 






A 


08 B9 





8301 






A 


08BA 





D015 






STO 


08 BB 





COOB 






LD 


08BC 





180C 






SRA 


08 BO 





4804 






SKP 


08BE 





700B 






B 


08 BF 









PR030 


EQU 


08BF 





C780 


086E 




LD 


08C1 





800F 






A 


08C2 





4801 






SKP 


08C3 





700A 






B 


08C4 





D780 


086E 




STO 


08C6 





65 00 


0000 


PR040 


LOX 


08C8 





4F80 


0823 




B 


08CA 









PR050 


EOU 


08CA 





C005 






LD 


08CB 





8005 






A 


08CC 





D003 






STO 


08CD 





70F1 






8 


08CE 









PR060 


EQU 


08CE 





4F00 


039F 




B 



LOAD STORAGE AREA ID. 
FAILURE STORAGE FOR THIS 
PATTERN TEST. 



TEST FAILURE ADDRESS FOR 
HI OR LO 4K. 
SKIP IF LOW 4K. 
BRANCH IF HIGH 4K. 



08D0 0001 
0801 0001 
08D2 0028 


PRC04 BSS 

PRC06 DC 

PRC08 DC 

* 

PRCIO OC 

PRC12 BSS 

PRC14 DC 

* 

PRC16 DC 

PRC18 BSS 

* 


1 
1 

40 


0803 0D8C 
08D4 0001 
0805 0008 


PX 

1 

8 


0806 OECC 

0807 0001 


PX 
1 



PRC18 

ONE 

PRC16 
3 ONE 

PRC04 

PR040+1 

12 

E 

PR050 

* 
13 PRC04-BASE INCREMENT ENTRY 

PRC06 IN TABLE. 

SKIP NO OVERFLOW. 

PR060 BRANCH IF COUNTER FULL. 
STO 13 PRC04-BASE 

LI *-* RESTORE XR1 
13 PR010-BASE AND RETURN. 

* 

PRC04 INCREMENT INDIRECT 

PRC06 ADDRESS. 

PRC04 

PR030 BRANCH TO CONTINUE UPDATE. 

* 
L3 HZ500-BASE BRANCH TO OVERFLOW SUBR. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 

WORK AREA. 
ONE. 
FORTY. 
RELATIVE ADDRESS OF 

PXK30-BASE STORAGE TABLE. 

INDIRECT ADDRESS. 

EIGHT 

RELATIVE ADDRESS OF 
PXK40-BASE STORAGE TABLE PXK40. 

TEMPORARY STORAGE. 

* 

*************************************************** 
*************************************************** 

* * 

* LOOP AND TEST FAILURE COUNTER UPDATE SUBROUTINE * 

* * 
*************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 



* THIS SUBROUTINE TALLEYS LOOPS OF A ROUTINE OR 

* FAILURES BY ROUTINE. 

* 

* CALL - 
* 



BSI L3 PS010-BASE 

THE ACCUMULATOR CONTAINS THE RELATIVE BASE 
ADDRESS OF THE AREA TO UPDATE MINUS ONE. 

XR1 IS NOT USED. 

XR2 CONTAINS THE TEST PATTERN NUMBER. 

XR3 IS THE PSEUDO BASE REGISTER. 



08D8 0000 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 
*************************************************** 

* * 
PS010 DC *-* ENTRY. 
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8CF38780 
8CF38790 
8CF38800 
8CF38810 
8CF38820 
8CF38830 
8CF38840 
8CF38850 
8CF38860 
8CF38870 
8CF38880 
8CF38890 
8CF38900 
8CF38910 
8CF38920 
8CF38930 
8CF38940 
8CF38950 
8CF38960 
8CF38970 
8CF38980 
8CF38990 
8CF39000 
8CF39010 
8CF39020 
8CF39030 
8CF39040 
8CF39050 
8CF39060 
8CF39070 
8CF39080 
8CF39090 
8CF39100 
8CF39110 
8CF39120 
8CF39130 
8CF39140 
8CF39150 
8CF39160 
8CF39170 
8CF39180 
8CF39190 
8CF39200 
8CF39210 
8CF39220 
8CF39230 
8CF39240 
8CF39250 
8CF39260 
8CF39270 
8CF39280 
8CF39290 
8CF39300 
8CF39310 
8CF39320 
8CF39330 
8CF39340 
8CF39350 
8CF39360 
8CF39370 
8CF39380 
8CF39390 
8CF39400 
8CF39410 
8CF39420 
8CF39430 
8CF39440 
8CF39450 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


29 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
29A 
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08D9 
08DA 
08DB 
08DD 
08DE 
080F 
08E0 
08E1 
08E2 
08E3 
08E3 
08E4 
08E5 
08E5 
08E6 
08ET 

08E8 
08 E 9 
08EA 
08EB 
08ED 
08EE 
08EF 
08F0 
08F2 
08F3 
08F4 
08F5 
08F6 
08F7 
08F8 
08F9 
08FA 
08FA 
08FC 
08FC 
08FE 
08FE 
08FF 
0900 
0901 
0902 
0904 
0905 



DOFD 
2000 

OFOO 0026 
1807 



4804 

7003 

C301 

180D 
7002 


C3F9 
90EC 


A020 
18 DO 
80EF 

8301 
D002 

D006 

C600 0000 

80E3 

4801 

700C 

D600 0000 

C0E4 

F01F 

4820 

7004 

0B26 

1805 

4804 
7004 

4F80 0876 



4F00 039F 



6A0A 

C009 

E806 

0007 

4700 0691 
08A6 
70F4 



0906 





0009 


0907 





OAOO 


0908 





OOOA 


0909 





0000 


090A 





0A08 


090B 





0000 


090C 





2731 


090D 





1212 


090E 





0033 


090F 





2624 


0910 





2723 



PS014 



PS016 



PS020 



PS030 



PS040 
PS050 
PS060 



STO 

IDS 

XIO 

SRA 

SKP 

B 

LD 

SRA 

B 

EOU 

LD 

S 

EQU 

M 

RTE 

A 

A 

STO 

STO 

LD 

A 

SKP 

B 

STO 

LD 

EOR 

SKP 

B 

XIO 

SRA 

SKP 

B 

EOU 

B 

EOU 

B 

EOU 

STX 

LD 

OR 

STO 

BSI 

DC 



PRC18 

L3 AAC50-BASE 
SEVEN 

E 

PS014 
3 ONE 

13 

PS016 

* 
3 AAC10-BASE 

PRC06 

* 

PSC06 

16 

PRC18 

3 ONE 

PS020+1 
PS030+1 

*-* 

PRC06 



PS050 

*-* 

PRC18 

PSC14 

Z 

PS040 

AAC50-BASE 

FIVE 

E 

PS060 

* 

PS010-BASE 

# 

HZ500-BASE 

* 

PSC12 

PSC12 

PSC08 

PSC12 

MA010-BASE 
PSC10-BASE 
PS040 



L2 



L2 



13 



L3 



L3 



SAVE TABLE BASE ADDRESS. 
RESET OVERFLOW STATUS. 
CHECK FOR EXTERNAL TEST. 

SKIP IF OFF. 
BRANCH IF ON. 
TALLEY FOR THIS BSM. 

BRANCH TO CONTINUE. 

TALLEY FOR EXTERNAL 
BSM. 

COMPUTE ABSOLUTE BASE 
ADDRESS OF TABLE TO 
UPDATE. 

STORE IN INSTRUCTION 

OPERANDS. 

INCREMENT TABLE 

ENTRY. 

SKIP NO OVERFLOW. 

BRANCH IF COUNTER FULL. 

IF THIS IS A LOOP 
COUNTER UPDATE, CHECK 
FOR PASS COMPLETE 
MESSAGE. 

SEND PASS COMPLETE 
MESSAGE IF LOOP ON 
ROUTINE SWITCH IS 
ON. 

RETURN. 

BRANCH TO OVERFLOW SUBR. 

PUT ROUTINE ID. IN PASS 
COMPLETE MESSAGE. 



WRITE MESSAGE. 



EXIT. 



*************************************************** 



* CONSTANTS AND WORK AREAS 

* 

************************** 

* 

* 

* 

* 

* 
* 
PSC06 DC 



!************************ 

* 



THE FOLLOWING CONSTANT REFLECTS THE NUMBER OF 
WORDS IN EACH TABLE OF PXK50 AND PXK60 AND WILL 
HAVE TO BE CHANGED IF THE SIZE OF THE TABLES ARE 
CHANGED. 



9 NO. WORDS IN EACH TABLE. 

PSC08 DC /OAOO MASK FOR ERROR MESSAGE. 

PSC10 DC 10 WORD COUNT. 

PSC12 DC /OOOO OX 

DC /0A08 08 

DC /OOOO 

DC /2731 PA 

DC /1212 SS 

OC /0033 C 

DC /2624 OM 

DC Z2723 PL 
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8CF39460 
8CF39470 
8CF39480 
8CF39490 

8CF39500 
8CF39510 
8CF39520 
8CF39530 
8CF39540 
8CF39550 
8CF39560 
8CF39570 
8CF39580 
8CF39590 
8CF39600 
8CF39610 
8CF39620 
8CF39630 
8CF39640 
8CF39650 
8CF39660 
8CF39670 
8CF39680 
8CF39690 
8CF39700 
8CF39710 
8CF39720 
8CF39730 
8CF39740 
8CF39750 
8CF39760 
8CF39770 
8CF39780 
8CF39790 

8CF39800 
8CF39810 
8CF39820 
8CF39830 
8CF39840 
8CF39850 
8CF39860 
8CF39870 
8CF39880 
8CF39890 
8CF39900 
8CF39910 
8CF39920 
8CF39930 
8CF39940 
8CF39950 
8CF39960 
8CF39970 

8CF39980 
8CF39990 
8CF40000 
8CF40010 
8CF40020 
8CF40030 
8CF40040 
8CF40050 
8CF40060 
8CF40070 
8CF40080 
8CF40090 
8CF40100 
8CF40110 
8CF40120 
8CF40130 
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CORE FUNCTION TEST 

0911 3513 

0912 3500 

0913 0F24 



0914 
0915 
0917 
0918 

0919 

091B 
091D 
091E 
09 IF 
0920 
0922 
0923 
0924 
0926 



OOOO 

C700 0C6A 
1003 
D001 

6600 OOOO 
C700 0C6B 
8301 
D002 
10A2 

DEOO OOOO 
72FE 
70FC 

D700 0BB3 
4F80 08B2 



/3513 ET 

/3500 E 

PXK60-BASE LOOP COUNTER. 



DC 

DC 

PSC14 DC 

* * 

*************************************************** 
*************************************************** 

* 



* CLEAR SUMMARY STORAGE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE CLEARS THE SUMMARY STORAGE AREA * 

* AT THE END OF THE PROGRAM. * 

* * 

* 

* 



* CALL - 
* 



BSI L3 PT010-BASE 

XR1 IS NOT USED. 

XR2 SHOULO BE UNSPECIFIED. 

XR3 IS THE PSEUDO BASE REGISTER. 



* 

* 
* 
* 
* 
* 
* 
* 

*************************************************** 

* 



PT010 DC 

LD 

SLA 

STO 
PT020 LDX 

LD 

A 

STO 

SLT 
PT030 STD L2 *-* 

MDX 2 -2 



*-* ENTRY. 
L3 PXK04-BASE COMPUTE NUMBER OF 
THREE WORDS TO ZERO AND 
PT020+1 REGISTER TWO. 
L2 *-* 

L3 PXK06-BASE COMPUTE ABSOLUTE BASE 
3 ONE ADDRESS AND STORE IN 
PT030+1 INSTRUCTION OPERAND. 
34 ZERO ACCUMULATOR AND 0. 

ZERO EACH WORD. 
DECREMENT COUNTER. 



B PT030 LOOP. 

STO L3 SVC02-BASE RESET HEADING SWITCH. 

B 13 PT010-BASE RETURN. 

*************************************************** 

* * 

* COMMON SUBROUTINES FOR SAXXX ROUTINES * 

* * 

*************************************************** 

* 



0928 





OOOO 


SA010 


DC 




*-* 




ENTRY. 


0929 





0B26 






XIO 


3 


AAC50- 


BASE 


SENSE DATA ENTRY SWS 


092A 





1008 






SLA 




EIGHT 




TEST SWITCH 8, EXTERNAL 


092B 





4828 






SKP 




+ Z 




SKIP NOT ON. 


092C 





700B 






B 




SA040 




BRANCH IF EXTERNAL TEST 


092D 





C301 






LD 


3 


ONE 




GET BASE ADDRESS. 


092E 





EOOF 






AND 




SAC02 




MASK OFF BITS 4-15. 


092F 





FOOF 






EOR 




SAC04 




CHANGE BIT 3. 


0930 





DOOF 






STO 




SAC06 




SAVE. 


0931 





8010 






A 




SAC10 




COMPUTE HIGHEST ADDRESS 


09 32 







SA020 


EQU 




* 






0932 





1890 






SRT 




EXCHA 




SAVE IN Q. 


0933 





COOC 






LD 




SAC06 




TEST LOWEST ADDRESS FOR 


0934 





4818 


* 
* 




SKP 




+- 




SKIP NOT 0. 








IF 


THE LOWEST ADDRESS 


IS ZERO, IT MUST BE MADE 








* 


10, 


TO PROTECT INTERRUPT CELLS AND THE RESTART 








# 


BRANCHES. 










0935 





800E 


* 




A 




SAC16 




START TEST AT 10. 


0936 





4F80 08C6 






B 


13 


SA010- 


•BASE 


RETURN. 


0938 







SA040 


EQU 




* 
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8CF40140 

8CF40150 

8CF40160 

8CF40170 

8CF40180 

8CF40190 

8CF40200 

8CF40210 

8CF40220 

8CF40230 

8CF40240 

8CF40250 

8CF40260 

8CF40270 

8CF40280 

8CF40290 

8CF40300 

8CF40310 

8CF40320 

8CF40330 

8CF40340 

8CF40350 

8CF40360 

8CF40370 

8CF40380 

8CF40390 

8CF40400 

8CF40410 

8CF40420 

8CF40430 

8CF40440 

8CF40450 

8CF40460 

8CF40470 

8CF40480 

8CF40490 

8CF40500 

8CF40510 

8CF40520 

8CF40530 

8CF40540 
8CF40550 
8CF40560 
8CF40570 
8CF405 80 
8CF40590 
8CF40600 
8CF40610 
8CF40620 
8CF40630 
8CF40640 
8CF40650 
8CF40660 
8CF40670 
8CF406 80 

8CF40690 
8CF40700 
8CF40710 
8CF40720 
8CF40730 
8CF40740 
8CF40750 
8CF40760 
8CF40770 
8CF40780 
8CF40790 
8CF40800 
8CF40810 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 

431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR7 


PAGE 


30 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
30A 



oooooooooooooooooooooooooooooooooc 



o»o oooooooooooooooooooooooooooooooc 
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0938 





C3F9 


0939 





9007 


093A 





100D 


093B 





D004 


093C 





8006 


0930 





70F4 



0945 





0000 




0946 





40E1 




0947 





D001 




0948 





6500 


0000 


094A 





1090 




094B 





4F80 


08E3 



* EXTERNAL BSM TO TEST. 
* 

LO 3 AAC10-BASE CALCULATE STARTING 
S SAC08 ADDRESS FROM EXPLICIT BSM 
SLA 13 SETTING. 
STO SAC06 SAVE. 

A SAC14 COMPUTE HIGHEST ADDRESS. 
B SA020 BRANCH TO CONTINUE. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 

MASK BITS 4-15. 

BIT 3. 

TEMPORARY STORAGE. 

ONE. 

4K. 

8K 

TEN. 

* 

a******************* ******************************* 
*************************************************** 

* * 

* SET ADDRESS TEST LIMITS, RIPPLE UP CORE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE SETS THE STARTING ADDRESS FOR * 

* A PATTERN TEST IN XR1. THE OTHER ADDRESS LIMIT * 

* IS IN THE ACCUMULATOR AT EXIT. * 

* * 

* CALL - 

* BSI L3 SA100-BASE 



093E 





FOOO 


SAC02 


DC 


/FOOO 


093F 





1000 


SAC04 


DC 


/1000 


0940 




0001 


SAC06 


BSS 


1 


0941 





0001 


SAC08 


DC 


1 


0942 





OFFF 


SAC10 


DC 


/OFFF 


094 3 





1FFF 


SAC14 


DC 


/1FFF 


0944 





000 A 


SAC16 

* 


DC 


10 



* 
* 
* 
* 
* 
* 
* 
* 
THE ACCUMULATOR CONTAINS THE LAST ADDRESS TO* 
TEST UPON EXIT. * 



XR1 HAS THE STARTING ADDRESS UPON EXIT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



* 
* 
* 
* 

* 
* 
* 
* 

* * 
*************************************************** 

* * 
SA100 DC *-* ENTRY. 

BSI SA010 DETERMINE LIMITS. 

STO SA110+1 INITIALIZE XR2 WITH 

SA110 LDX LI *-* STARTING ADDRESS. 

SLT EXCHA END ADDRESS IN ACCUMULATOR 

B 13 SA100-BASE RETURN. 
*************************************************** 

* * 

* SET ADDRESS LIMITS, RIPPLE DOWN CORE * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE SETS THE STARTING ADDRESS FOR * 

* A PATTERN TEST IN XR1. THE OTHER ADDRESS LIMIT * 

* IS IN THE ACCUMULATOR AT EXIT. * 

* * 

* CALL - * 

* * 

* BSI L3 SA200-BASE * 

* * 
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8CF40820 

8CF40830 

8CF40840 

8CF40850 

8CF40860 

8CF40870 

8CF40880 

8CF40890 

8CF40900 

8CF40910 

8CF40920 

8CF40930 

8CF40940 

8CF40950 

8CF40960 

8CF40970 

8CF40980 

8CF40990 

8CF41000 

8CF41010 

8CF41020 

8CF41030 

8CF41040 

8CF41050 

8CF41060 

8CF41070 

8CF41080 

8CF41090 

8CF41100 

8CF41110 

8CF41120 

8CF41130 

8CF41140 

8CF41150 

8CF41160 

8CF41170 

8CF41180 

8CF4U90 

8CF41200 

8CF41210 

8CF41220 

8CF41230 

8CF41240 

8CF41250 

8CF41260 

8CF41270 

8CF41280 

8CF41290 

8CF41300 

8CF41310 

8CF41320 

8CF41330 

8CF41340 

8CF41350 

8CF41360 

8CF41370 

8CF41380 

8CF41390 

8CF41400 

8CF41410 

8CF41420 

8CF41430 

8CF41440 

8CF41450 

8CF41460 

8CF41470 

8CF41480 

8CF41490 
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094D 
094E 
094F 
0950 
0951 
0953 
0954 



0000 

40 D9 

18D0 

D001 

65 00 0000 

1090 

4F80 08EB 



0956 
0957 
0959 
095A 
095C 
095D 

095 F 
0960 
0962 
0963 
0965 
0966 
0968 
0969 

096 A 
096B 
096C 
096D 
096E 
0970 
0971 
0972 

097 3 
0975 
0976 
0977 
0978 



0000 
4700 
FOOO 
4700 
093D 
4700 
FOOO 
4700 
0944 
4700 
FOOO 
4700 
6929 
6A2A 
61EE 
C02B 
8301 
D001 
6600 
C027 
8301 
D009 
C700 
902 3 
A023 
18D0 
8022 



0691 
0691 
0691 
0691 
0691 
0B66 



0000 



035E 



XR1 HAS THE STARTING ADDRESS UPON EXIT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE ACCUMULATOR CONTAINS THE LAST ADDRESS 
TO TEST UPON EXIT. 



*************************************************** 



LI 



13 



*-* 

SA010 

EXCHA 

SA210+1 

*-* 

EXCHA 

SA200-BASE 



ENTRY. 

DETERMINE LIMITS. 
INITIALIZE XR2 
WITH STARTING 
ADDRESS. 

END ADDRESS IN ACCUMULATOR 
RETURN. 



SA200 DC 

BSI 

RTE 

STO 
SA210 LDX 

SLT 

B 
*************************************************** 

* * 

* BIT FAILURE SUMMARY PRINT SUBROUTINE * 

* * 
*************************************************** 
* 

THIS ROUTINE PRINTS THE BIT FAILURE SUMMARY FOR 
THE STORAGE MODULE INDICATED IN HZK01. 



CALL - 



BSI L3 SB010-BASE 

XR1 IS SAVED AND RESTORED 

XR2 INDICATES THE SUMMARY ROUTINE. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE BSM ID. IS IN HZK01. 



*************************************************** 



SB010 DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
STX 
STX 
LDX 
LD 
A 
STO 

SB020 LDX 
LD 
A 

STO 
LD 
S 
M 

RTE 
A 



#-* 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SBC70-BASE 

L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SBC80-BASE 
L3 MA010-BASE 

/FOOO 
L3 SU010-BASE 

1 SB050+1 

2 SB060+1 
1 -18 

SBC02 

3 ONE 
SB020+1 

L2 *-* 

S8C04 
3 ONE 

SB030+1 
L3 HZK01-BASE 

SBC06 

SBC08 

16 

SBC10 



ENTRY. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE HEADING. 

MESSAGE HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE HEADING. 

MESSAGE HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

ZERO LINE BUFFER. 
SAVE XR1. 
SAVE XR2. 

XRl IS A POINTER, COUNTER. 
USE XR2 AS A POINTER 
TO BUFFER AREA. 

LOAD POINTER INTO XR2. 
BUILD OPERAND FOR 
BIT STRING. 

COMPUTE ABSOLUTE ADDRESS 
OF BASE OF BIT FAILURE 
STORAGE TABLE ENTRY TO 
CONVERT. 
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8CF41500 
8CF41510 
8CF41520 
8CF41530 
8CF41540 
8CF41550 
8CF41560 
8CF41570 
8CF41580 
8CF41590 
8CF41600 
8CF41610 
8CF41620 
8CF41630 
8CF41640 
8CF41650 
8CF41660 
8CF41670 
8CF41680 
8CF41690 
8CF41700 
8CF41710 

8CF41720 
8CF41730 
8CF41740 
8CF41750 
8CF41760 
8CF41770 
8CF41780 
8CF41790 
8CF41800 
8CF41810 
8CF41820 
8CF41830 
8CF41840 
8CF41850 
8CF41860 
8CF41870 
8CF41880 
8CF41890 
8CF41900 
8CF41910 
8CF41920 
8CF41930 
8CF41940 
8CF41950 
8CF41960 
8CF41970 
8CF41980 
8CF41990 
8CF42000 
8CF42010 
8CF42020 
8CF42030 
8CF42040 
8CF42050 
8CF42060 
8CF42070 
8CF42080 
8CF42090 
8CF42100 
8CF42110 
8CF42120 
8CF42130 
8CF42140 
8CF42150 
8CF42160 
8CF42170 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


31 


EC NO. 


431319 


431319A 


431321 
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097 9 
097A 
097B 
0970 
097E 
097F 
0981 
0982 

098 3 
0985 
0987 
0988 
0989 
098A 
098 B 
098C 
098D 



8301 
0021 
C500 0000 









0200 

7202 

CF80 093A 

4041 

C01B 

4700 09BE 

4700 0691 

0B77 

72FA 

C012 

8012 

D010 

7101 

70ED 



098E 4700 0691 

0990 FOOO 

0991 6500 0000 
0993 6600 0000 
0995 4F80 08F4 



0997 





0B79 


0998 





0961 


0999 





0001 


099A 





0024 


099 B 





0C6C 


099C 




0001 


0990 





0002 


099E 





7204 


099F 





0006 


09A0 





3239 


09 A 1 





1300 


09A2 





3631 


09A3 





3923 


09A4 





1429 


09A5 





3512 


09A6 





OOOA 


09A7 





0000 


09A8 





3239 


09A9 





1300 


09AA 





0000 


09AB 





3429 


09AC 





2627 


09AD 





0000 


09AE 





0000 


09AF 





27 39 


09B0 





3322 


09B1 





OOOA 


09B2 





0001 


09B3 





0002 


09B4 





0003 


09B5 





0004 


09B6 





0005 


09 B7 





0006 



A 

STO 
SB030 LD 
STO 
MDX 
LOD 
BSI 
LD 
BSI 
BSI 
DC 
MDX 
LD 
A 

STO 
MDX 
B 



LI 
2 
2 

13 



ONE 

SBC12 
*-# 

ZERO 

TWO 

SBC12-BASE 

SC010 

SBC16 
L3 SD010- 
L3 MA010- 

SUC80- 
2 -6 

SBC12 

S8C14 

SBC12 
1 ONE 

SB030 



BASE 
BASE 
BASE 



SAVE AS INDIRECT ADDRESS. 
GET BIT ID. 
PUT IN BUFFER AND 
INCREMENT POINTER 

LOAD DROP AND PICK 
COUNTERS AND CONVERT 
PUT CONVERTED CHARACTERS 

IN BUFFER LINE. 

WRITE LINE. 

MESSAGE. 
RESTORE XR2 
UPDATE INDIRECT 
ADDRESS TO BIT 
FAILURE STORAGE. 
INCREMENT COUNTER. 

LOOP. 



* SUMMARY COMPLETE 

BSI L3 MA010- 
DC /FOOO 

SB050 LDX LI *-* 

SB060 LDX L2 *-* 

B 13 SB010 



* 

* CONSTANTS AND WORK 

# 

**#*## ******* ******* 



SBC02 DC 

SBC04 DC 
SBC06 DC 
SBC08 DC 
* 

SBC10 DC 

SBC12 BSS 

SBC14 DC 

S8C16 MDX 

SBC70 DC 

DC 

DC 

DC 

DC 

DC 

DC 

SBC80 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 



SUC 84- 

SBC92- 

1 

36 



PXK20- 

1 

2 

FOUR 

6 

/3239 

/1300 

/3631 

/3923 

/1429 

/3512 

10 

/OOOO 

/3239 

/1300 

/OOOO 

/3429 

/2627 

/OOOO 

/OOOO 

/2739 

/3322 

/OOOA 
/0001 
/0002 
/0003 
/0004 
/0005 
/0006 



BASE WRITE A SPACE. 

SPACE FUNCTION 

RESTORE XR1. 

RESTORE XR2. 
BASE RETURN. 

******************************* 

* 

AREAS * 

**********##***#*#************* 

* 

RELATIVE ADDRESS OF LINE 
BASE BUFFER. 

RELATIVE ADDRESS OF BASE 
BASE OF BIT STORAGE IDNTS. 

ONE. 

THIRTY SIX. 

RELATIVE ADDRESS OF BASE 
BASE OF STORAGE TABLE. 

INDIRECT ADDRESS. 

TWO. 

INSTRUCTION FOR FILL RTN. 

SUMMARY HEADING. 

BI 

T 

FA 

IL 

UR 

ES 

HEADING. 



BI 

T 

OR 

OP 



PI 

CK 



1 
2 
3 
4 
5 
6 
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8CF42180 

8CF42190 

8CF42200 

8CF42210 

8CF42220 

8CF42230 

8CF42240 

8CF42250 

8CF42260 

8CF42270 

8CF42280 

8CF42290 

8CF42300 

8CF42310 

8CF42320 

8CF42330 

8CF42340 

8CF42350 

8CF42360 

8CF42370 

8CF42380 

8CF42390 

8CF42400 

8CF42410 

8CF42420 

8CF42430 

8CF42440 

8CF42450 

8CF42460 

8CF42470 

8CF42480 

8CF42490 

8CF42 500 

8CF42510 

8CF42520 

8CF42530 

8CF42540 

8CF42550 

8CF42560 

8CF42570 

8CF42580 

8CF42590 

8CF42600 

8CF42610 

8CF42620 

8CF42630 

8CF42640 

8CF42650 

8CF42660 

8CF42670 

8CF42680 

8CF42690 

8CF42700 

8CF42710 

8CF42720 

8CF42730 

8CF42740 

8CF42750 

8CF42760 

8CF42770 

8CF42780 

8CF42790 

8CF42800 

8CF42810 

8CF42820 

8CF42830 

8CF42840 

8CF42850 
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09B8 





0007 


09 B9 





0008 


09BA 





0009 


09BB 





010A 


09BC 





0101 


09BD 





0102 


09BE 





0103 


09BF 





0104 


09CO 





0105 


09C1 





0012 


09C2 





0027 


09C3 








09C3 OOOO 
09C4 D84D 
09C5 6945 
09C6 6A46 
09C7 6B47 



09C8 
09C9 
09CA 
09CB 
09CC 
09CE 
09CF 
09D0 
09D1 
09D2 
0903 
09D4 
09 D4 
0905 
09D6 
09D6 
09D7 
09D8 
09D9 
09DA 


















A83D 

4818 
7022 
18D0 
4818 



DC 


/0007 


7 


DC 


/0008 


8 


DC 


/0009 


9 


DC 


/010A 


10 


DC 


/0101 


11 


DC 


/0102 


12 


DC 


/0103 


13 


DC 


/0104 


14 


DC 


/0105 


15 


DC 


/0012 


S 


DC 


/0027 


P 


SBC92 EOU 


* 


BITS 


* 







61FF 

C04B 

8301 

D001 

6600 OOOO 

C047 

8301 

D01F 

C040 

4818 

7020 



6302 
1890 



*************************************************** 

*************************************************** 

* 
* 

* BINARY TO 1443 DECIMAL CODE CONVERSION * 

*************************************************** 



THIS SUBROUTINE CONVERTS A ONE WORD BINARY 
INTEGER TO FIVE 1443 PRINTER CHARACTERS IN 
THREE WORDS. 



CALL - 



BSI L3 SC010-BASE 

THE ACCUMULATOR AND Q CONTAIN BINARY WORDS 
TO BE CONVERTED. 

XR1 AND XR2 ARE SAVED AND RESTORED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE RESULTS ARE STORED IN TWO FIXED AREAS 
OF THREE WORDS EACH. 



*************************************************** 



* 
SC010 



DC 

STD 

STX 

STX 

STX 



*-* 
SCC02 

1 SC120+1 

2 SC130+1 

3 SC140+1 



ENTRY. 

STORE WORDS TO CONVERT. 

SAVE INDEX 

REGISTERS. 



* AT THIS 

* 

LDX 
LD 
A 
STO 

SC020 LDX 
LD 
A 

STO 
LD 
SKP 
B 

EQU 
LDX 
SRT 
EOU 
D 

SKP 
B 

RTE 
SKP 



POINT XR3 IS INTACT AS THE BASE REGISTER. 



L2 



SC030 



SC040 



-1 

SCC08 

ONE 

SC020+1 

*-* 

SCC10 

ONE 

SC060+1 

SCC02 

+- 

SC070 

* 

TWO 

16 

* 

SCC04 

+- 

SC080 

16 

+- 



USE XR1 AS OVERALL COUNTER 
COMPUTE ADDRESS OF STORAGE 
AREA AND PUT IN INDEX 
OPERAND. 

XR2 POINTS TO RESULT AREA. 
COMPUTE ADDRESS OF SECOND 
STORAGE AREA AND 
INITIALIZE INDEX OPERAND. 
LOAD FIRST WORD TO CONVERT 
AND SKIP IF NON ZERO. 
BRANCH TO LOAD DASHES. 

USE XR3 AS COUNTER. 
PREPARE FOR DIVISION. 

DIVIDE BY 10. 
SKIP IF MORE TO CONVERT. 
BRANCH TO ADO LEFT BLANKS. 
EXCHANGE QUOTIENT AND 
REMAINDER, SKIP NOT 0. 
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8CF42860 

8CF42870 

8CF42880 

8CF42890 

8CF42900 

8CF42910 

8CF42920 

8CF42930 

8CF42940 

8CF42950 

8CF42960 

8CF42970 

8CF42980 

8CF42990 

8CF43000 

8CF43010 

8CF43020 

8CF43030 

8CF43040 

8CF43050 

8CF43060 

8CF43070 

8CF43080 

8CF43090 

8CF43100 

8CF43110 

8CF43120 

8CF43130 

8CF43140 

8CF43150 

8CF43160 

8CF43170 

8CF43180 

8CF43190 

8CF43200 

8CF43210 

8CF43220 

8CF43230 

8CF43240 

8CF43250 

8CF43260 

8CF43270 

8CF43280 

8CF43290 

8CF43300 

8CF43310 

8CF43320 

8CF43330 

8CF43340 

8CF43350 

8CF43360 

8CF43370 

8CF43380 

8CF43390 

8CF43400 

8CF43410 

8CF43420 

8CF43430 

8CF43440 

8CF43450 

8CF43460 

8CF43470 

8CF43480 

8CF43490 

8CF43500 
8CF43510 
8CF43520 
8CF43530 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


32 


EC NO. 


431319 


4.31 31 9A 


431321 



PROG ID 
PAGE 



08CF-1 
32A 



oooooooooooooooooooooooooooooooooc 



imm i i Hill in 



o»o oooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



090B 





C038 


09DC 





D200 


090D 





1804 


09DE 





A835 


090 F 





4818 


09E0 





701D 


09E1 





18 00 


09E2 





4818 


09E3 





C030 


09E4 





1008 


09E5 





EAOO 


09E6 





D200 


09E7 





1810 


09E8 





72FF 


09E9 





73FF 


09EA 





70EB 



09EB 
09EC 
09E0 
09E0 
09EE 



18D0 

D200 



7101 

701B 



09EF 6600 0000 
09F1 C021 
09F2 4820 
09F3 70E0 



09F4 







09F4 





C022 


09F5 





D200 


09F6 





C020 


09F7 





D2FF 


09F8 





C023 


09F9 





D2FE 


09FA 





70F2 


09FB 







09FB 





1800 


09FC 





D200 


09FD 





7003 


09FE 







09FE 





1098 


09FF 





EAOO 


OAOO 





0200 


0A01 







0A01 





1810 


0A02 





72FF 


0A03 





73FF 


0A04 





7001 


0A05 





7002 


0A06 







0A06 





0200 


0A07 





72FF 


0AO8 







0A08 





D200 


0A09 





70E3 



LO 




SCC04 


STO 


2 


ZERO 


SRA 




FOUR 


D 




SCC04 


SKP 




+- 


B 




SC090 


RTE 




16 


SKP 




+- 


LD 




SCC04 


SLA 




EIGHT 


OR 


2 


ZERO 


STO 


2 


ZERO 


SRA 




16 


MDX 


2 


-1 


MDX 


3 


-1 


B 




SC040 



* FIFTH CHARACTER LEFT. 



RTE 
STO 
SC050 EOU 
MDX 
B 



16 
2 ZERO 

* 

1 ONE 
SC120 



LOAD 1443 CHARACTER 0. 
STORE AS RIGHT BYTE. 
CLEAR ACCUMULATOR. 
DIVIDE BY 10. 
SKIP IF MORE TO CONVERT. 
BRANCH TO ADD LEFT BLANKS. 
EXCHANGE QUOTIENT AND 
REMAINOER, SKIP NOT ZERO. 
LOAD 1443 CHARACTER 0. 
SHIFT TO LEFT BYTE. 
UPDATE CHARACTER. 

CLEAR ACCUMULATOR. 
DECREMENT WORD POINTER. 
DECREMENT COUNTER. 
LOOP. 



MOVE LAST CHARACTER TO 
STORAGE. 



INCREMENT COUNTER. 

BRANCH IF DONE. 



INITIALIZE FOR SECOND CONVERSION. 



* 

SC060 LDX 
LD 
SKP 

B 
* 

* WORD TO 

# 

SC070 EOU 
LD 
STO 
LD 
STO 
LD 
STO 
B 

* 

* NO MORE 
* 

SC080 EQU 
RTE 
STO 
B 

SC090 EQU 
SLT 
OR 

STO 

EOU 
SRA 
MDX 



L2 *-* POINTER TO STORAGE AREA. 

SCC03 LOAD SECOND WORD TO 

Z CONVERT AND SKIP IF ZERO. 

SC030 8RANCH TO CONVERSION. 



CONVERT IS ZERO. 



MOVE FIVE 1443 CHARACTERS 
TO CONVERSION STORAGE. 



* 

SCC12 
2 ZERO 

SCC12 
2 -1 

SCC92 
2 -2 

SC050 RETURN AND CONTINUE. 

CHARACTERS, INSERT LEFT BLANKS. 



SC100 



MDX 

B 

B 

SC110 EQU 
STO 
MDX 

SC115 EQU 
STO 
B 



* 

16 
2 ZERO 

SC100 

* 

24 
2 ZERO 

2 ZERO 
# 

16 

2 "I 

3 -1 
SC110 
SC115 

* 

2 ZERO 
2 -1 

* 
2 ZERO 

SC050 



RIGHT BYTE LAST CHARACTER. 

GET LAST CHARACTER. 

STORE. 

BRANCH TO CONTINUE. 

GET LAST CHARACTER TO LEFT 
BYTE OF ACCUMULATOR. 

UPDATE. 

CLEAR THE ACCUMULATOR. 
DECREMENT STORAGE POINTER. 
DECREMENT COUNTER AND 
SKIP IF ONE MORE WORD. 
SKIP, TWO MORE WORDS. 
BRANCH IF ONE MORE WORD. 

BLANK SECOND WORD OF 
STORAGE. 

BLANK FIRST WORD OF 
STORAGE AND RETURN. 



* ROUTINE DONE. 
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8CF43540 
8CF43550 
8CF43560 
8CF43570 
8CF43580 
8CF43590 
8CF43600 
8CF43610 
8CF43620 
8CF43630 
8CF43640 
8CF43650 
8CF43660 
8CF43670 
8CF43680 
8CF43690 
8CF43700 
8CF43710 
8CF43720 
8CF43730 
8CF43740 
8CF43750 
8CF43760 
8CF43770 
8CF43780 
8CF43790 
8CF43 800 
8CF43810 
8CF43820 
8CF43830 
8CF43840 
8CF43850 
8CF43860 
8CF43870 
8CF43880 
8CF43890 
8CF43900 
8CF43910 
8CF43920 
8CF43930 
8CF43940 
8CF43950 
8CF43960 
8CF43970 
8CF43980 
8CF43990 
8CF44000 
8CF44010 
8CF44020 
8CF44030 
8CF44040 
8CF44050 

8CF44060 
8CF44070 
8CF44080 
8CF44090 
8CF44100 
8CF44110 
8CF44120 
8CF44130 
8CF44140 
8CF44150 
8CF44160 
8CF44170 
8CF44180 
8CF44190 
8CF44200 
8CF44210 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



OAOA 
OAOA 
OAOC 







6500 
6600 


0000 
0000 


SC120 
SC130 


EQU 
LDX 
LDX 


LI 
L2 


* 

*-* RESTORE INDEX 

*-* REGISTERS. 


OAOE 
0A10 






6700 
4F80 


0000 
0961 


SC140 

* 


LDX 
B 


L3 
13 


SC010-BASE RETURN. 



0A2O 





0000 


0A21 





D006 


0A22 





C0F6 


0A23 





D200 


0A24 





C8F5 


0A25 





D201 


0A26 





18D0 


0A27 





D202 


0A28 





7200 


0A29 





C0F3 


0A2A 





D200 


0A2B 





C8F2 


0A2C 





D201 


0A2D 





18 DO 



♦♦a************************************************ 

* * 

* CONSTANTS AND WORK AREAS * 

* • * 



STORAGE FOR A AND Q, TWO 
BINARY NUMBERS TO CONVERT. 
DIVISOR, 1443 CHARACTER 0. 



1443 CHARACTERS 
SCC90 6 SCC93 BUST BE ODD. 
FIVE CHARACTERS AS 
RESULTS OF CONVERSION. 
1443 CHARACTER -. 



* * 

* CHARACTER FILL SUBROUTINE * 

* * 

***#*****j|^*#* *********************** ************** 



0A12 




0001 


SCC02 


BSS E 1 


0A13 




0001 


SCC03 


BSS 


1 


0A14 





OOOA 


SCC04 


DC 


10 


0A15 





09B9 


SCC08 


DC 


SCC90 


0A16 





09BD 


SCC10 


DC 


SCC93 


0A17 





2020 


SCC12 


DC 


/2020 


0A18 




0001 




BSS 


E 1 


0A19 




0001 


SCC90 


BSS 


1 


0A1A 




0002 


SCC91 


BSS 


2 


0A1C 





0020 


SCC92 


DC 


/0020 


0A1D 




0001 


SCC93 


BSS 


1 


0A1E 




0002 


SCC94 

* 


BSS 


2 



THIS SUBROUTINE MOVES CONVERTED CHARACTERS FROM 
THE BUFFERS IN THE CONVERSION ROUTINE TO THE 
I/O AREA INDICATED IN XR2. 



CALL 



BSI L3 SD010-BASE 

THE ACCUMULATOR CONTAINS AN MDX INSTRUCTION 
TO MODIFY XR2. 

XR1 IS NOT USED. 

XR2 CONTAINS THE ADDRESS OF THE I/O AREA TO 
FILL. 

XR3 IS THE PSEUDO BASE REGISTER. 



*********#**##********#********#***#*************** 



SD010 DC 

* 

STO 
LD 
STO 
LDD 
STO 
RTE 
STO 
SD020 MDX 
LD 
STO 
LDD 
STO 
RTE 



*-* 

SD020 

SCC90 

ZERO 

SCC91 

ONE 

16 

TWO 

ZERO 

SCC93 

ZERO 

SCC94 

ONE 

16 



ENTRY. 

STORE POINTER MODIFICATION 

INSTRUCTION. 
PICK UP CHARACTERS 
FROM CONVERSION 
BUFFERS AND STORE IN 
I/O LINE. 



THIS INSTRUCTION SUPPLIED 
BY CALL ROUTINE. 
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8CF44220 
8CF44230 
8CF44240 
8CF44250 
8CF44260 
8CF44270 
8CF44280 
8CF44290 
8CF44300 
8CF44310 
8CF44320 
8CF44330 
8CF44340 
8CF44350 
8CF44360 
8CF44370 
8CF44380 
8CF44390 
8CF44400 
8CF44410 
8CF44420 
8CF44430 
8CF44440 
8CF44450 
8CF44460 
8CF44470 
8CF444 80 
8CF44490 
8CF44500 
8CF44510 
8CF44520 
8CF44530 
8CF44540 
8CF44550 
8CF44560 
8CF44570 
8CF44580 
8CF44590 
8CF44600 
8CF44610 
8CF44620 
8CF44630 
8CF44640 

8CF44650 
8CF44660 
8CF44670 
8CF446 80 
8CF44690 
8CF44700 
8CF44710 
8CF44720 
8CF44730 
8CF44740 
8CF44750 
8CF44760 
8CF44770 
8CF44780 
8CF44790 
8CF44800 
8CF44810 
8CF44820 
8CF44830 
8CF44840 
8CF44850 
8CF44860 
8CF44870 
8CF44880 
8CF44 890 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


33 


EC NO. 


431319 


431319A 


431321 



PROG ID 

PAGE 



08CF-1 
33A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



0A2E D202 
0A2F 4F80 09BE 



0A31 
0A32 
0A34 
0A35 
0A37 
0A38 
0A3A 
0A3B 
0A3D 
0A3E 
OA40 
0A41 
0A43 
0A44 
0A46 
0A47 



0000 

4700 0691 

FOOO 

4700 0691 

0A8E 

4700 0691 

FOOO 

4700 0691 

0A99 

4700 0691 

0AA5 

4700 0691 

FOOO 

4700 0B66 

696D 

6A6E 



0A48 

0A4A 

0A4B 

0A4C 

0A40 

0A4E 

0A4F 

0A50 

0A51 

0A52 

0A53 

0A54 

0A55 

0A57 

0A58 

0A59 

0A5A 

0A5B 

0A5C 

0A5C 

0A5D 

0A5E 

0A5F 

0A60 

0A61 



C700 035E 
907B 
A07B 
1800 
807A 

8301 

D079 

9075 

D004 

1810 

D076 
6128 
C500 0000 
9072 
4808 
7002 

806F 

D06E 



71FF 
70F7 
C06B 
1890 
A86A 
8064 



STO 2 TWO 

B 13 SDOIO^BASE RETURN. 

* * 

* ADDRESS LINE FAILURE SUMMARY SUBROUTINE * 

* * 
a******************** ****************************** 

* 
# 

* 

* 
* 
* 
* 
* 
# 
# 
* 
* 
* 
* 



THIS SUBROUTINE PRINTS THE ADDRESS LINE SUMMARY 
MATRIX FOR THE STORAGE MODULE INDICATED IN 

HZK01. 



CALL 



BSI 



XR1 



XR3 



L3 SE010-BASE 
AND XR2 ARE SAVED AND RESTORED, 
IS THE PSEUDO BASE REGISTER. 



THE BSM ID. IS IN HZK01. 



*************************************************** 



* 
SE010 



DC 

BSI 

DC 

BSI 

DC 

BSI 

DC 

BSI 

DC 

BSI 

DC 

BSI 

DC 

BSI 

STX 

STX 



*-* 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SEC70-BASE 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SEC80-BASE 
L3 MA010-BASE 

SEC90-BASE 
L3 MA010-BASE 

/FOOO 
L3 SU010-BASE 

1 SE090+1 

2 SE092+1 



* 

* FIND 

* 



SCALE FACTOR. 



SE020 



SE030 



LD 

S 

M 

RTE 

A 

A 

STO 

S 

STO 

SRA 

STO 

LDX 

LD 

S 

SKP 

B 

A 

STO 

EQU 

MDX 

B 

LD 

SRT 

D 

A 



L3 HZK01-BASE 
SEC02 
SEC04 
16 

SEC06 
3 ONE 
SEC08 
SEC02 
SE020+1 
16 

SEC10 
40 
*-* 
SEC10 
+ 

SE030 
SEC10 
SEC10 
* 

-1 

SE020 
SEC10 
16 

SEC12 
SEC02 



1 
LI 



ENTRY. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE SUMMARY HEADING. 

HEADING MESSAGE. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE FAILURE SUMMARY 

HEADING WHICH IS 

TWO LINES. 

WRITE A SPACE. 
SPACE FUNCTION. 

ZERO LINE BUFFER. 
SAVE XR1. 
SAVE XR2. 



COMPUTE BASE ADDRESS 
OF LINE ADDRESS 
FAILURE STORAGE TABLE 
FOR THIS BSM. 



SAVE. 

DECREMENT ADDRESS. 

STORE IN OPERAND. 

CLEAR WORK 

AREA. 

USE XR1 AS A COUNTER. 

FIND LARGEST VALUE 

IN TABLE FOR SCALING. 



RESTORE VALUE AND 
SAVE. 

DECREMENT COUNTER. 

LOOP. 

COMPUTE 

SCALE FACTOR. 
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8CF44900 

8CF44910 

8CF44920 

8CF44930 

8CF44940 

8CF44950 

8CF44960 

8CF44970 

8CF44980 

8CF44990 

8CF45000 

8CF45010 

8CF45020 

8CF45030 

8CF45040 

8CF45050 

8CF45060 

8CF45070 

8CF45080 

8CF45090 

8CF45100 

8GF45110 

8CF45120 

8CF45130 

8CF45140 

8CF45150 

8CF45160 

8CF45170 

8CF45180 

8CF45190 

8CF45200 

8CF45210 

8CF45220 

8CF45230 

8CF45240 

8CF45250 

8CF45260 

8CF45270 

8CF45280 

8CF45290 

8CF45300 

8CF45310 

8CF45320 

8CF45330 

8CF45340 

8CF45350 

8CF45360 

8CF45370 

8CF45380 

8CF45390 

8CF45400 

8CF45410 

8CF45420 

8CF45430 

8CF45440 

8CF45450 

8CF45460 

8CF45470 

8CF45480 

8CF45490 

8CF45500 

8CF45510 

8CF45520 

8CF45530 

8CF45540 

8CF45550 

8CF45560 

8CF45570 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 

0A62 0067 



0A63 

0A64 

0A65 

0A66 

0A68 

0A69 

0A6A 

0A6B 

0A6C 

0A6D 

0A6F 

0A70 

0A71 

0A72 

0A73 

0A74 

0A75 

0A76 

0A77 

0A78 

0A79 

0A7A 

0A7B 

0A7C 

0A7D 

0A7E 

0A7F 

0A80 



C068 

8301 

D001 

6600 0000 

C069 

8301 

D003 

D02B 

61F0 

COOO 0000 

DAOO 

4048 

D203 

C056 

8059 

D054 

4043 

D205 

C051 

8054 

D04F 

403E 

D208 
C04C 
804F 
D04A 
4039 
D20A 



STO 

* XR2 POINTS 

* 

LD 

A 

STO 

SE040 LDX 
LD 
A 

STO 
STO 
LDX 

SE050 LDD 
STO 



SEC10 
TO LINE BUFFER. 



L2 



1 

LI 

2 



0A81 
0A83 
0A84 
0A85 
0A86 
0A87 
0A87 
0A88 
0A89 
0A8A 



4700 0691 

0B77 

7102 

7001 

7004 

C041 

9045 
D03F 
70E2 



BSI 

STO 

LD 

A 

STO 

BSI 

STO 

LD 

A 

STO 

BSI 

STO 

LD 

A 

STO 

BSI 

STO 

* LINE FULL. 
* 

BSI 

DC 

MDX 

B 

B 
SE060 EQU 

LD 

S 

STO 

B 



SEC14 

ONE 

SE040+1 

*-* 

SEC26 

ONE 

SE050+1 

SE080+1 

-16 

*-* 

ZERO 

SE200 

THREE 

SEC08 

SEC16 

SEC08 

SE200 

FIVE 

SECG8 

SEC16 

SEC08 

SE200 

EIGHT 

SEC08 

SEC16 

SEC08 

SE200 

TEN 



COMPUTE ABSOLUTE ADDRESS 
OF LINE BUFFER AND 
INITIALIZE XR2. 

INITIALIZE OPERAND 
THAT POINTS TO LINE 
ID. 

USE XR1 AS A COUNTER. 
MOVE ADDRESS LINE TO 
I/O BUFFER. 
SCALE AND CONVERT. 

INCREMENT INDIRECT 
ADDRESS AND UPDATE. 

SCALE AND CONVERT. 

INCREMENT INDIRECT 
ADDRESS AND UPDATE. 

SCALE AND CONVERT. 
STORE IN LINE BUFFER. 
INCREMENT INDIRECT 
ADDRESS AND UPDATE. 

SCALE AND CONVERT. 
STORE IN LINE BUFFER. 



L3 



MA010-BASE 

SUC80-BASE 

TWO 

SE060 

SE070 

* 

SEC08 

SEC18 

SEC08 

SE050 



WRITE LINE. 
MESSAGE. 

SKIP TO LOOP. 
BRANCH IF DONE. 

READJUST INDIRECT 
ADDRESS. 



* 

* DONE 



LOOP. 
WITH FIRST HALF OF MATRIX PRINTOUT. 



0A8B 

0A8B 

0A8D 

0A8E 

0A8F 

0A90 

0A91 

0A92 

0A93 

0A93 

0A94 

0A95 

0A96 

0A98 

0A99 

0A9A 

0A9B 

0A9C 

0A9E 



0A9F 



4700 0691 

FOOO 

61F0 

C03F 

D203 

D205 

D208 

C035 

8031 

D033 

CDOO 0000 

E837 

DAOO 

401E 

D20A 

4700 0691 
0B77 
7102 



SE070 EOU 
BSI 
DC 
LDX 
LD 
STO 
STO 
STO 

SE075 EOU 
LD 
A 
STO 

SE080 LDD 
OR 
STD 
BSI 

STO 
BSI 
DC 
MDX 



L3 



LI 



2 
L3 



MA010-BASE 

/FOOO 

-16 

SEC20 

THREE 

FIVE 

EIGHT 

* 

SEC08 
SEC02 
SEC08 
*-* 

SEC22 

ZERO 

SE200 

TEN 

MA010-BASE 
SUC80-BASE 
TWO 



WRITE SPACE. 
SPACE FUNCTION. 
USE XR1 AS A COUNTER. 
PUT ASTERISK IN UNUSED 
POSITIONS. 



INCREMENT INDIRECT 
ADDRESS AND UPDATE. 

MOVE ADDR. LINE TO 
I/O BUFFER. 

SCALE AND CONVERT. 
STORE IN LINE BUFFER. 

WRITE LINE. 

MESSAGE. 
DECREMENT COUNTER. 
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8CF45580 
8CF45590 
8CF45600 
8CF45610 
8CF45620 
8CF45630 
8CF45640 

8CF45650 

8CF45660 

8CF45670 

8CF45680 

8CF45690 

8CF45700 

8CF45710 

8CF45720 

8CF45730 

8CF45740 

8CF45750 

8CF45760 

8CF45770 

8CF45780 

8CF45790 

8CF45800 

8CF45810 

8CF45820 

8CF45830 

8CF45840 

8CF45850 

8CF45860 

8CF45870 

8CF45880 

8CF45890 

8CF45900 

8CF45910 

8CF45920 

8CF45930 

8CF45940 

8CF45950 

8CF45960 

8CF45970 

8CF45980 

8CF45990 

8CF46000 

8CF46010 

8CF46020 

8CF46030 

8CF46040 

8CF46050 

8CF46060 

8CF46070 

8CF460 80 

8CF46090 

8CF46100 

8CF46110 

8CF46120 

8CF46130 

8CF46140 

8CF46150 

8CF46160 

8CF46170 

8CF46180 

8CF46190 

8CF46200 

8CF46210 

8CF46220 
8CF46230 
8CF46240 
8CF46250 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


34 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
• 34A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



OAAO 





70F2 




* 


B 




SE075 


LOOP. 


8CF46260 
8CF46270 










* SUMMARY 


DONE. 




8CF46280 










* 










8CF46290 


0AA1 





4700 


0691 




BSI 


L3 


MA010-BASE 


WRITE A SPACE. 


8CF46300 


0AA3 





FOOO 






DC 




/FOOO 


SPACE FUNCTION. 


8CF46310 


0AA4 





C025 






LD 




SEC10 


CONVERT SCALE FACTOR 


8CF46320 


0AA5 





4700 


0961 




BSI 


L3 


SC010-BASE 


AND FILL. 


8CF46330 


0AA7 





C700 


09B7 




LD 


L3 


SCC90-BASE 




8CF46340 


0AA9 





D033 






STO 




SEC46 




8CF46350 


OAAA 





CFOO 


09B8 




LDD 


L3 


SCC91-BASE 




8CF46360 


OAAC 





D831 






STD 




SEC46+1 




8CF46370 


OAAD 





4700 


0691 




BSI 


L3 


MA010-BASE 


WRITE LINE. 


8CF46380 


OAAF 





0A72 






DC 




SEC40-BASE 


MESSAGE. 


8CF46390 


OABO 





4700 


0691 




BSI 


L3 


MA010-BASE 


WRITE A SPACE. 


8CF46400 


0AB2 





FOOO 






DC 




/FOOO 


SPACE FUNCTION. 


8CF46410 


0AB3 





6500 


0000 


SE090 


LDX 


LI 


*-* 


RESTORE XR1. 


8CF46420 


0AB5 





6600 


0000 


SE092 


LDX 


L2 


*-* 


RESTORE XR2. 


8CF46430 


0AB7 





4F80 


09CF 


.., 


B 


13 


SE010-BASE 


RETURN. 


8CF46440 
8CF46450 










* SCALE AND CONVERT CHARACTER. 


8CF46460 










* 










8CF46470 


0AB9 





0000 




SE200 


DC 




*-* 


ENTRY. 


8CF46480 


OABA 





C780 


0A67 




LD 


13 


SEC08-BASE 


GET VALUE TO SCALE. 


8CF46490 


OABC 





4808 






SKP 




+ 


SKIP IF VALUE TO SCALE. 


8CF46500 


OABD 





7006 






B 




SE220 


NO ERRORS, LOAD -. 


8CF46510 


OABE 





1890 






SRT 




16 


SCALE VALUE. 


8CF46520 


OABF 





A80A 






D 




SEC10 




8CF46530 


OACO 





4808 






SKP 




+ 


SKIP IF NOT ZERO. 


8CF46540 


0AC1 





C004 






LD 




SEC02 


THERE WAS AT LEAST 1 ERROR 


8CF46550 


0AC2 









SE210 


EOU 




* 




8CF46560 


0AC2 





4F80 


0A57 


* 


B 


13 


SE200-BASE 


RETURN. 


8CF46570 
8CF46580 










* PUT 


DASH 


IN 


OUTPUT, NO 


TALLEY. 


8CF46590 










* 










8CF46600 


0AC4 









SE220 


EQU 




* 




8CF46610 


0AC4 





COOC 






LD 




SEC24 


LOAD DASH. 


8CF46620 


0AC5 





70FC 






B 




SE210 


BRANCH TO EXIT. 


8CF46630 










***** 


*********************************************** 


8CF46640 










* 








* 


8CF46650 










* CONSTANTS AND WORK AREAS * 


8CF46660 










# 








* 


8CF46670 










***** ***$******#****************** ***************** 


8CF46680 










* 








* 


8CF466 90 


0AC6 





0001 




SEC02 


DC 




1 


ONE. 


8CF46700 


0AC7 





0028 




SEC04 


DC 




40 


NO. OF OWRDS IN EACH TABLE 


8CF46710 


0AC8 





0D8C 




SEC06 


DC 




PXK30-BASE 


BASE OF TABLE. 


8CF46720 


0AC9 




0001 




SEC08 


BSS 




1 


INDIRECT ADDRESS TO TABLE. 


8CF46730 


OACA 




0001 




SEC10 


BSS 




1 


SCALE FACTOR. 


8CF46740 


OACB 





OOOA 




SEC12 


DC 




10 


SCALING VALUE. 


8CF46750 


OACC 





0B78 




SEC14 


DC 




SUC82-BASE 


RELATIVE ADDRESS. 


8CF46760 


OACD 





0008 




SEC16 


DC 




8 


EIGHT. 


8CF46770 


OACE 





0017 




SEC18 


DC 




23 


TWENTY THREE. 


8CF46780 


OACF 





002 C 




SEC20 


DC 




/002C 


1443 CHARACTER, *. 


8CF46790 


OADO 





0100 




SEC22 


DC 




/0100 


1443 CHARACTER 1, LEFT. 


8CF46800 


0AD1 





0020 




SEC24 


DC 




/0020 


1443 CHARACTER, -. 


8CF46810 


0AD2 





0A8E 




SEC26 


DC 




SEC56-BASE 


RELATIVE ADDRESS. 


8CF46820 


0AD4 




0000 






BSS 


E 





FORCE EVEN BOUNDARY. 


8CF46830 


0AD4 





OOOB 




SEC40 


DC 




11 




8CF46840 


0AD5 





0000 






DC 




/OOOO 




8CF46850 


0AD6 





1233 






DC 




/1233 


SC 


8CF46860 


0AD7 





3123 






DC 




/3123 


AL 


8CF46870 


0AD8 





3500 






DC 




/3500 


E 


8CF46880 


0AD9 





3631 






DC 




/3631 


FA 


8CF46890 


OADA 





3313 






DC 




/3313 


CT 


8CF46900 


OADB 





2629 






DC 




/2629 


OR 


8CF46910 


OADC 





OOOB 






DC 




/OOOB 


= 


8CF46920 


OADD 





0000 




SEC46 


DC 




/OOOO 


X 


8CF46930 



OADE 





OOOO 


OADF 





OOOO 


OAEO 





OOOA 


0AE1 





OAOA 


0AE2 





OOOA 


0AE3 





0AO1 


0AE4 





OOOA 


0AE5 





010A 


0AE6 





OOOA 


0AE7 





0101 


0AE8 





0001 


0AE9 





OAOA 


OAEA 





0001 


OAEB 





0A01 


OAEC 





0001 


OAED 





010A 


OAEE 





0001 


OAEF 





0101 


OAFO 







OAFO 





OOOA 


0AF1 





3631 


OAF 2 





3923 


0AF3 





3B00 


0AF4 





3218 


0AF5 





0031 


0AF6 





3434 


0AF7 





293B 


OAF 8 





0023 


0AF9 





392 5 


OAF A 





3500 


OAFB 





OOOB 


OAFC 





OOOO 


OAFD 





OOOO 


OAFE 





OOOO 


OAFF 





3839 


OBOO 





OOOO 


0B01 





2326 


0B02 





OOOO 


0B03 





OOOO 


0B04 





38 39 


0B05 





OOOO 


0B06 





2326 


0B07 





OOOB 


0B08 





OOOO 


0B09 





OOOO 


OBOA 





OOOO 


OBOB 





0017 


OBOC 





OOOO 


OBOD 





0017 


OBOE 





OOOO 


OBOF 





OOOO 


0B10 





0018 


0B11 





OOOO 


OBI 2 





0018 



DC 


/OOOO 


DC 


/OOOO 


SEC54 DC 


/OOOA 


DC 


/OAOA 


DC 


/OOOA 


DC 


/OA01 


DC 


/OOOA 


DC 


/010A 


DC 


/OOOA 


DC 


/0101 


DC 


/0001 


DC 


/OAOA 


DC 


/0001 


DC 


/OAOl 


DC 


/0001 


DC 


/010A 


DC 


/0001 


DC 


/0101 


SEC56 EOU 


* 


SEC70 DC 


10 


DC 


/3631 


DC 


/3923 


DC 


/3B00 


DC 


/3218 


DC 


/0031 


DC 


/3434 


DC 


/293B 


DC 


/0023 


DC 


Z3925 


DC 


/3500 


SEC80 DC 


11 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/3839 


DC 


/OOOO 


DC 


/2326 


DC 


/OOOO 


DC 


/OOOO 


DC 


/3839 


DC 


/OOOO 


DC 


/2326 


SEC90 DC 


11 


DC 


/OOOO 


DC 


/OOOO 


DC 


/OOOO 


DC 


/0017 


DC 


/OOOO 


DC 


/0017 


DC 


/OOOO 


DC 


/OOOO 


DC 


/0018 


DC 


/OOOO 


DC 


/0018 



MUST BE EVEN ADDRESS. 
1443 CHARACTER 0. 



XX 
XX 
0, 

00 


01 



10 


11 
1 

00 

1 

01 

1 

10 

1 
11 



SUMMARY HEADING. 

FA 

IL 

BY 

A 
DO 
R. 

L 
IN 
E 
HEADING MESSAGE. 



HI 



LO 



HI 

LO 

HEADING MESSAGE. 



* * 

** ***************************************** ******** 
*************************************************** 

* * 

* SENSE/INHIBIT SUMMARY PRINT SUBROUTINE * 

* * 
*************************************************** 

* * 
* 
* 
* 
* 
* 
* 



THIS SUBROUTINE PRINTS ONE LINE FOR EACH BSM * 
LOG SUMMARIZING FAILURES BY SENSE/ INHIBI T BLOCK.* 

* 

CALL - * 

* 

BSI L3 SI010-BASE * 
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8CF46940 
8CF46950 
8CF46960 
8CF46970 
8CF46980 
8CF46990 
8CF47000 
8CF47010 
8CF47020 
8CF47030 
8CF47040 
8CF47050 
8CF47060 
8CF47070 
8CF47080 
8CF47090 

8CF47100 
8CF47110 
8CF47120 
8CF47130 
8CF47140 
8CF47150 
8CF47160 
8CF47170 
8CF47180 
8CF47190 
8CF47200 
8CF47210 
8CF47220 
8CF47230 
8CF47240 
8CF47250 
8CF47260 
8CF47270 
8CF472 80 
8CF47290 
8CF47300 
8CF47310 
8CF47320 
8CF47330 
8CF47340 
8CF47350 
8CF47360 
8CF47370 
8CF47380 
8CF47390 
8CF47400 
8CF47410 
8CF47420 
8CF47430 
8CF47440 
8CF47450 
8CF47460 
8CF47470 
8CF47480 
8CF47490 
8CF47500 
8CF47510 
8CF47520 
8CF47530 
8CF47540 
8CF47550 
8CF47560 
8CF47570 
8CF475 80 
8CF47590 
8CF47600 
8CF47610 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF- 1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


35 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
35A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0B13 
0B14 
0B16 
0B17 
0B19 
OBI A 
0B1C 
0B1D 
0B1E 
0B1F 
0B20 
0B21 
0B23 
0B25 
0B26 
0B27 
0B28 
0B29 
0B2B 
0B2D 
0B2E 



0000 
4700 
FOOO 
4700 
OADB 
47 00 
FOOO 
6A19 
C01B 
8301 
0001 
6600 
C700 
90A0 
1001 
8013 
D001 
CFOO 
4700 
COOE 
4700 



0691 
0691 
0691 



0000 
035E 



0000 
0961 



09BE 



0B30 4700 0691 
0B32 0AE7 
0B33 4700 0691 
0B35 FOOO 
0B36 6600 0000 
0B38 4F80 0AB1 



0B3A 





OAED 


0B3B 





OECC 


0B3C 





7208 


0B3D 





000 B 


0B3E 





3631 


0B3F 





3923 


0B40 





1429 


0B41 





3500 


0B42 





3218 


0B43 





0004 


0B44 





2200 


0B45 





1235 


0B46 





3724 


0B47 





3525 


0B48 





1300 


0B49 





0010 


0B4A 





0000 


0B4B 





0023 


0B4C 





2600 


0B4D 





0422 



* 
* 
* 

* 
* 
* 
* 



XR1 IS NOT USED. 

XR2 IS SAVED AND RESTORED. 

XR3 IS THE PSEUDO BASE REGISTER. 

THE BSM ID. IS IN HZK01. 



*************************************************** 



SI010 DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
STX 
ID 
A 
STO 

SI020 LDX 
LD 
S 

SLA 
A 
STO 

SI030 LDD 
BSI 
LD 
BSI 



*-* ENTRY. 
L3 MA010-BASE WRITE A SPACE. 
/FOOO SPACE FUNCTION. 
L3 MA010-BASE WRITE THE HEADING. 
SIC80-BASE HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 
SAVE XR2. 

COMPUTE STARTING ADDRESS 
FOR FILL AND LOAD INTO 
XR2. 



L3 MA010-BASE 
/FOOO 

2 SI 040+1 
SIC02 

3 ONE 
SI020+1 

L2 *-* 

L3 HZK01-BASE 

SEC02 

ONE 

SIC04 

SI030+1 
L3 *-* 
L3 SC010-BASE 

SIC08 
L3 SD010-BASE 



COMPUTE ADDRESS OF 
ENTRY IN STORAGE AREA. 



LOAD COUNTERS. 

CONVERT TO 1443 CHAR. 
PUT CONVERTED CHARACTERS 

IN BUFFER LINE. 



* LINE IS COMPLETE 
* 



WRITE LINE. 

MESSAGE. 

WRITE A SPACE. 
SPACE FUNCTION. 
RESTORE XR2. 

RETURN. 
*************************************************** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 



BSI 
DC 
BSI 
DC 
SI040 LDX 
B 



L3 MA010-BASE 
SIC90-BASE 

L3 MA010-BASE 
/FOOO 

L2 *-* 

13 SI010-BASE 



' * 
* 

SIC02 DC 

SIC04 DC 

SIC08 MDX 

SIC80 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

SIC90 DC 

DC 

DC 

DC 

DC 



RELATIVE ADDRESS OF 
SIC90+6-BASE OUTPUT AREA TO FILL. 
PXK40-BASE RELATIVE ADDRESS OF STOR. 

EIGHT INSTRUCTION FOR FILL RTN. 

11 HEADING. 

/3631 FA 

/3923 IL 

/1429 UR 

/35Q0 E 

/3218 BY 
/0004 4 

/2200 K 

/1235 SE 

/3724 GM 

/3525 EN 

/1300 T 

16 MESSAGE. 
/OOOO 

/O023 L 

/2600 

/0422 4K 
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8CF47620 

8CF47630 

8CF47640 

8CF47650 

8CF47660 

8CF476 70 

8CF47680 

8CF47690 

8CF47700 

8CF47710 

8CF47720 

8CF47730 

8CF47740 

8CF47750 

8CF47760 

8CF47770 

8CF47780 

8CF47790 

8CF47800 

8CF47810 

8CF47820 

8CF47830 

8CF47840 

8CF47850 

8CF47860 

8CF47870 

8CF47880 

8CF47890 

8CF47900 

8CF47910 

8CF47920 

8CF47930 

8CF47940 

8CF47950 

8CF47960 

8CF47970 

8CF47980 

8CF47990 

8CF48000 

8CF48010 

8CF48020 

8CF48030 

8CF48040 

8CF48050 

8CF48060 

8CF48070 

8CF48080 

8CF48090 

8CF48100 

8CF48110 

8CF48120 

8CF48130 

8CF48140 

8CF48150 

8CF48160 

8CF48170 

8CF48180 

8CF48190 

8CF48200 

8CF48210 

8CF48220 

8CF482 30 

8CF48240 

8CF48250 

8CF48260 

8CF48270 

8CF48280 

8CF48290 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CORE FUNCTION TEST 



0B4E 





OOOB 


0B4F 





0000 


0B50 





0000 


0B51 





0000 


0B52 





0000 


0B5 3 





0038 


0B54 





3900 


0B55 





0422 


0B56 





OOOB 


0B57 





0000 


0B58 





0000 


0B59 





0000 



0B5A 
0B5B 
0B5D 
0B5E 
0B60 
0B61 
0B63 
0B64 
0B66 
0B67 
0B69 
0B6A 
0B6C 
0B6D 
0B6E 
0B6F 
0B7O 
0B71 
0B72 
0B74 
0B76 
0B77 
0B78 
0B79 
0B7A 
0B7B 

0B7C 
0B7D 
0B7E 
0B7F 



0000 
4700 
FOOO 
4700 
0B4D 
4700 
FOOO 
4700 
0B5A 
4700 
FOOO 
4700 
6932 
6A33 
6109 
C034 
8301 
D001 
66 00 
C700 
9031 
A031 
18D0 
8301 
D030 
802A 
D02D 
C02D 
8028 
D02B 



0691 
0691 
0691 
0691 
0691 
0B66 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/OOOB 
/OOOO 
/OOOO 
/OOOO 
/OOOO 
/0038 
/3900 
/0422 
/OOOB 
• /OOOO 
/OOOO 
/OOOO 



X 
XX 
XX 

H 
I 
4K 

Y 
YY 
YY 



*************************************************** 
*************************************************** 

* * 

* PATTERN FAILURE AND LOOP SUMMARY SUBROUTINE * 

* * 

*************************************************** 



OOOO 
035E 



THIS SUBROUTINE PRINTS A LOG OF LOOPS AND 
FAILURES BY PATTERN TEST FOR EACH BSM. 



CALL - 



BSI L3 SL010-BASE 

XR1 AND XR2 ARE SAVED AND RESTORED. 
XR3 IS THE PSEUDO BASE REGISTER. 
THE BSM ID. IS IN HZK01. 



*************************************************** 



SL010 DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
DC 
BSI 
STX 
STX 
LDX 
LD 
A 
STO 

SL020 LDX 
LD 
S 
M 

RTE 
A 

STO 
A 

STO 
LD 
A 
STO 



*-* 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SLC70-BASE 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

SLC80-BASE 
L3 MA010-BASE 

/FOOO 
L3 SU010-BASE 

1 SL050+1 

2 SL060+1 
1 SLC04 

SLC02 

3 ONE 

SL020+1 
*-* 

L3 HZK01-BASE 
SLC12 
SLC14 
16 
3 ONE 
SLC18 
SLC08 
SLC16 
SLC18 
SLC10 
SLC18 



L2 



ENTRY. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE SUMMARY HEADING. 

HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

WRITE HEADING. 

HEADING. 

WRITE A SPACE. 
SPACE FUNCTION. 

ZERO LINE BUFFER. 
SAVE XR1. 
SAVE XR2. 
XR1 IS COUNTER. 
COMPUTE ADDRESS OF 
LINE BUFFER FILL 
AREA. 

COMPUTE BASE ADDRESSES 
OF LOOP AND FAILURE 
COUNTER TABLES. 



SAVE TEMPORARILY. 
BUILD ADDRESSES AND 
SAVE FOR INDIRECT 
ADDRESSING. 



* BUILD A LINE. 

* 
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8CF48300 

8CF48310 

8CF48320 

8CF48330 

8CF48340 

8CF48350 

8CF48360 

8CF48370 

8CF483 80 

8CF48390 

8CF48400 

8CF48410 

8CF48420 

8CF48430 

8CF48440 

8CF48450 

8CF48460 

8CF48470 

8CF48480 

8CF48490 

8CF48500 

8CF48510 

8CF48520 

8CF48530 

8CF48540 

8CF48550 

8CF48560 

8CF48570 

8CF48580 

8CF48590 

8CF48600 

8CF48610 

8CF48620 

8CF48630 

8CF48640 

8CF48650 

8CF48660 

8CF48670 

8CF48680 

8CF48690 

8CF48700 

8CF48710 

8CF48720 

8CF48730 

8CF48740 

8CF48750 

8CF48760 

8CF48770 

8CF48780 

8CF48790 

8CF48800 

8CF48810 

8CF48820 

8CF48830 

8CF48840 

8CF48850 

8CF48860 

8CF48870 

8CF48880 

8CF48890 

8CF48900 

8CF48910 
8CF48920 
8CF48930 
8CF48940 
8CF48950 
8CF4 8960 
8CF48970 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


36 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
36A 



oooooooooooooooooooooooooooooooooc 



o»o oooooooooooooooooooooooooooooooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
CORE FUNCTION TEST 



0B80 









SL030 


EQU 




* 






0B80 





692B 








STX 


1 


SLC20 




COMPUTE TEST ID. 


0B81 





C023 








LD 




SLC06 




NUMBER, CONVERT IT AND 


0B82 





9029 








S 




SLC20 




STORE IN LINE BUFFER. 


0B83 





4700 


03B0 






BSI 


L3 


IC010- 


BASE 


CONVERT TO ONE 1443 


0B85 





E028 








AND 




SLC24 




CHARACTER. 


0B86 





D200 








STO 


2 


ZERO 






0B87 





7203 








MDX 


2 


THREE 




INCREMENT I/O AREA PTR. 


0B88 





C780 


0B48 






LD 


13 


SLC16- 


BASE 


LOAD LOOP COUNTER. 


0B8A 





18D0 








RTE 




16 




MOVE TO Q. 


0B8B 





C780 


0B49 






LD 


13 


SLC18- 


BASE 


LOAD FAILURE COUNTER. 


0B8D 





4700 


0961 






BSI 


L3 


SC010- 


BASE 


CONVERT TO 1443 CODE. 


0B8F 





C010 








LD 




SLC22 




PUT CHARACTERS IN 


0B90 





4700 


09BE 


* 

* 




BSI 


L3 


SD010- 


BASE 


I/O BUFFER. 










LINE COMPLETE, WRITE IT. 


0B92 





4700 


0691 


* 




BSI 


L3 


MA010- 


BASE 


WRITE LINE. 


0B94 





0B77 








DC 




SUC80- 


BASE 


MESSAGE. 


0B95 





C014 








LD 




SLC16 




INCREMENT AND UPDATE 


0B96 





8011 








A 




SLC12 




INDIRECT ADDRESSES. 


0897 





D012 








STO 




SLC16 






0B98 





C012 








LD 




SLC18 






0B99 





800E 








A 




SLC12 






0B9A 





D010 








STO 




SLC18 






0B9B 





72F9 








MDX 


2 


-7 




RESTORE BUFFER POINTER. 


0B9C 





71FF 








MDX 


1 


-1 




DECREMENT COUNTER. 


0B9D 





70E2 








B 




SL030 




LOOP. 


0B9E 





6500 


0000 


SL050 


LDX 


LI 


*-* 




RESTORE XR1. 


OBAO 





6600 


0000 


SL060 


LDX 


L2 


*-* 




RESTORE XR2. 


0BA2 





4F80 


0AF8 






B 


13 


SL010- 


-BASE 


RETURN. 



****#***##*****##***************************#****** 

* * 

* CONSTANTS AND WORK AREAS * 

* * 

****=** *****#**********************#******** ******** 



PATTERN TEST COUNT. IF 
THE NUMBER OF PATTERN 
TESTS CHANGE, SLC04 SHOULD 
BE CHANGED. 

PATTERN COUNT COMPLEMENT. 
RELATIVE ADDRESS OF BASE 

OF LOOP COUNTER TABLE. 
RELATIVE ADDRESS OF BASE 

OF FAILURE COUNTER TABLE. 
ONE. 

NUMBER OF PATTERN TESTS. 
INDIRECT ADDRESS, PXK60. 
INDIRECT ADDRESS, PXK50. 
WORK AREA. 

INSTRUCTION FOR FILL RTN. 
MASK TO LEAVE RIGHT BYTE. 
SUMMARY HEADING. 
FA 
IL 
UR 
ES 

B 
Y 
PA 
TT 
ER 
N 

TE 
ST 
HEADING 



0BA4 





0B79 


SLC02 

* 
* 


DC 


SUC84-BASE 


0009 







* 
SLC04 


EQU 


9 


0BA5 





0009 


SLC06 


DC 


9 


0BA6 





0F24 


SLC08 


DC 


PXK60-BASE 


0BA7 





OEDC 


SLC10 


DC 


PXK50-BASE 


0BA8 





0001 


SLC12 


DC 


1 


0BA9 





0009 


SLC14 


DC 


9 


OBAA 




0001 


SLC16 


BSS 


1 


OBAB 




0001 


SLC18 


BSS 


1 


OBAC 




0001 


SLC20 


BSS 


1 


OBAD 





7204 


SLC22 


MDX 


2 FOUR 


OBAE 





OOFF 


SLC24 


DC 


/OOFF 


OBAF 





OOOC 


SLC70 


DC 


12 


OBBO 





3631 




DC 


/3631 


0BB1 





3923 




DC 


/3923 


0BB2 





1429 




DC 


/1429 


0BB3 





3512 




DC 


/3512 


0BB4 





0032 




DC 


/0032 


0BB5 





1800 




DC 


/1800 


0BB6 





2731 




DC 


/2731 


0BB7 





1313 




DC 


/1313 


0BB8 





3529 




DC 


/3529 


0BB9 





2500 




DC 


/2500 


OBBA 





1335 




DC 


/1335 


OBBB 





1213 




DC 


/1213 


OBBC 





OOOB 


SLC80 


DC 


11 
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8CF48980 
8CF48990 
8CF49000 
8CF49010 
8CF49020 
8CF49030 
8CF49040 
8CF49050 
8CF49060 
8CF49070 
8CF49080 
8CF49090 
8CF49100 
8CF49110 
8CF49120 
8CF49130 
8CF49140 
8CF49150 
8CF49160 
8CF49170 
8CF49180 
8CF49190 
8CF49200 
8CF49210 
8CF49220 

8CF49230 
8CF49240 
8CF49250 
8CF49260 
8CF49270 
8CF49280 
8CF49290 
8CF49300 
8CF49310 
8CF49320 
8CF49330 
8CF49340 
8CF49350 
8CF49360 
8CF49370 
8CF49380 
8CF49390 
8CF49400 
8CF49410 
8CF49420 
8CF49430 
8CF49440 
8CF49450 
8CF49460 
8CF49470 
8CF49480 
8CF49490 
8CF49500 
8CF49510 
8CF49520 
8CF49530 
8CF49540 
8CF49550 
8CF49560 
8CF49570 
8CF49580 
8CF49590 
8CF49600 
8CF49610 
8CF49620 
8CF49630 
8CF49640 
8CF49650 
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OBBD 





0029 


OBBE 





1325 


OBBF 





3B00 


OBCO 





0036 


0BC1 





3139 


0BC2 





2314 


0BC3 





2935 


0BC4 





1200 


0BC5 





0023 


0BC6 





2626 


0BC7 





2712 



0BC8 0000 

0BC9 6A0A 

OBCA 

OBCB 

OBCC 

OBCD 

OBCE 

OBCF 

0BD1 

0BD2 

0BD3 

0BD5 4F80 0B66 



6225 

COOC 

8301 

D002 

1810 

D600 0000 

72FF 

70FC 

6600 0000 



0025 







0BD8 




0000 


0BD8 





0B77 


0BD9 





0025 


OBDA 




0001 


OBDB 




0001 


OBDC 




0001 


OBDD 




0001 


OBDE 




0001 


OBDF 




0001 


OBEO 




0001 


0BE1 




0001 


0BE2 




0001 


0BE3 




0001 



DC 


/0029 


R 


DC 


/1325 


TN 


DC 


/3B00 


• 


DC 


/0036 


F 


DC 


/3139 


AI 


DC 


/2314 


LU 


DC 


/2935 


RE 


DC 


/1200 


S 


DC 


/0023 


L 


DC 


/2626 


00 


DC 


/2712 


PS 



*************************************************** 
*************************************************** 

* * 

* ZERO LINE BUFFER SUBROUTINE * 

* * 
*************************************************** 

* 

* THIS SUBROUTINE ZEROS THE LINE BUFFER THAT IS 

* COMMON TO ALL SUMMARY SUBROUTINES. 
* 

* CALL - 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 

*************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 



BSI 



XR1 



XR2 



L3 SU010-BASE 
IS NOT USED. 
IS SAVED AND RESTORED. 



XR3 IS THE PSEUDO BASE REGISTER. 



ENTRY. 

SAVE XR2. 

XR2 IS USED AS A COUNTER. 

COMPUTE ABSOLUTE BASE 

ADDRESS OF LINE BUFFER 

FOR OPERAND. 

ZERO ACCUMULATOR. 

STORE A ZERO INTO EACH 

POSITION. 



SU010 DC *-* 

STX 2 SU050+1 

LDX 2 SUC02 

LD SUC04 

A 3 ONE 

STO SU020+1 

SRA 16 

SU020 STO L2 *-* 

MDX 2 -1 

B SU020 

SU050 LDX L2> *-* RESTORE XR2. 

B 13 SU010-BASE RETURN. 
*************************************************** 

* * 

* CONSTANTS, WORK AREAS AND LINE BUFFER * 

* * 
*************************************************** 

* * 
SUC02 EQU 37 NO. OF WORDS IN BUFFER. 

BSS E FORCE EVEN BOUNDARY. 

* RELATIVE BASE ADDRESS OF 
SUC80-BASE LINE BUFFER FOR ZEROING. 

THIS ADDRESS MUST BE ODD. 
37 WORD COUNT FOR BUFFER. 

XX 
YY 



SUC04 DC 
* 

SUC80 DC 

SUC82 BSS 

SUC84 BSS 

BSS 

SUC 86 BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 



AA 
A 

BB 
B 

CC 

C 

DD 



XX 


XX 


w 






Y 


X 


YY 




YY 


Y 


Z 




zz 
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8CF49660 

8CF49670 

8CF49680 

8CF49690 

8CF49700 

8CF49710 

8CF49720 

8CF49730 

8CF49 740 

8CF49750 

8CF49760 

8CF49770 

8CF49780 

8CF49790 

8CF49800 

8CF49810 

8CF49820 

8CF49830 

8CF49 840 

8CF49850 

8CF49860 

8CF49870 

8CF49880 

8CF49890 

8CF49900 

8CF49910 

8CF49920 

8CF49930 

8CF49940 

8CF49950 

8CF49960 

8CF49970 

8CF49980 

8CF49990 

8CF50000 

8CF50010 

8CF50020 

8CF50030 

8CF50040 

8CF50050 

8CF50060 

8CF50070 

8CF50080 

8CF50090 

8CF50100 

8CF50U0 

8CF50120 

8CF50130 

8CF50140 

8CF50150 

8CF50160 

8CF50170 

8CF50180 

8CF50190 

8CF50200 

8CF50210 

8CF50220 

8CF50230 

8CF50240 

8CF50250 

8CF50260 

8CF50270 

8CF50280 

8CF50290 

8CF50300 

8CF50310 

8CF50320 

8CF50330 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



17APR70 
431321 



PROG ID 


08CF-1 


DATE 


14N0V69 


30JAN70 


17APR70 


PAGE 


37 


EC NO. 


431319 


431319A 


431321 



PROG ID 
PAGE 



08CF-1 
37A 
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0BE4 


0001 


BSS 1 


D 


0BE5 


0001 


BSS 1 


EE 


0BE6 


0001 


BSS 1 


EE 


08E7 


0001 


BSS 1 




0BE8 


0001 


SUC88 BSS 1 


TT 


0BE9 


0001 


BSS 1 


TT 


OBEA 


0001 


BSS 1 


T 


OBEB 


0001 


BSS 1 


TT 


OBEC 


0001 


BSS 1 


T 


OBEO 


0001 


BSS I 


TT 


OBEE 


0001 


BSS 1 


TT 


OBEF 


0001 


BSS 1 


T 


OBFO 


0001 


BSS 1 


I TT 


0BF1 


0001 


BSS 1 


I T 


0BF2 


0001 


BSS 1 


t SP 


0BF3 


0001 


BSS 




0BF4 


0001 


SUC90 BSS 


t FF 


0BF5 


0001 


BSS 


L FF 


0BF6 


0001 


L BSS 


I F 


0BF7 


0001 


BSS 


I FF 


0BF8 


0001 


BSS 


L F 


0BF9 


0001 


BSS 


L FF 


OBFA 


0001 


BSS 


I FF 


OBFB 


0001 


BSS 


I F 


OBFC 


0001 


BSS 


1 FF 


QBFD 


0001 


BSS 


I F 


OBFE 


0001 


BSS 


1 SP 



OBFF 
OCOO 
0C01 
0C02 
0C03 
0C04 
0C05 
0C07 
0C08 
OCOA 
OCOB 
OCOD 
OCOE 
OCOE 
OCOF 
0C10 
0C12 
0C13 



ZZ 



0000 
D8D9 
C013 
4820 

700A 
6810 
4700 0691 
FOOO 

4700 0691 

0C15 

4700 0691 

FOOO 













C007 

D0C9 

4700 0691 

0B77 



*************************************************** 
*************************************************** 

* * 

* IMMEDIATE ERROR LOG SUBROUTINE * 

* * 
*************************************************** 



THIS SUBROUTINE PRINTS THE IMMEDIATE ERROR LOG. 
IT PRINTS A HEADING IF IT HAS NOT BEEN PRINTED. 

CALL - 

BSI L3 SV010-BASE 

XR1 AND XR2 ARE NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER 

3/14/69 



*************************************************** 



4F80 0B9D 



SV010 DC 
STD 

LD 
SKP 
B 

STX 
BSI 
DC 
BSI 
DC 
BSI 
DC 
SV020 EOU 
LD 
STO 
BSI 
DC 
B 



*-* 

SUC82 

SVC02 

z 

SV020 
SVCQ2 
L3 MA010-BASE 

/FOOO 
L3 MA010-BASE 

MSG07-BASE 
L3 MA010-BASE 

/FOOO 
* 

SVC 04 

SUC80 
L3 MA010-BASE 

SUC80-BASE 
13 SV010-BASE 



ENTRY 

FILL IN ERROR CODE. 

TEST HEADING SMITCH 

SKIP NOT SET, WRITE HDNG. 

BRANCH TO CONTINUE. 

TURN SWITCH ON. 

SPACE ONE LINE. 
SPACE FUNCTION. 

WRITE HEADING. 

MESSAGE. 

SPACE ONE LINE. 
SPACE FUNCTION. 

PUT WORD COUNT IN 
LINE BUFFER. 

WRITE IMMEDIATE 

ERROR LOG. 

RETURN. 
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PAGE 



8CF50340 

8CF50350 

8CF50360 

8CF50370 

8CF50380 

8CF50390 

8CF50400 

8CF50410 

8CF50420 

8CF50430 

8CF50440 

8CF50450 

8CF50460 

8CF50470 

8CF50480 

8CF50490 

8CF50500 

8CF50510 

8CF50520 

8CF50530 

8CF5G540 

8CF50550 

8CF50560 

8CF50570 

8CF50580 

8CF50590 

8CF50600 

8CF50610 

8CF50620 

8CF50630 

8CF50640 

8CF50650 

8CF50660 

8CF50670 

8CF50680 

8CF50690 

8CF50700 

8CF50710 

8CF50720 

8CF50730 

8CF50740 

8CF50750 

8CF50760 

8CF50770 

8CF50780 

8CF50790 

8CF50800 

8CF50810 

8CF50820 

8CF50830 

8CF50840 

8CF50850 

8CF50860 

8CF50870 

8CF50880 

8CF50890 

8CF50900 

8CF50910 

8CF50920 

8CF50930 

8CF50940 

8CF50950 

8CF50960 

8CF50970 

8CF50980 

8CF50990 

8CF51000 

8CF51010 



2279484 
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0C15 0001 
0C16 0025 



0C17 

0C18 

0C19 

0C1B 

0C1D 

0C1E 

0C1E 

0C1F 

0C20 

0C22 

0C23 

0C24 

0C25 

0C26 

0C27 

0C28 

0C29 

0C29 

0C2B 

0C2C 

0C2D 

0C2F 



0000 

D018 

07 00 0492 

4700 08 E3 

D014 



0000 



C012 
D100 
2D41 
6910 
COOF 
FOOD 
4818 
7002 
7101 
70F5 



0700 0493 
C008 
8301 

D700 03F7 
4F80 0BB5 



0C31 0001 
0C32 0001 
0C33 0001 
0C34 0406 



*************************************************** 

* * 

* CONSTANTS AND WORK AREAS 

* 
* 

*************************************************** 

* * 
SVC02 BSS 1 HEADING SWITCH. 

SVC04 DC 37 WORD COUNT. 

*************************************************** 
*************************************************** 

* * 

* INITIALIZE PATTERN AND SET STORAGE PROTECT BIT * 

* * 
*************************************************** 



* THIS SUBROUTINE SETS THE PATTERN INJO EACH 

* POSITION AND TURNS THE STORAGE PROTECT BIT ON. 

BSI L3 TA010-BASE 

THE PATTERN TO LOAD IS IN THE ACCUMULATOR. 

XR1 IS UNSPECIFIED AT INPUT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

4/8/69 



*************************************************** 

* * 

TA010 DC *-* ENTRY. 

ST0 TAC02 SAVE PATTERN. 

STO L3 IXC12-BASE TEST PATTERN TO INTR. RTN 

BSI L3 SA100-BASE SET ADDRESS LIMITS. 

STO TAC04 SAVE END ADDRESS. 



TA020 EQU * 

LD TAC02 

STO 1 ZERO 

STS LI ZER0./41 

STX 1 TAC06 



PUT PATTERN IN EACH 
POSITION AND TURN 
STORAGE PROTECT BIT ON. 
TEST FOR LAST 
POSITION. 



SKIP NOT LAST POSITION. 
BRANCH TO EXIT. 
INCREMENT ADDRESS. 
LOOP. 



LO TAC06 
EOR TAC04 
SKP +- 
B TA030 

MDX 1 ONE 
B TA020 

TA030 EOU * 

STO L3 IXC14-BASE SET STOR. PROT. SWITCH, 
LD TAC08 INITIALIZE INCREMENT INSTR 
A 3 ONE UCTION OPERAND IN STORAGE 
STO L3 IH040+1-BASE PROTECT INTERRUPT RTN. 
B 13 TA010-BASE RETURN. 

*************************************************** 

* 

* CONSTANTS AND WORK AREAS * 

* * 
*************************************************** 

* * 
TAC02 BSS 1 PATTERN STORAGE. 
TAC04 BSS 1 END ADDRESS. 
TAC06 BSS 1 WORK AREA. 
TAC08 DC II010-BASE ADDRESS OF INTRPT. RETURN 

* * 
*************************************************** 
*************************************************** 
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8CF51020 

8CF51030 

8CF51040 

8CF51050 

8CF51060 

8CF51070 

8CF51080 

8CF51090 

8CF51100 

8CF51110 

8CF51120 

8CF51130 

8CF51140 

8CF51150 

80 F5 11 60 

8CF5117© 

8CF51180 

8CF51190 

8CF51200 

8CF51210 

8CF51220 

8CF51230 

8CF51240 

8CF51250 

8CF51260 

8CF51270 

8CF51280 

8CF51290 

8CF51300 

8CF51310 

8CF51320 

8CF51330 

8CF51340 

8CF51350 

8CF51360 

8CF51370 

8CF51380 

8CF51390 

8CF51400 

8CF51410 

8CF51420 

8CF51430 

8CF51440 

8CF51450 

8CF51460 

8CF51470 

8CF51480 

8CF51490 

8CF51500 

8CF51510 

8CF51520 

8CF51530 

8CF51540 

8CF51550 

8CF51560 

8CF51570 

8CF51580 

8CF51590 

8CF51600 

8CF51610 

8CF51620 

8CF51630 

8CF51640 

8CF51650 

8CF51660 

8CF51670 

8CF51680 

8CF51690 
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0C35 
0C36 
0C38 
0C39 

0C3B 
0C3B 
0C30 
0C3E 
0C3F 
0C40 
0C41 
0C42 
0C43 
0C44 
0C44 



0000 

4700 08E3 

D0F9 

D700 0493 



2D40 0000 

69F5 

C0F4 

F0F2 

4818 

7002 

7101 

70F7 



4F80 



0BD3 



0C46 0000 
0C47 C700 0028 
0C49 4F98 0BE4 
0C4B 4F00 031B 



* * 

* CLEAR STORAGE PROTECT BITS * 

* * 
*************************************************** 

* * 

* THIS SUBROUTINE CLEARS THE STORAGE PROTECT BIT * 

# 
* 
# 
* 
* 
* 



* ON A BLOCK OF STORAGE. 
* 

* CALL - 
* 

BSI L3 TB010-BASE 



THE PATTERN TO LOAD IS IN THE ACCUMULATOR. 

XR1 IS UNSPECIFIED AT INPUT. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 

4/8/69 



*************************************************** 

# 



XR1 SHOULD BE UNSPECIFIED. 

XR2 IS NOT USED. 

XR3 IS THE PSEUDO BASE REGISTER. 



4/9/69 



*************************************************** 

* * 
TB010 DC *-* ENTRY. 

BSI L3 SA100-BASE SET ADDRESS LIMITS. 

STO TAC04 SAVE END ADDRESS. 

STO L3 IXC14-BASE RESET STOR. PROT. SWITCH. 

TB020 EOU * 

STS LI ZERO./40 CLEAR STORAGE PROTECT BIT. 

STX 1 TAC06 TEST FOR LAST 

LD TAC06 POSITION. 

EOR TAC04 

SKP +- SKIP NOT LAST 

B TB030 POSITION. 

MDX 1 ONE INCREMENT ADDRESS. 

B TB020 LOOP. 

TB030 EOU * 

B 13 TB010-BASE RETURN. 
*************************************************** 

* * 

* EXPLICIT ROUTINE TEST * 

* * 
*************************************************** 

* * 
UA010 DC *-** ENTRY. 

LD L3 AAC52-BASE LOAD EXPLICIT ID. 
BZ 13 UA010-BASE RETURN IF FULL TEST. 
R L3 HZ010-BASE SUMMARIZE IF EXPLICIT. 
*************************************************** 

* * 

* MESSAGES * 



0C4D OOOA 
0C4E OAOA 



*************************************************** 
* * 

MSG01 DC 10 HFADING. 

DC /OAOA 00 
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8CF51700 

8CF51710 

8CF51720 

8CF51730 

8CF51740 

8CF51750 

8CF51760 

8CF51770 

8CF51780 

8CF51790 

8CF51800 

8CF51810 

8CF51820 

8CF51830 

8CF51840 

8CF51850 

8CF51860 

8CF51870 

8CFB1880 

8CF51890 

8CF51900 

8CF51910 

8CF51920 

8CF51930 

8CF51940 

8CF51950 

8CF51960 

8CF51970 

8CF51980 

8CF51990. 

8CF52000 

8CF52010 

8CF52020 

8CF52030 

8CF52040 

8CF52050 

8CF52060 

8CF52070 

8CF52080 

8CF52090 

8CF52100 

8CF52110 

8CF52120 

8CF52130 

8CF52140 

8CF52150 

8CF52160 

8CF52170 

8CF52180 

8CF52190 

8CF52200 

8CF52210 

8CF52220 

8CF52230 

8CF52240 

8CF52250 

8CF52260 

8CF52270 

8CF52280 

8CF52290 

8CF52300 

8CF52310 

8CF52320 

8CF52330 

8CF52340 

8CF52350 

8CF52360 

8CF52370 
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0C4F 

0C50 

0C51 

0C52 

0C53 

0C54 

0C55 

0C56 

0C57 

0C58 

0C59 

0C5A 

0C5B 

0C5C 

0C5D 

0C5E 

0C5F 

0C60 

0C61 

0C62 

0C63 

0C64 

0C65 

0C66 

0C67 

0C68 

0C69 

0C6A 

0C6B 

0C6C 

0C6D 

0C6E 

0C6F 

0C70 

0C71 

0C72 

0C73 

0C74 

0C75 

0C76 

0C77 

0C78 

0C79 

0C7A 

0C7B 

0C7C 

0C7D 

0C7E 

0C7F 

0C80 

0C81 

OC82 

0C83 

0C84 

0C85 

0C86 

0C87 

0C88 

0C89 

0C8A 

0C8B 

0C8C 

0C8D 

0C8E 

0C8F 

0C90 

0C91 

0C92 



OAOA 
0000 
0A08 
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